solution to 2.53

diff --git a/src/sicp/ex2_53.clj b/src/sicp/ex2_53.clj
new file mode 100644 (file)
index 0000000..9276ad0
--- /dev/null
+++ b/src/sicp/ex2_53.clj
@@ -0,0 +1,13 @@
+(ns sicp.ex2_53
+  (:use [clojure.test]
+        [sicp.ch2_3 :only (memq)]))
+
+(deftest test-quoted-expr
+  (are [x y] [= x y]
+       (list 'a 'b 'c)           '(a b c)
+       (list (list 'george))     '((george))
+       (rest '((x1 x2) (y1 y2))) '((y1 y2))
+       (second '((x1 x2) (y1 y2))) '(y1 y2)
+       (list? (first '(a short list))) false
+       (memq 'red '((red shoes) (blue socks))) false
+       (memq 'red '(red shoes blue socks)) '(red shoes blue socks)))
\ No newline at end of file