Skip to content

Instantly share code, notes, and snippets.

@orclev

orclev/fizzbuzz.hs

Created November 30, 2012 20:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save orclev/4178425 to your computer and use it in GitHub Desktop.
Save orclev/4178425 to your computer and use it in GitHub Desktop.
Download ZIP
FizzBuzz in Haskell
Raw
fizzbuzz.hs
fbshow :: Int -> String
fbshow i | i `mod` 15 == 0 = "FizzBuzz"
| i `mod` 3 == 0 = "Fizz"
| i `mod` 5 == 0 = "Buzz"
| otherwise = show i
main :: IO ()
main = mapM_ (putStrLn . fbshow) [1 .. 100]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment