]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_23.clj
Solution to 4.44. A bit too verbose. Can be improved by better
[sicp.git] / src / sicp / ex2_23.clj
1 (ns sicp.ex2_23
2   (:use [sicp utils]))
3
4 (defn for-each [f lst]
5   (when (not (empty? lst))
6     (do
7       (f (first lst))
8       (recur f (rest lst)))))