作者 Anonymous [scheme] 2012-03-17 20:13 (点击下载)

(define (Y g)
  ((lambda (rec)
     (display "Calling CodeB")
     (newline)
     (g (lambda arg
          (apply (rec rec) arg))))
   (lambda (recur)
     (display "Calling CodeB'")
     (newline)
     (g (lambda args
          (apply (recur recur) args))))))
 
(define (h f)
  (lambda (n)
    (if (= n 0)
      1
      (* n (f (- n 1))))))