+の引数を左から右へ評価すると 0 を返し、右から左へ評価すると1を返すような手続きf引数が0の場合、内部変数を0にする手続き (define (make-f init) (lambda (x) (if (= x 0) (begin (set! init 0) init) init))) 左から右へ評価する場合 (define f (make-…

カレーサンド 厚揚げ,大根,ニンジン,椎茸の煮物 鶏ハツのタレ焼き 豚肉とキャベツ炒め カレーサンドは昨日のカレー炒めの残りのトロミを強くして、とろけるチーズと一緒にパンはさんで焼いたもの厚揚げ,大根,ニンジン,椎茸の煮物の作り方 厚揚げ,大根,ニンジ…

3.3で定義したパスワードつきのmake-accountの定義。passwordが同じ時だけmake-jointで共同口座を作れるようにパスワードが正しいかチェックする振る舞いを追加。 (define (make-account balance password) (define (withdraw amount) (if (>= balance amoun…

テスト用のrand-update。超てきとー。 (define (rand-update x) (+ x 1)) randの定義 (define rand (let ((x 1)) (define (reset m) (set! x m)) (define (generate) (begin (set! x (rand-update x)) x)) (define (dispatch m) (cond ((eq? m 'reset) reset…