No title

1
2
3
4
5
6
7
8
9
data FizzBuzzType = FizzBuzz | Fizz | Buzz | Integral deriving Show

fizzbuzz :: (Integral a) => a -> FizzBuzzType

fizzbuzz x
	| x `mod` 15 == 0 = FizzBuzz
	| x `mod` 5 == 0 = Fizz
	| x `mod` 3 == 0 = Buzz
	| otherwise = x