RosettaCodeData/Task/Concurrent-computing/Clojure/concurrent-computing-2.clj
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

5 lines
196 B
Clojure

(require '[clojure.core.async :refer [go <! timeout]])
(doseq [text ["Enjoy" "Rosetta" "Code"]]
(go
(<! (timeout (rand-int 1000))) ; wait a random fraction of a second,
(println text)))