2009-06-11から1日間の記事一覧
;;exercise3-33 (load "./section3-3-5.scm") (define (averager a b c) (let ((u (make-connector)) (w (make-connector))) (adder a b u) (multiplier w c u) (constant 2.0 w) 'ok)) ;;other (define (averager a b c) (let ((u (make-connector)) (w (ma…