RosettaCodeData/Task/Concurrent-computing/PicoLisp/concurrent-computing-1.l
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

5 lines
332 B
Text

(for (N . Str) '("Enjoy" "Rosetta" "Code")
(task (- N) (rand 1000 4000) # Random start time 1 .. 4 sec
Str Str # Closure with string value
(println Str) # Task body: Print the string
(task @) ) ) # and stop the task