From: Ramakrishnan Muthukrishnan Date: Sat, 10 Jul 2010 06:55:56 +0000 (+0530) Subject: solution to 2.25 X-Git-Url: https://git.rkrishnan.org/simplejson/components/COPYING.GPL?a=commitdiff_plain;h=fc8088e3bd029a9f877dee8266ae225657d683a4;p=sicp.git solution to 2.25 --- diff --git a/src/sicp/ex2_25.clj b/src/sicp/ex2_25.clj new file mode 100644 index 0000000..cf98aca --- /dev/null +++ b/src/sicp/ex2_25.clj @@ -0,0 +1,6 @@ +(ns sicp.ex2_25) + +;; to pick 7 +(first (rest (first (rest (rest '(1 3 (5 7) 9)))))) +(first (first '((7)))) +(first (rest (first (rest (first (rest (first (rest (first (rest (first (rest '(1 (2 (3 (4 (5 (6 7)))))))))))))))))) \ No newline at end of file