Scheme 初学(5) 不用letrec 只用let定义的even?函数

the scheme programming language 的一道习题(3.2.3)，不用letrec定义even?函数。

let是Scheme语言里的一个语法，定义一个函数，不能递归定义。

letrec是let的“加强版”，可以在letrec里递归定义函数，

letrec的介绍里就用的even?做示例，示范letrec?的用法。

如下：

(letrec ([even?
          (lambda (x)
            (or (= x 0)
                (odd? (- x 1))))]
         [odd?
          (lambda (x)
            (and (not (= x 0))
                 (even? (- x 1))))])
  (even? 20))

下边是用let定义的，其实也就是用lambda把函数传来传去而已，

最后调用时even函数把自己传给自己，变相的通过lambda表达式递归调用了一下。

(let ((even (lambda (f x)
              (let ((odd (lambda (g x)
                           (and (not (= x 0)) (f g (- x 1))))))
                   (or (= x 0) (odd f (- x 1)))))))
(even even 10))

reference: