RosettaCodeData/Task/Concurrent-computing/PicoLisp/concurrent-computing-1.l

6 lines
332 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(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