Open Source WEB

##(link2sicp "book-Z-H-14.html#%_thm_2.4" "Exercise 2.4")

解答例

(car (cons x y)) の評価

(car (cons x y))
==> (car (lambda (m) (m x y)))                      ;; cons を定義で置き換え
==> ((lambda (m) (m x y)) (lambda (p q) p))         ;; car  を定義で置き換え
==> ((lambda (p q) p) x y)                          ;; 関数適用
==> x                                               ;; 関数適用

cdr の定義

(define (cdr z)
  (z (lambda (p q) q)))

コード

##(sicp-answer-code "ex-2.4.scm")

このサイトは、 IPA の「平成15年度オープンソフトウエア活用基盤整備事業」 の委託事業として開発されたKahuaで試験的に運用しております。

Copyright (c) 2004-2007 株式会社タイムインターメディア About Us