From 459fe71b0c615f97e2d3da95de8ede45d834712d Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Thu, 2 Sep 2010 01:24:55 +0530 Subject: [PATCH] text examples until 2.3.2 --- src/sicp/ch2_3.clj | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 src/sicp/ch2_3.clj diff --git a/src/sicp/ch2_3.clj b/src/sicp/ch2_3.clj new file mode 100644 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 -- 2.45.2