acount-numberをどう管理するか迷った. 大域変数で管理するか balanceと同じように，口座を作るときに，指定するか. 今回は1を選択した. ;;exercise3.48 (define account-number 1) (define (make-accout-and-serializer balance) (define (withdraw amount)…

プロンプトの表示などでちょっと長いけれど載せちゃう. delay, cons-streamはマクロで定義しなければいけないところではまった. naoya_tさんのstream.scmを見て救われた. ;;exercise3.50 (define (stream-map proc . argstreams) (if (stream-null? (car arg…