FizzBuzz

fizzbuzz.hs

{ - if分はスマートに書けねえ・・。
　そんなスマートじゃなくてすいません。 - } 
num x = do
       if x `mod` 3 == 0
        then "fizz"
        else if x `mod` 5 == 0
         then "buzz"
         else if x `mod` 15 == 0
          then "fizzbuzz"
          else show x
fizzbuzz list = unwords $ map num list
main = do
 putStrLn $ fizzbuzz[1..100]
{- ガード条件で書いた方がいいことに気づきました。
　ははは。ふぁぼ -}