Skip to content

Instantly share code, notes, and snippets.

@leshow

leshow/fizz.hs

Created April 8, 2018 22:29
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save leshow/d10a61c8644854e17102edf93f51f511 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save leshow/d10a61c8644854e17102edf93f51f511 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fizz.hs
fizzbuzz :: Int -> String
fizzbuzz n = fromMaybe (show n) (fizz <> buzz)
where
fizz, buzz :: Maybe String
fizz = "Fizz" <$ guard (n `mod` 3 == 0)
buzz = "Buzz" <$ guard (n `mod` 5 == 0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment