mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
24 lines
590 B
JavaScript
24 lines
590 B
JavaScript
/* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/. */
|
|
|
|
// The Y combinator, applied to the factorial function
|
|
|
|
function factorial(proc) {
|
|
return function (n) {
|
|
return (n <= 1) ? 1 : n * proc(n-1);
|
|
}
|
|
}
|
|
|
|
function Y(outer) {
|
|
function inner(proc) {
|
|
function apply(arg) {
|
|
return proc(proc)(arg);
|
|
}
|
|
return outer(apply);
|
|
}
|
|
return inner(inner);
|
|
}
|
|
|
|
print("5! is " + Y(factorial)(5));
|