sicp.scm

;; Exercise 1.1

10                     ;Value: 10

(+ 5 3 4)              ;Value: 12

(- 9 1)                ;Value: 8

(/ 6 2)                ;Value: 3

(+ (* 2 4) (- 4 6))    ;Value: 6

(define a 3)           ;Value: a

(define b (+ a 1))     ;Value: b

(+ a b (* a b))        ;Value: 19

(= a b)                ;Value: #f

(if (and (> b a) (< b (* a b)))
    b 
    a)                 ;Value: 4

(cond ((= a 4) 6)
      ((= b 4) (+ 6 7 a))
      (else 25))       ;Value: 16

(+ 2 (if (> b a) b a)) ;Value: 6

(* (cond ((> a b) a)
         ((< a b) b)
         (else -1)) 
   (+ a 1))            ;Value: 16





;; Exercise 1.2

(/ (+ 5 
      4
      (- 2
         (- 3
            (+ 6
               (/ 4 5))))) 
   (* 3
      (- 6 2)
      (- 2 7)))
;Value: -37/150





;; Exercise 1.3
;; Define a procedure that takes three numbers as arguments and
;; returns the sum of the squares of the two larger numbers.


(define (larger-two-square-sum a b c)
  (define (square x) (* x x))
  (- (+ (square a)
        (square b)
        (square c))
     (square (min a b c))))

(larger-two-square-sum 4 5 6)
;Value: 61