問題5.45 push回数 n 翻訳版 解釈版 翻訳版と解釈版の比率 特殊目的版 翻訳版と特殊目的版の比率 3 19 80 4.211 4 0.211 4 25 112 4.480 6 0.240 5 31 144 4.645 8 0.258 6 37 176 4.757 10 0.270 7 43 208 4.837 12 0.279 8 49 240 4.898 14 0.286 30 181…続きを読む
翻訳したコードを受け取った場合の処理を追加し、コードを翻訳して REPL 呼び出す手続きを追加する。 実行には以下のファイル群を利用する。 compiler.scm (5.5節の翻訳系) ece4compiler.scm (5.4節の積極制御評価器計算機) eval4ece.scm (4.1節の超循環評価器) register_machine.scm (5.2節のレジスタ計算機) これらをまとめた…続きを読む
問題5.44 compile の振り分け時に定義が上書きされているかを調べる。 (define (compile exp target linkage ct-env) ;; 省略 ((open-code-operator? exp ct-env) (compile-open-code exp target linkage ct-env)) ;; 省略 (else (error "Unkn…続きを読む
問題5.43 4.1.6節の問題4.16で作った scan-out-defines を compile-lambda-body に組み込む (define (compile-lambda-body exp proc-entry ct-env) (let ((formals (lambda-parameters exp))) (append-instruction-sequences (make-i…続きを読む
問題5.42 (define (compile exp target linkage ct-env) ;; 省略 ((variable? exp) (compile-variable exp target linkage ct-env)) ;; 省略 (else (error "Unknown expression type — COMPILE" exp)))) (defin…続きを読む
問題5.41 (define (find-variable var ct-env) (define (frame-iter var frames frame-number) (if (null? frames) ‘not-found (let ((addr (scan-iter var (car frames) frame-number 0))) (if (null? addr) (frame-i…続きを読む
演習2-10 #include <stdio.h> int lower(int c); int main(int argc, char *argv[]) { int c; while((c = getchar()) != EOF) { putchar(lower(c)); } return 0; } int lower(int c) { return (c >= ‘A’ &…続きを読む
問題5.40 (define (compile-lambda-body exp proc-entry ct-env) (let ((formals (lambda-parameters exp))) (append-instruction-sequences (make-instruction-sequence ‘(env proc argl) ‘(env) `(,proc-entry (assi…続きを読む
2.10 代入演算子と式 /* 右端のビットが 1 の場合 b をインクリメントする * x = 141 : 1000 1101 => 141 inc * x >>= 1 : 0100 0110 => 70 * x >>= 1 : 0010 0011 => 35 inc * x >>= 1 : 0001 0001 => 17 inc * …続きを読む
問題5.39 (define (lexical-address-frame-number lexical-address) (car lexical-address)) (define (lexical-address-displacement-number lexical-address) (cadr lexical-address)) (define (make-lexical-address…続きを読む