Skip to content

Instantly share code, notes, and snippets.

Created January 4, 2013 03:49
Show Gist options
  • Save anonymous/4449744 to your computer and use it in GitHub Desktop.
Save anonymous/4449744 to your computer and use it in GitHub Desktop.
sumPair options num :: [Int] -> Int -> [(Int,Int)]
sumPair options num = [(x,y) | x <- options, y <- options, x + y == num]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment