Skip to content

Instantly share code, notes, and snippets.

@ololobus

ololobus/crackle-pop.hs

Created August 28, 2014 20:57
Show Gist options
  • Save ololobus/46f4798dc5b931f395db to your computer and use it in GitHub Desktop.
Save ololobus/46f4798dc5b931f395db to your computer and use it in GitHub Desktop.
Download ZIP
CracklePop program
Raw
crackle-pop.hs
hundred = [1..100]
crack n
| mod n 5 == 0 && mod n 3 == 0 = "CracklePop"
| mod n 3 == 0 = "Crackle"
| mod n 5 == 0 = "Pop"
| otherwise = show n
main = print (map crack hundred)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment