SICP問題1.11後半
昨日の問題。
会社で考えてみたらすぐ解決した。
(define (f x) (g 2 1 0 x)) (define (g a b c n) (cond ((< n 2) n) ((= n 2) a) (else (g (+ a (* 2 b) (* 3 c)) a b (- n 1)))))
これなら問題ないはず。
考えてみたら、やはり大したことなった。
しかし、家より会社の方が捗るな…
昨日の問題。
会社で考えてみたらすぐ解決した。
(define (f x) (g 2 1 0 x)) (define (g a b c n) (cond ((< n 2) n) ((= n 2) a) (else (g (+ a (* 2 b) (* 3 c)) a b (- n 1)))))
これなら問題ないはず。
考えてみたら、やはり大したことなった。
しかし、家より会社の方が捗るな…