Skip to content

Instantly share code, notes, and snippets.

@ryantm

ryantm/newtype FizzBuzz

Last active August 29, 2015 14:05
Show Gist options
  • Save ryantm/b1dd9218e2a391e1e2db to your computer and use it in GitHub Desktop.
Save ryantm/b1dd9218e2a391e1e2db to your computer and use it in GitHub Desktop.
Download ZIP
Haskell Fizzbuzz
Raw
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..])
Raw
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..])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment