2021-04-01から1ヶ月間の記事一覧
から また から よって (define (even? x) (= (remainder x 2) 0)) (define (fib n) (fib-iter 1 0 0 1 n)) (define (fib-iter a b p q count) (cond ((= count 0) b) ((even? count) (fib-iter a b (+ (* p p) (* q q)) (* q (+ (* p 2) q)) (/ count 2))) …