Skip to content

Instantly share code, notes, and snippets.

@matsubara0507

matsubara0507/fizzbuzz.hs

Last active February 27, 2018 11:37
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 matsubara0507/6e7ff4b26ee3ecf357b99e155834c395 to your computer and use it in GitHub Desktop.
Save matsubara0507/6e7ff4b26ee3ecf357b99e155834c395 to your computer and use it in GitHub Desktop.
Download ZIP
FizzBuzz
Raw
fizzbuzz.hs
fizzbuzz = flip maybe id <$> show <*> foldl1 mappend . map fst . filter snd . flip map [(Just "Fizz", 3), (Just "Buzz", 5), (Nothing, 1)] . fmap . (fmap (== 0) . mod)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment