;再帰 (define (f n) (if (< n 3) n (+ (f (- n 1)) (* 2 (f (- n 2))) (* 3 (f (- n 3)))))) ;反復 (define (f x) (define (iter p pp ppp count) (if (< count 3) p (iter (+ p (* 2 pp) (* 3 ppp)) p pp (- count 1)))) (if (< x 3) x (iter 2 1 0 x))) 1…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。