我似乎沉迷于自虐模式,所以在阅读完这篇文章、这篇文章和这篇文章后,它想要用C#尝试一些自己动手的东西。
我想出了以下代码,我不认为这是Y组合器,但它确实似乎能够将一个非递归函数变成递归函数,而且不引用自身:
Func<Func<dynamic, dynamic>, Func<dynamic, dynamic>> Y = x => x(x);
因此,考虑到这些:
Func<dynamic, Func<dynamic, dynamic>> fact =
self => n => n == 0 ? 1 : n * self(self)(n - 1);
Func<dynamic, Func<dynamic, dynamic>> fib =
self => n => n < 2 ? n : self(self)(n-1) + self(self)(n-2);
我们可以生成这些:
Func<dynamic, dynamic> Fact = Y(fact);
Func<dynamic, dynamic> Fib = Y(fib);
Enumerable.Range(0, 10)
.ToList()
.ForEach(i => Console.WriteLine("Fact({0})={1}", i, Fact(i)));
Enumerable.Range(0, 10)
.ToList()
.ForEach(i => Console.WriteLine("Fib({0})={1}", i, Fib(i)));
U x = x x
,以组合子符号表示。 - Will Ness