・8日目のFizzBuzz main = mapM_ putStrLn (take 100 fizzBuzz)fizzBuzz = map fizzBuzzString [1..]fizzBuzzString x | x `mod` 15 == 0 = "FizzBuzz" | x `mod` 5 == 0 = "Buzz" | x `mod` 3 == 0 = "Fizz" | otherwise = show x 「HaskellらしいFizzBuzz…