2008-04-14から1日間の記事一覧
まずは、再帰的手続きで。 (define (cont-frac n d k) (define (iter i) (if (= i k) (/ (n i) (d i)) (/ (n i) (+ (d i) (iter (+ i 1)))))) (trace iter) (iter 1)) つぎに、反復的手続きで (define (cont-frac n d k) (define (iter result i) (if (= i 0…
まずは、再帰的手続きで。 (define (cont-frac n d k) (define (iter i) (if (= i k) (/ (n i) (d i)) (/ (n i) (+ (d i) (iter (+ i 1)))))) (trace iter) (iter 1)) つぎに、反復的手続きで (define (cont-frac n d k) (define (iter result i) (if (= i 0…