|
# syntax: GAWK -f MULTIFACTORIAL.AWK
|
|
# converted from Go
|
|
BEGIN {
|
|
for (k=1; k<=5; k++) {
|
|
printf("degree %d:",k)
|
|
for (n=1; n<=10; n++) {
|
|
printf(" %d",multi_factorial(n,k))
|
|
}
|
|
printf("\n")
|
|
}
|
|
exit(0)
|
|
}
|
|
function multi_factorial(n,k, r) {
|
|
r = 1
|
|
for (; n>1; n-=k) {
|
|
r *= n
|
|
}
|
|
return(r)
|
|
}
|