最初のページ 戻る 次へ 最後のページ 画像

テキストの修正

 

)を追加

p290

(define (fact n)

 (if (= n 0)

1

(* n (fact (- n 1))) ))

(を追加

p290

(cond (P1 E1)

・・・

   (Pk Ek)

(else Ek1) )

p301

(reduce * '(1 2 3 4 5) 0)

120

0を1に修正