solution to 2.25

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