FizzBuzz.fsx

gistfile1.ml

// ----------------------------------------------------------------------
// Synchronous (useful)
let fizzbuzz n = 
    match n with
    | n when (n % 3 = 0) -> printfn "Fizz"
    | n when (n % 5 = 0) -> printfn "Buzz"
    | n -> printfn "%d" n

[1..100] |> Seq.iter (fun n -> fizzbuzz n)

// ----------------------------------------------------------------------
// Async (not useful)
let fizzbuzz n = 
    match n with
    | n when (n % 3 = 0) -> printfn "Fizz"
    | n when (n % 5 = 0) -> printfn "Buzz"
    | n -> printfn "%d" n

[1..100] 
|> Seq.map (fun n -> async { fizzbuzz n } ) 
|> Async.Parallel
|> Async.RunSynchronously