solution to 2.23

diff --git a/src/sicp/ex2_23.clj b/src/sicp/ex2_23.clj
new file mode 100644 (file)
index 0000000..36b04e6
--- /dev/null
+++ b/src/sicp/ex2_23.clj
@@ -0,0 +1,8 @@
+(ns sicp.ex2_23
+  (:use [sicp utils]))
+
+(defn for-each [f lst]
+  (when (not (empty? lst))
+    (do
+      (f (first lst))
+      (recur f (rest lst)))))
\ No newline at end of file