Skip to content

Instantly share code, notes, and snippets.

@5outh

5outh/numDemon.hs

Created August 15, 2012 21:55
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 5outh/3364033 to your computer and use it in GitHub Desktop.
Save 5outh/3364033 to your computer and use it in GitHub Desktop.
Download ZIP
numDenom
Raw
numDemon.hs
num :: Fraction -> Integer
num (Frac a _) = a
denom :: Fraction -> Integer
denom (Frac _ b) = b
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment