問題1.1

SICP

http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-10.html#%_sec_1.1.6

以下、問題の(僕の)解答です。

僕の解答

10 ;=> 10
(+ 5 3 4) ;=> 12
(- 9 1) ;=> 8
(/ 6 2) ;=> 3
(+ (* 2 4) (- 4 6)) ;=> 6
(define a 3) ;=> #<void> (chez scheme)
(define b (+ a 1)) ;=> #<void> (chez scheme)
(+ a b (* a b)) ;=> 19
(= a b) ;=> #f
(if (and (> b a) (< b (* a b)))
    b
    a) ;=> 4
(cond ( (= a 4) 6)
      ( (= b 4) (+ 6 7 a))
      (else 25)) ;=> 16
(+ 2 (if (> b a) b a)) ;=> 6
(* (cond ( (> a b) a)
         ( (< a b) b)
         (else -1))
   (+ a 1)) ;=> 16

解答例

所感

defineの戻り値(？)は処理系依存なのかなぁ？