This commit is contained in:
brendan%mozilla.org 2005-09-24 01:53:12 +00:00
Родитель 598fbd60e9
Коммит b6f6d30bdc
1 изменённых файлов: 19 добавлений и 0 удалений

19
js/src/Y.js Normal file
Просмотреть файл

@ -0,0 +1,19 @@
// 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));