Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn runLoop
- []
- (loop [i 0 cnt 0]
- (when (< i 1001)
- (if (factor i 3)
- (recur (inc i) (inc cnt))
- (recur (inc i) cnt)
- ))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement