Guest User

Untitled

a guest
May 27th, 2014
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn do-times [f n]
  2.       (loop [f f
  3.              n n]
  4.             (if (> n 1)
  5.                 (do (f)
  6.                     (recur f (- n 1)))
  7.                 (f))))
Advertisement
Add Comment
Please, Sign In to add comment