Skip to content

Instantly share code, notes, and snippets.

@cmoore

cmoore/gist:134697

Created June 23, 2009 17:34
Show Gist options
  • Save cmoore/134697 to your computer and use it in GitHub Desktop.
Save cmoore/134697 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
p9_fix :: Int -> Int -> ( Int, Int )
p9_fix x y =
case ( x > y || x == y ) of
True ->
let y' = x + 1
in
(x,y')
False ->
(x,y)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment