FizzBuzzなるものを書く

F#

よくTLで見る神々がやっていたので、つい。
matchに複数条件かませられるとか初めて知った・・・

let fizzBuzz x = 
    match x%3 = 0, x%5 = 0 with
    |true, true  -> "FizzBuzz"
    |true, false -> "Fizz"
    |false, true -> "Buzz"
    |_ -> string x
;;
[1..30] |> List.map fizzBuzz;;

実行結果は

val it : string list =
  ["1"; "2"; "Fizz"; "4"; "Buzz"; "Fizz"; "7"; "8"; "Fizz"; "Buzz"; "11";
   "Fizz"; "13"; "14"; "FizzBuzz"; "16"; "17"; "Fizz"; "19"; "Buzz"; "Fizz";
   "22"; "23"; "Fizz"; "Buzz"; "26"; "Fizz"; "28"; "29"; "FizzBuzz"]


神々の作品(メモついて）