Skip to content

Instantly share code, notes, and snippets.

@Nucleareal

Nucleareal/fizzbuzz.hs

Created February 27, 2014 07:14
Show Gist options

  • Select an option

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

Select an option

Learn more about clone URLs
Save Nucleareal/9245758 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fizzbuzz.hs
import Control.Monad
main=forM[1..100](\x->putStrLn$
case(x`mod`3,x`mod`5)of
(0,0)->"FizzBuzz"
(0,_)->"Fizz"
(_,0)->"Buzz"
(_,_)->show x
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment