TypedFizzBuzz

type FizzBuzz =
    | Fizzy of int
    | Buzzy of int
    | FizzBuzzy of int
    | NormalNumber of int

let fizzBuzz x =
    match x with
    | x when (x % 15) = 0 -> FizzBuzzy(x)
    | x when (x % 5)  = 0 -> Buzzy(x)
    | x when (x % 3)  = 0 -> Fizzy(x)
    | _ -> NormalNumber x

let showFizzBuzz x =
    match x with
    | Fizzy x -> "Fizz"
    | Buzzy x -> "Buzz"
    | FizzBuzzy x -> "FizzBuzz"
    | NormalNumber x -> string x

let typedFizzBuzz = [1 .. 100] |> List.map fizzBuzz
let stringFizzBuzz = typedFizzBuzz |> List.map showFizzBuzz