)を追加
p290
(define (fact n)
(if (= n 0)
1
(* n (fact (- n 1))) ))
(を追加
(cond (P1 E1)
・・・
(Pk Ek)
(else Ek1) )
p301
(reduce * '(1 2 3 4 5) 0)
120
0を1に修正