gistfile1.hs

data FizzBuzz = Number Int
              | Fizz
              | Buzz
              | FizzBuzz

instance Show FizzBuzz where
        show (Number n) = show n
        show Fizz = "Fizz"
        show Buzz = "Buzz"
        show FizzBuzz = "Fizz Buzz"

fizzbuzz :: [FizzBuzz]
fizzbuzz = map fizzbuzz' [1..100]
        where
                fizzbuzz' :: Int -> FizzBuzz
                fizzbuzz' n
                        | n `mod` 15 == 0 = FizzBuzz
                        | n `mod` 3 == 0 = Fizz
                        | n `mod` 5 == 0 = Buzz
                        | otherwise = Number n