Profile
cobodo cobodo@qiitadon.com
FizzBuzz違うの書いた
module Main where
data FB = Fizz | Buzz | FizzBuzz | N Int
deriving Show
toFB :: Int -> FB
toFB x
| x `mod` 15 == 0 = FizzBuzz
| x `mod` 5 == 0 = Buzz
| x `mod` 3 == 0 = Fizz
| otherwise = N x
main :: IO ()
main = print $ map toFB [1..100]