2009-05-21から1日間の記事一覧
;;再帰的プロセス (define (cont-frac n d k) (if (= k 0) 1 (/ (n k) (+ (d k) (cont-frac n d (- k 1)))))) (trace cont-frac) (cont-frac (lambda (i) 1.0) (lambda (i) 1.0) 10) ;;反復的プロセス (define (cont-frac n d k) (let loop ((result (/ (n k…
((lambda (x) (let ((x 3) (y (+ x 2))) (* x y))) 2) => 12 ((lambda (x) (let* ((x 3) (y (+ x 2))) (* x y))) 2) => 15