solution to 2.25
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sat, 10 Jul 2010 06:55:56 +0000 (12:25 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sat, 10 Jul 2010 06:55:56 +0000 (12:25 +0530)
src/sicp/ex2_25.clj [new file with mode: 0644]

diff --git a/src/sicp/ex2_25.clj b/src/sicp/ex2_25.clj
new file mode 100644 (file)
index 0000000..cf98aca
--- /dev/null
@@ -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