#:g1: CADRでSICP 1.2

Posted 2007-04-24 15:13:00 GMT

CADRでSICP Exercise 1.2.に挑戦 - Structure and Interpretation of Computer Programs

Exercise 1.2
(5 + 4 + (2 - (3 - (6 + 4/ 5))))/ (3 * (6 - 2) * (2 - 7))
を前置記法で書け。

解答
(// (+ 5 4 (- 2 (- 3 (+ 6 (// 4 5)))))
    (* 3 (- 6 2) (- 2 7)))
//となっているのは、Maclisp〜LISP Machine LISP〜
Zetalispでは、/はエスケープ文字となっているため。
ちなみに(// 4 5)の結果は、0.となる。

comments powered by Disqus