とりゃっとちょっと言ってみた． 今回の問題は簡単?だった． 変更点 make-machine make-assign make-save make-primitive-procedure 方針としては make-machine変数の数を減らす {make-assign, make-save, make-primitive}を実行するときにそのレジスタが作…

もっとスマートにやりたいものです... assembleが実行されるときに一緒に作られるようにした． なので，それぞれの命令に追加した. (define (make-machine register-names operations controller-text) (let ((machine (make-new-machine))) (for-each (lamb…

SICPと関係ないけれど，早く夏が終わらないかなぁ..... a (define fib-machine (make-machine '(continue val n) (list (list '< <) (list '= =) (list '- -) (list '+ +) (list 'print print)) '(controller (assign continue (label fib-done)) fib-loop (…