読者です 読者をやめる 読者になる 読者になる

(wat-aro)

無職から有職者にランクアップしました

SICP 問題 3.33

入力として三つのコネクタa,b,cをとり,cの値がaとbの値の平均であるような制約を達成する手続きaverager.
adderとmultiplierを繋ぐコネクタをp.
定数2に繋がるコネクタをxとした.

(define (averager a b c)
  (let ((x (make-connector))
        (p (make-connector)))
    (adder a b p)
    (multiplier c x p)
    (constant 2 x)
    'ok))