FizzBuzz

FizzBuzz.fs

let FizzBuzz i =
    let rec inner i c =
        printf "%d:\t" c
        if c % 3 = 0 then printf "Fizz"
        if c % 5 = 0 then printf "Buzz"
        printfn ""
        if c < i then c + 1 |> inner i else ()
    inner i 1

let KarlFizzBuzz i =
    let rec inner i c =
        match c with
        | c when c % 15 = 0 -> printfn "FizzBuzz"
        | c when c % 3 = 0 -> printfn "Fizz"
        | c when c % 5 = 0 -> printfn "Buzz"
        | _ -> printfn "%d" c
        if c < i then c + 1 |> inner i else ()
    inner i 1
        
FizzBuzz 15
KarlFizzBuzz 15