2007-05-02から1日間の記事一覧
問題 1.31 product(積)版を書いてを計算せよという問題 (define (product term a next b) (if (> a b) 1 (* (term a) (exact->inexact (product term (next a) next b))))) (define (getpi n) (define (pi-term x) (if (even? x) (/ (+ x 2) (+ x 1)) (/ (+ …
問題 1.31 product(積)版を書いてを計算せよという問題 (define (product term a next b) (if (> a b) 1 (* (term a) (exact->inexact (product term (next a) next b))))) (define (getpi n) (define (pi-term x) (if (even? x) (/ (+ x 2) (+ x 1)) (/ (+ …