・9日目のFizzBuzz main = loop [1..100]loop [] = return ()loop (n:ns) = do putStrLn(fizzBuzz n) loop(ns)fizzBuzz n | n `mod` 15 == 0 = "FizzBuzz" | n `mod` 5 == 0 = "Buzz" | n `mod` 3 == 0 = "Fizz" | otherwise = show n 「1日目のFizzBuzz」（…