RosettaCodeData/Task/Concurrent-computing/Clojure/concurrent-computing-2.clj

6 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)))