Chat (Lingr.com)
Informaiton
Daily
Column
- MySQL日本語の旅(5/1)
- アクセス向上秘伝(5/9)
- 一風変ったHaskellλ門(6/13)
- SICP Answer Book (5/31) 問題3.26追加
Zope Solution
Extra
アーカイブ
OSS案内所
Site Info
関連リンク
##(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")