September 2017 Update

Task/Y-combinator/SuperCollider/y-combinator.supercollider

@@ -0,0 +1,39 @@
+// z-combinator
+(
+z = { |f|
+	{ |x| x.(x) }.(
+		{ |y|
+			f.({ |args| y.(y).(args) })
+		}
+	)
+};
+)
+
+
+// factorial
+k = { |f| { |x| if(x < 2, 1, { x * f.(x - 1) }) } };
+
+g = z.(k);
+
+g.(5) // 120
+
+(1..10).collect(g) // [ 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800 ]
+
+
+
+// fibonacci
+
+k = { |f| { |x| if(x <= 2, 1, { f.(x - 1) + f.(x - 2) }) } };
+
+g = z.(k);
+
+g.(3)
+
+(1..10).collect(g) // [ 1, 1, 2, 3, 5, 8, 13, 21, 34, 55 ]
+
+// a shorter form
+
+(
+r = { |x| x.(x) };
+z = { |f| r.({ |y| f.(r.(y).(_)) }) };
+)