morris555's diary

高校生のブログです。

2012-03-31から1日間の記事一覧

一行でFizzBuzz

こんな事は既にやってる人がたくさんいると思いますが…… putStrLn $ show $ map (let fizzBuzz x | 0 == (x `mod` 3) && 0 == (x `mod` 5) = "FizzBuzz" | 0 == (x `mod` 3) = "Fizz" | 0 == (x `mod` 5) = "Buzz" | otherwise = show x in fizzBuzz) [1..10…