2011-03-15から1日間の記事一覧
main = mapM_ putStrLn $ fizzBuzz 100 fizzBuzz n = map fizzBuzz' [1..n] where fizzBuzz' n | n `mod` 15 == 0 = "FizzBuzz" | n `mod` 5 == 0 = "Buzz" | n `mod` 3 == 0 = "Fizz" | otherwise = show n あれ、なんかずれる…? *1 *1:前はfizzbuzzで挫折…
main = mapM_ putStrLn $ fizzBuzz 100 fizzBuzz n = map fizzBuzz' [1..n] where fizzBuzz' n | n `mod` 15 == 0 = "FizzBuzz" | n `mod` 5 == 0 = "Buzz" | n `mod` 3 == 0 = "Fizz" | otherwise = show n あれ、なんかずれる…? *1 *1:前はfizzbuzzで挫折…