Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn fire-x-times
- ([x] (fire-x-times x 0))
- ([x i]
- (if (== i x)
- (println "done")
- ((println "fired" (+ i 1) "times.") (fire-x-times x (inc i))) )))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement