SICP問題1.43
repeatedの定義
(define (repaeted f n) (define (iter g m) (if (> m 1) (iter (compose f g) (- m 1)) g)) (iter f n))
テスト
((repaeted square 2) 5) ; 625
お約束で線形再帰バージョン
(define (repaeted f n) (if (= n 1) f (compose f (repaeted f (- n 1)))))
repeatedの定義
(define (repaeted f n) (define (iter g m) (if (> m 1) (iter (compose f g) (- m 1)) g)) (iter f n))
テスト
((repaeted square 2) 5) ; 625
お約束で線形再帰バージョン
(define (repaeted f n) (if (= n 1) f (compose f (repaeted f (- n 1)))))