javascript で ES6 アロー関数を使用して、Church エンコーディングと Y-Combinator を実装することができました。しかし、階乗関数を評価しようとすると、
FALSE = a => b => b
TRUE = a => b => a
ZERO = f => z => z
ONE = f => z => f(z)
SIX = f => z => f(f(f(f(f(f(z))))))
isZERO = n => n(x => FALSE)(TRUE)
SUCC = n => f => z => f(n(f)(z))
MULT = n => m => f => z => n(m(f))(z)
PAIR = a => b => z => z(a)(b)
FIRST = p => p(a => b => a)
SECOND = p => p(a => b => b)
ZZ = PAIR(ZERO)(ZERO)
SS = p => PAIR(SECOND(p))(SUCC(SECOND(p)))
PRED = n => FIRST(n(SS)(ZZ))
FactGen = fact => n =>
isZERO(n)
(ONE)
(MULT(n)(fact(PRED(n))))
Y = g => (x => g(y => x(x)(y))) (x => g(y => x(x)(y)))
Y(FactGen)(SIX) (x=>x+1)(0)
「Uncaught RangeError: Maximum call stack size exceeded(…)」エラーが発生しました。
FactGenを変更すると、
FactGen = fact => n => n == 0 ? 1 : n * fact(n - 1)
Y(FactGen)(6)
720
それだけで機能します。
私が知りたいのは、それの教会数字バージョンです。どうすればこれを達成できますか?