問題4.11 – SICP(計算機プログラムの構造と解釈)その183

問題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))))
計算機プログラムの構造と解釈
ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542
«
»