RosettaCodeData/Task/Concurrent-computing/Dodo0/concurrent-computing.dodo0

15 lines
191 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
fun parprint -> text, return
(
fork() -> return, throw
println(text, return)
| x
return()
)
| parprint
parprint("Enjoy") ->
parprint("Rosetta") ->
parprint("Code") ->
exit()