FizzBuzz1.fs

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 =
 match n with
 | Fizz f & Buzz b -> f + b
 | Fizz f -> f
 | Buzz b -> b
 | _ -> string n

[ for i in 1 .. 15 do FizzBuzz i ]