12 lines
190 B
Text
12 lines
190 B
Text
multifact: function [n deg][
|
|
switch n =< deg -> n
|
|
-> n * multifact n-deg deg
|
|
]
|
|
|
|
loop 1..5 'i [
|
|
prints ["Degree" i ":"]
|
|
loop 1..10 'j [
|
|
prints [multifact j i " "]
|
|
]
|
|
print ""
|
|
]
|