]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_25.clj
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex2_25.clj
1 (ns sicp.ex2_25)
2
3 ;; to pick 7
4 (first (rest (first (rest (rest '(1 3 (5 7) 9))))))
5 (first (first '((7))))
6 (first (rest (first (rest (first (rest (first (rest (first (rest (first (rest '(1 (2 (3 (4 (5 (6 7))))))))))))))))))