FizzBuzz

出力も覚えたし書いてみた。

let fizzbuzz x =
    let f = if x mod 3 = 0 then "Fizz" else "" in
    let b = if x mod 5 = 0 then "Buzz" else "" in
    let fb = f ^ b in
    if fb = "" then string_of_int x else fb
;;

let () = for i = 1 to 100 do
  print_endline (fizzbuzz i)
done
;;

実行結果は省略するけど，うまくいったとだけ書いておく。