7日目のFizzBuzz

・7日目のFizzBuzz

main = sequence_ [putStrLn $ fizzBuzz n | n <- [1..100]]
fizzBuzz x
    | x `mod` 15 == 0 = "FizzBuzz"
    | x `mod`  5 == 0 = "Buzz"
    | x `mod`  3 == 0 = "Fizz"
    | otherwise       = show x

　「アクション」（「IOモナド」？）そのものをリストに入れる、という技を覚えた！　意味はまだわからない（笑）。