aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Y-combinator/PicoLisp/y-combinator-1.l Normal file
View file

@ -0,0 +1,3 @@
(de Y (F)
(let X (curry (F) (Y) (F (curry (Y) @ (pass (Y Y)))))
(X X) ) )

9
Task/Y-combinator/PicoLisp/y-combinator-2.l Normal file
View file

@ -0,0 +1,9 @@
# Factorial
(de fact (F)
(curry (F) (N)
(if (=0 N)
1
(* N (F (dec N))) ) ) )
: ((Y fact) 6)
-> 720

9
Task/Y-combinator/PicoLisp/y-combinator-3.l Normal file
View file

@ -0,0 +1,9 @@
# Fibonacci
(de fibo (F)
(curry (F) (N)
(if (> 2 N)
1
(+ (F (dec N)) (F (- N 2))) ) ) )
: ((Y fibo) 22)
-> 28657

10
Task/Y-combinator/PicoLisp/y-combinator-4.l Normal file
View file

@ -0,0 +1,10 @@
# Ackermann
(de ack (F)
(curry (F) (X Y)
(cond
((=0 X) (inc Y))
((=0 Y) (F (dec X) 1))
(T (F (dec X) (F X (dec Y)))) ) ) )
: ((Y ack) 3 4)
-> 125