js/src/Y.js

changeset 0
6474c204b198
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/js/src/Y.js	Wed Dec 31 06:09:35 2014 +0100
     1.3 @@ -0,0 +1,14 @@
     1.4 +/* This Source Code Form is subject to the terms of the Mozilla Public
     1.5 + * License, v. 2.0. If a copy of the MPL was not distributed with this
     1.6 + * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
     1.7 +
     1.8 +// The Y combinator, applied to the factorial function
     1.9 +
    1.10 +// Return the function that is the fixed point of f.
    1.11 +var Y = f => (x => f(v => x(x)(v)))
    1.12 +             (x => f(v => x(x)(v)));
    1.13 +
    1.14 +// The factorial function is the fixed point of this:
    1.15 +var f = fac => n => (n <= 1) ? 1 : n * fac(n - 1);
    1.16 +
    1.17 +print("5! is " + Y(f)(5));

mercurial