首页 > 代码库 > scheme实现匿名递归阶乘(Y组合子)

scheme实现匿名递归阶乘(Y组合子)

(((lambda ()    
    ((lambda (f)
       (f f))
     (lambda (x)
       ((lambda (y)
          (lambda (n)
            (if (zero? n)
                1
                (* n (y (- n 1)))))) (lambda z
                                       (apply (x x) z)))))))5)

Y组合子,具体可以看看wiki