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-10.html#%_thm_1.4" "Exercise 1.4")
解答例
(a-plus-abs-b 1 2) ==> ((if (> 2 0) + -) 1 2) ==> ((if #t + -) 1 2) ==> (+ 1 2) ==> 3 (a-plus-abs-b 1 -2) ==> ((if (> -2 0) + -) 1 -2) ==> ((if #f + -) 1 -2) ==> (- 1 -2) ==> 3
コード
##(sicp-answer-code "ex-1.4.scm")