13 lines
292 B
Forth
13 lines
292 B
Forth
|
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()
|