Skip to content

Instantly share code, notes, and snippets.

@nsporillo

nsporillo/coins.hs

Last active August 29, 2015 14:21
Show Gist options
  • Save nsporillo/030812ed94073db1b6d8 to your computer and use it in GitHub Desktop.
Save nsporillo/030812ed94073db1b6d8 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
coins.hs
alice = id
bob = not
test = all success tosses
where success (a, b) = alice a == b || bob b == a
tosses = zip toss toss
toss = enumFrom minBound
main = print test
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment