sicp notes

sicp. scm

(define (square x)
    (* x x))

(define (sum-squares x y)
    (+ (square x) (square y)))

(define (test-square)
    (= 144 (square 12)))

(define (test-sum-squares)
    (= 13 (sum-squares 2 3)))

(test-square)
(test-sum-squares)