2023-07-01 11:58:00 -04:00
|
|
|
multifact: function [n deg][
|
2026-02-01 16:33:20 -08:00
|
|
|
switch n =< deg -> n
|
|
|
|
|
-> n * multifact n-deg deg
|
2023-07-01 11:58:00 -04:00
|
|
|
]
|
|
|
|
|
|
|
|
|
|
loop 1..5 'i [
|
|
|
|
|
prints ["Degree" i ":"]
|
|
|
|
|
loop 1..10 'j [
|
|
|
|
|
prints [multifact j i " "]
|
|
|
|
|
]
|
|
|
|
|
print ""
|
|
|
|
|
]
|
