text examples until 2.3.2

diff --git a/src/sicp/ch2_3.clj b/src/sicp/ch2_3.clj
new file mode 100644 (file)
index 0000000..28df094
--- /dev/null
+++ b/src/sicp/ch2_3.clj
@@ -0,0 +1,7 @@
+(ns sicp.ch2_3)
+
+(defn memq [item x]
+  (cond
+    (empty? x) false
+    (= (first x) item) x
+    :else (memq item (rest x))))
\ No newline at end of file