18 lines
460 B
Plaintext
18 lines
460 B
Plaintext
{def multifact
|
|
{lambda {:n :deg}
|
|
{if {<= :n :deg}
|
|
then :n
|
|
else {* :n {multifact {- :n :deg} :deg}}}}}
|
|
-> multifact
|
|
|
|
{S.map {lambda {:deg} {br} Degree :deg:
|
|
{S.map {{lambda {:deg :n} {multifact :n :deg}} :deg}
|
|
{S.serie 1 10}}}
|
|
{S.serie 1 5}}
|
|
->
|
|
Degree 1: 1 2 6 24 120 720 5040 40320 362880 3628800
|
|
Degree 2: 1 2 3 8 15 48 105 384 945 3840
|
|
Degree 3: 1 2 3 4 10 18 28 80 162 280
|
|
Degree 4: 1 2 3 4 5 12 21 32 45 120
|
|
Degree 5: 1 2 3 4 5 6 14 24 36 50
|