Advertisement
Guest User

Untitled

a guest
Sep 11th, 2012
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn counter [init-lst]
  2.   (loop [c 0, lst init-lst]
  3.     (if (empty? lst)
  4.       c
  5.       (recur (rest lst) (inc c)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement