11 lines
258 B
Text
11 lines
258 B
Text
use 'format importAllSigils.
|
|
|
|
multiFactorial := {
|
|
Range make ($1, 0, - $2) product.
|
|
}.
|
|
|
|
1 upto 6 visit {
|
|
takes '[degree].
|
|
answers := 1 upto 11 to (Array) map { multiFactorial ($1, degree). }.
|
|
$stdout printf: ~fmt "Degree ~S: ~S", degree, answers.
|
|
}.
|