.NET Fiddle

FSharp · Script

/Program.fs

(*let (|FizzBuzz|Fizz|Buzz|Number|) = function
  | value when value % 15 = 0 -> FizzBuzz
  | value when value % 3 = 0 -> Fizz
  | value when value % 5 = 0 -> Buzz
  | value -> Number value

let getNumbers start finish = seq { start..finish }

let print = function
  | FizzBuzz -> printfn "FizzBuzz"
  | Fizz -> printfn "Fizz"
  | Buzz -> printfn "Buzz"
  | Number value -> printfn "%d" value

getNumbers 1 100
|> Seq.iter print*)

let fizzBuzz value = 
  match value with
  | value when value % 15 = 0 -> printfn "FizzBuzz"
  | value when value % 3 = 0 -> printfn "Fizz"
  | value when value % 5 = 0 -> printfn "Buzz"
  | value -> printfn "%d" value

seq { 1..100 }
|> Seq.iter fizzBuzz