Task

Using either native language concurrency syntax or freely available libraries, write a program to display the strings "Enjoy" "Rosetta" "Code", one string per line, in random order.

Concurrency syntax must use threads, tasks, co-routines, or whatever concurrency is called in your language.




module Seq =     
    let piter f xs =
        seq { for x in xs -> async { f x } }
        |> Async.Parallel
        |> Async.RunSynchronously
        |> ignore
 
let main() =  Seq.piter 
                (System.Console.WriteLine:string->unit)
                ["Enjoy"; "Rosetta"; "Code";]
 
main()