a guest Sep 11th, 2012 25 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (defn counter [init-lst]
- (loop [c 0, lst init-lst]
- (if (empty? lst)
- (recur (rest lst) (inc c)))))
RAW Paste Data