FizzBuzz

FSharp.fs

// inspired by FizzBuzz in Haskell by Embedding a Domain-Specific Language 
// https://themonadreader.files.wordpress.com/2014/04/fizzbuzz.pdf 
let fizzbuzz (number:int):string =
    let test (d:int) (s:string) (x:string->string) = if number % d = 0 then (fun _ -> s + x("")) else x
    let fizz = (fun (x:string->string) -> test 3 "Fizz" x)
    let buzz = (fun (x:string->string) -> test 5 "Buzz" x)
    ((fun z -> z) |> buzz |> fizz) (number.ToString());