Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
17
Task/Multifactorial/Lambdatalk/multifactorial.lambdatalk
Normal file
17
Task/Multifactorial/Lambdatalk/multifactorial.lambdatalk
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
{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
|
||||
Loading…
Add table
Add a link
Reference in a new issue