gistfile1.fs

let FizzBuzz n convert = 
    [1..n] |> List.map convert |> String.concat ","

let (|DivizableBy|_|) divizor i =
    if i % divizor = 0 then Some() else None

let NumberToString = function
    | DivizableBy 3 & DivizableBy 5 ->  "FizzBuzz"
    | DivizableBy 3 ->                  "Fizz"
    | DivizableBy 5 ->                  "Buzz"
    | n -> string n