Skip to content

Instantly share code, notes, and snippets.

@kEND
Forked from redsquirrel/gist:189190
Created September 19, 2009 22:28
Show Gist options
  • Save kEND/189612 to your computer and use it in GitHub Desktop.
Save kEND/189612 to your computer and use it in GitHub Desktop.
Exercise 1.1
SICP 1.1
10
=> 10
(+ 5 3 4)
=> 12
(- 9 1)
=> 8
(/ 6 2)
=> 3
(+ (* 2 4) (- 4 6))
=> 6
(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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment