Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- def REPEATS 100
- (def v [(atom 0)(atom 0)(atom 0)(atom 0)(atom 0)(atom 0)(atom 0)(atom 0)(atom 0)(atom 0)])
- (dotimes [_ REPEATS] (swap! (nth v (rand-int 10)) inc))
- (map #(do(dotimes [_ @%] (print "|"))(println)) v)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement