all tasks

Task/Y-combinator/PicoLisp/y-combinator-1.l

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

Task/Y-combinator/PicoLisp/y-combinator-2.l

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

Task/Y-combinator/PicoLisp/y-combinator-3.l

@@ -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

Task/Y-combinator/PicoLisp/y-combinator-4.l

@@ -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