http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1347295398とりあえず仕様を満たすものをガガッと力任せに書いてみた。 (define (mysum lst) (define (iter lst) (if (null? lst) 0 (let ((head (car lst)) (tail (cdr lst))) (+ (iter tail) (i…

会場提供ありがとうございました 参加は3人 超久しぶりにSICPをやりました。反省 問題5.23 以前やったはずなので復習 ev-cond (assign exp (op cond->if) (reg exp) (goto (label eval-dispatch)) ev-let (assign exp (op let->combination) (reg exp) (goto…