Skip to content

Instantly share code, notes, and snippets.

@rinx

rinx/fizzbuzz.hs

Created February 26, 2013 09:41
Show Gist options
  • Save rinx/5037307 to your computer and use it in GitHub Desktop.
Save rinx/5037307 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fizzbuzz.hs
fb :: Int -> String
fb x
| x `mod` 15 == 0 = "FizzBuzz"
| x `mod` 3 == 0 = "Fizz"
| x `mod` 5 == 0 = "Buzz"
| otherwise = show x
fizzbuzz n = [ fb x | x <- [1..n]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment