fizzBuzz.hs

import Control.Monad

main = do
  putStrLn "数字を入力"
  numStr <- getLine       -- 文字列として数値を受け取る
  let num = read numStr   -- `read`は文字列を数値に変換する関数
  showNums num

showNums num = do
  forM_ [1..num] $ \i ->
    putStrLn (show i ++ " : " ++ judgeNum i)

judgeNum i = 
  case mod i 15 of
    0 -> "FizzBuzz"
    3 -> "Fizz"
    5 -> "Buzz"
    6 -> "Fizz"
    9 -> "Fizz"
    10 -> "Buzz"
    12 -> "Fizz"
    _ -> ""