2008-10-14から1日間の記事一覧

おやすみSICP

問題文を読めばよい ;;;q1.16 冪乗 ;;; $Id$ ;;;線形 (define (beki n c) (if (= c 0) 1 (* n (beki n (- c 1))) ) ) ;;(even? 2) ;;even?はあるらしい。 ;;(remainder hoge hoge)を使用せよとSICPにはあるが。 ;;;even?で省力するタイプ (define (square n)…

1.2あたり

;;;q1.23 ;;;prime-next (define (prime-next n) (if (= n 2) 3 (+ n 2) ) ) ;;;+1していた物をprime-nextに置換えしたprime?内蔵 (define (prime?-clever n) (define (prime?-itr n c) (cond ((= (remainder n c) 0) #f) ((>= c (/ n c)) #t) (else (prime…