2007-09-26から1日間の記事一覧
1章が終わった! ;;復習 ;m1.39を何も見ないで解く。 (define (cont-frac n d k op) (define (iter result k) (let ((dk (d k)) (nk (n k))) (cond ((= k 0) result) (else ;(display dk) ;(newline) (iter (/ nk (op dk result)) (- k 1)))))) (iter 0 k)) …
1章が終わった! ;;復習 ;m1.39を何も見ないで解く。 (define (cont-frac n d k op) (define (iter result k) (let ((dk (d k)) (nk (n k))) (cond ((= k 0) result) (else ;(display dk) ;(newline) (iter (/ nk (op dk result)) (- k 1)))))) (iter 0 k)) …