Факториал на числах Чёрча — теперь и в смайликах

Всем доброго утра

Это полностью валидный код на JavaScript.

Конечно же, не в таком виде.

Вчера, листая список оставленного на потом, наткнулся на статью о вычислении факториала на числах Чёрча ^[1], нашёл в комментариях предложение реализовать на arrow functions.

Но т.к. уже наступило 1 апреля, нужно что-нибудь интересное и необычное.

var fact = ((cat) => (cat) (cat)) ((cat) => ((drunk) => ((idea) => (hrv) => ((bug) => (facepalm) => (swear) => (bug) (facepalm) (swear)) (((hrv) => (hrv) ((cat) => (cat) => (drunk) => (drunk)) ((cat) => (drunk) => (cat))) (hrv)) (((hrv) => (idea) => (cat) => (idea) ((hrv) (idea) (cat))) ((idea) => (cat) => (cat))) ((cat) => ((hrv) => (dog) => (idea) => (hrv) ((dog) (idea))) (hrv) ((idea) (((hrv) => (wasntme) => (tmi) => ((bug) => (bug) ((cat) => (drunk) => (drunk))) ((hrv) ((bug) => ((devil) => (heidy) => (facepalm) => (facepalm) (devil) (heidy) ) ((wasntme) (((bug) => (bug) ((cat) => (drunk) => (cat))) (bug))) (((bug) => (bug) ((cat) => (drunk) => (cat))) (bug))) (((devil) => (heidy) => (facepalm) => (facepalm) (devil) (heidy)) (tmi) (tmi)))) (hrv))) (cat))) ((cat) (cat)) (drunk)));

(Отправлять через Skype).

Вот и остальные функции, уже в более простом и естественном виде:

var True = (x) => (y) => x;
var False = (x) => (y) => y;

var If = (p) => (t) => (e) => p(t)(e);
// example: If(True)('foo')('bar')

var Zero = (f) => (x) => x;
var Succ = (n) => (f) => (x) => f(n(f)(x));
var IsZero = (n) => n((x) => False)(True);

var Mul = (n) => (m) => (f) => n(m(f));

var Pair = (a) => (b) => (t) => t(a)(b);
var Fst = (p) => p(True);
var Snd = (p) => p(False);
var Pred = (n) => (s) => (z) => Snd(n((p) => Pair(s(Fst(p)))(Fst(p)) )(Pair(z)(z)));

За тем, как это всё работает — в исходную статью ^[1].
Ну а использовать вот так:

fact(Succ(Succ(Succ(Zero))))(function (x) { return x + 1; })(0); // => 6

(где Succ — прибавление единицы).

Всех с праздником!

Автор: Keyten

Источник ^[2]