Serendip

Web Studio

問題3.14

最初の v の箱とポインタ図。

loop を実行していく時の箱とポインタ図の変化。

mystery 実行後の v と w の箱とポインタ図。

(define (mystery x)
  (define (loop x y)
    (if (null? x)
        y
        (let ((temp (cdr x)))
             (set-cdr! x y)
             (loop temp x))))
  (loop x '()))

(define v (list 'a 'b 'c 'd))
v
gosh> (a b c d)
(define w (mystery v))
v
gosh> (a)
w
gosh> (d c b a)

計算機プログラムの構造と解釈

posted with amazlet at 08.11.07

ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542

Amazon.co.jp で詳細を見る