Haskell Fizzbuzz

newtype FizzBuzz

newtype FizzBuzz = FizzBuzz Int

instance Show FizzBuzz where
   show (FizzBuzz i)
     | iDivisibleBy 15 = "Fizz Buzz"
     | iDivisibleBy 5 = "Buzz"
     | iDivisibleBy 3 = "Fizz"
     | otherwise = show i
     where
       iDivisibleBy n = i `rem` n == 0
                             
main :: IO ()
main = print $ take 15 (map FizzBuzz [1..])

simple

fizzBuzz :: Integer -> String
fizzBuzz i
  | iDivisibleBy 15 = "Fizz Buzz"
  | iDivisibleBy 5 = "Buzz"
  | iDivisibleBy 3 = "Fizz"
  | otherwise = show i
  where
    iDivisibleBy n = i `rem` n == 0
                             
main :: IO ()
main = print $ take 15 (map fizzBuzz [1..])