SICP問題1.1

ということで早速問題を解いていく。
システムが返した値はコメントアウトされてる部分。

10
; => 10
(+ 5 3 4)
; => 12
(- 9 1)
; => 8
(/ 6 2)
; => 3
(define a 3)
; => a
(define b (+ a 1))
; => b
(+ 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