2018-04-07T02:10:47.000+09:00

F# でFizzBuzz

F#でFizzBuzzを書く。

let fizz x = x % 3 = 0
let buzz x = x % 5 = 0
    
let fizzBuzz x =
    match x with
        | _ when ( (fizz x) && (buzz x) ) -> "FizzBuzz"
        | _ when (fizz x) -> "Fizz"
        | _ when (buzz x) -> "Buzz"
        | _ -> string x

seq {1 .. 100}
    |> Seq.iter (fun x -> printfn "%s" (fizzBuzz x))
    |> ignore

Haskellを事前に学んでおいたおかげで、F#も比較的すぐに書きはじめられた。