問題 4.20 は a のみ、とゆー事で。先に試験を一つだけ作成。 ("4.20" ("example" (let ((l '(letrec ((fact (lambda (n) (if (= n 1) 1 (+ n (fact (- n 1))))))) (fact 10))) (r '(let ((fact '*unassigned*)) (set! fact '(lambda (n) (if (= n 1) 1 (+ n…

問題 4.21 の a の Fibonacci 数列なソレを以下に。手続きを渡せる、というのは凄いな。てか、これって自前の eval で評価するとどうなるのかな。 (define fibo (lambda (n) ((lambda (fib) (fib fib n)) (lambda (fb k) (cond ((= k 0) 0) ((= k 1) 1) (els…