Hi, Am 03.11.2009 um 22:41 schrieb jan:
> (defn for-each [f items]
> (when-not (empty? items)
> (f (first items))
> (recur f (rest items))))
And to not defeat the learning exercise...
(defn for-each
[f items]
(when-let [s (seq items)]
(f (first s))
(recur f (next s))))
Sincerely
Meikel
smime.p7s
Description: S/MIME cryptographic signature
