(wat-aro)

生きてます

2015-10-05から1日間の記事一覧

SICP 問題1.12

パスカルの三角形のn行目のk番目を求める手続き (define (pascals-triangle n k) (if (or (= k 1) (= n k)) 1 (+ (pascals-triangle (- n 1) (- k 1)) (pascals-triangle (- n 1) k))))

SICP 問題1.11

;; 再帰的プロセス (define (f n) (if (< n 3) n (+ (f (- n 1)) (* 2 (f (- n 2))) (* 3 (f (- n 3)))))) ;; 反復的プロセス (define (g n) ;; iterでは3 ≦ nの時のみの処理.n1 はf(n-1),n2はf(n-2),n3はf(n-3) (define (iter n1 n2 n3 count) (if (= coun…