fizzbuzz.fs

module Fizzbuzz

open System

let rangeOfNumbers = [1..100]

let isDivisible number x = (x % number) = 0 
let fizzAndBuzz x = (isDivisible(3) x && isDivisible(5) x)

let answer (number:int) = 
    match number with
    | x when fizzAndBuzz number = true -> printfn "FizzBuzz"
    | x when isDivisible(3) x = true -> printfn "Fizz"
    | x when isDivisible(5) x = true -> printfn "Buzz"
    | _ -> printfn "%A" number

for number in rangeOfNumbers do
     answer number

Console.ReadKey() |> ignore