June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Y-combinator/Kitten/y-combinator.kitten
+++ b/Task/Y-combinator/Kitten/y-combinator.kitten
@ -0,0 +1,18 @@
+define y<S..., T...> (S..., (S..., (S... -> T...) -> T...) -> T...):
+  -> f; { f y } f call
+
+define fac (Int32, (Int32 -> Int32) -> Int32):
+  -> x, rec;
+  if (x <= 1) { 1 } else { (x - 1) rec call * x }
+
+define fib (Int32, (Int32 -> Int32) -> Int32):
+  -> x, rec;
+  if (x <= 2):
+    1
+  else:
+    (x - 1) rec call -> a;
+    (x - 2) rec call -> b;
+    a + b
+
+5  \fac y say  // 120
+10 \fib y say  // 55