FizzBuzz F#

fizzbuzz.fsx

// F# FizzBuzz using Active Patterns

let (|DivisibleBy|_|) by n =
    match n%by with
    | 0 -> Some DivisibleBy
    | _ -> None

let fizzbuzz = function
    | DivisibleBy 3 & DivisibleBy 5 -> "FizzBuzz"
    | DivisibleBy 3 -> "Fizz"
    | DivisibleBy 5 -> "Buzz"
    | i -> string i
    
    
// Generate and print the sequence
Seq.map fizzbuzz [1..20] 
    |> Seq.iter (fun x -> printfn "%s" x)