2007-09-25から1日間の記事一覧
(更新したのは26日です。upするの忘れてました><) ;1.3.2 (define (sum term a b next) (if (> a b) 0 (+ (term a) (sum term (next a) b next)))) (define (integral f a b dx) (* (sum f (+ a (/ dx 2.0)) b (lambda (x) (+ x dx))) dx)) ;;gosh> (integ…
(更新したのは26日です。upするの忘れてました><) ;1.3.2 (define (sum term a b next) (if (> a b) 0 (+ (term a) (sum term (next a) b next)))) (define (integral f a b dx) (* (sum f (+ a (/ dx 2.0)) b (lambda (x) (+ x dx))) dx)) ;;gosh> (integ…