- 75 名前：仕様書無しさん mailto:sage [2008/05/06(火) 17:43:07 ]
- haskell勉強してみたw
module Main where
main = do
putStrLn $ fizz_buzz [1..100]
fizz_buzz [] = []
fizz_buzz (x:xs) = fizz_buzz_chk x ++ "\n" ++ fizz_buzz xs
fizz_buzz_chk x | x `mod` 15 == 0 = "FizzBuzz"
| x `mod` 3 == 0 = "Fizz"
| x `mod` 5 == 0 = "Buzz"
| otherwise = show x
