Serendip

Web Studio

問題4.11

(define (make-frame variables values)
  (define (make-frame-iter variables values)
    (if (null? variables)
        '()
        (cons (cons (car variables)
                    (car values))
              (make-frame-iter (cdr variables)
                               (cdr values)))))
  (make-frame-iter variables values))

(define (frame-variables frame)
  (if (null? frame)
      '()
      (cons (caar frame)
            (frame-variables (cdr frame)))))

(define (frame-values frame)
  (if (null? frame)
      '()
      (cons (cdar frame)
            (frame-values (cdr frame)))))

(define (add-binding-to-frame! var val frame)
  (set-cdr! frame (cons (cons var val) (cdr frame))))

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

posted with amazlet at 08.11.07

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

Amazon.co.jp で詳細を見る