FsFizzBuzz.fsx

FsFizzBuzz.fsx

let (|Fizz|_|) n = if n % 3 = 0 then Some "Fizz" else None
let (|Buzz|_|) n = if n % 5 = 0 then Some "Buzz" else None

let (|FizzBuzz|_|) n =
    if n % 15 = 0 then Some "FizzBuzz" else None

let fizzBuzz =
    function
    | FizzBuzz fizzbuzz -> fizzbuzz
    | Fizz fizz -> fizz
    | Buzz buzz -> buzz
    | n -> n.ToString()

[ 1..100 ] |> List.iter (fizzBuzz >> printfn "%s")