2014年9月21日日曜日

開発環境

計算機プログラムの構造と解釈[第2版](ハロルド エイブルソン (著)、ジュリー サスマン (著)、ジェラルド・ジェイ サスマン (著)、Harold Abelson (原著)、Julie Sussman (原著)、Gerald Jay Sussman (原著)、和田 英一 (翻訳)、翔泳社、原書: Structure and Interpretation of Computer Programs (MIT Electrical Engineering and Computer Science)(SICP))の4(超言語的抽象)、4.1(超循環評価器)、4.1.6(内部定義)、問題 4.19.を解いてみる。

その他参考書籍

問題 4.19.

同時定義と見なすべきであり、そうすると、問題4.16で実装した機構を利用することになる。そのとき、

(let ((a 1))
  (define (f x)
    (let ((b '*unassigned*)
          (a '*unassigned*))
      (set! b (+ a x))
      (set! a 5)
      (+ a b)))
  (f 10))

となり、(set! b (+ a x))を評価するとき、aは'*unassignedなので、エラーが発生する。

よって、Alyssaの見方を指示する。

Gaucheの実装はどうなっているか確認。

コード(BBEdit, Emacs)

sample16.scm

#!/usr/bin/env gosh
;; -*- coding: utf-8 -*-

(let ((a 1))
  (define (f x)
    (let ((b '*unassigned*)
          (a '*unassigned*))
      (set! b (+ a x))
      (set! a 5)
      (+ a b)))
  (f 10))

入出力結果(Terminal(gosh), REPL(Read, Eval, Print, Loop))

$ ./sample19.scm
gosh: "error": operation + is not defined between 10 and *unassigned*
$

0 コメント:

コメントを投稿