Skip to content

Instantly share code, notes, and snippets.

@Rembane

Rembane/FizzBuzz3.hs

Created August 18, 2014 23:00
Show Gist options
  • Save Rembane/2a8f104aaaa6afdadafa to your computer and use it in GitHub Desktop.
Save Rembane/2a8f104aaaa6afdadafa to your computer and use it in GitHub Desktop.
Download ZIP
More Fizzbuzz!
Raw
FizzBuzz3.hs
import Data.Maybe
mrd n x | mod n x == 0 = Just n
| otherwise = Nothing
lp = map (\n -> head . catMaybes $ zipWith (\f v -> v >> return f) ["FizzBuzz", "Fizz", "Buzz", show n] (map (mrd n) [15, 3, 5, 1])) [1..]
main :: IO ()
main = putStr $ unlines $ take 100 lp
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment