F# FizzBuzz

fizzbuzz.fsx

let numbers = [ 1..100 ]
 
let isDivisibleBy3 x = 
    match x % 3 with
    | 0 -> true
    | _ -> false
 
let isDivisibleBy5 x = 
    match x % 5 with
    | 0 -> true
    | _ -> false
 
let isDivisibleBy3And5 x = (isDivisibleBy3 x && isDivisibleBy5 x)
 
let fizzbuzz x = 
    match x with
    | (y) when isDivisibleBy3And5 y -> printfn "FizzBuzz"
    | (y) when isDivisibleBy3 y -> printfn "Fizz"
    | (y) when isDivisibleBy5 y -> printfn "Buzz"
    | _ -> printfn "%d" x     
 
for i in numbers do
    fizzbuzz i