Two sum: Difference between revisions
Content added Content deleted
Line 890: | Line 890: | ||
in [ (i, j) |
in [ (i, j) |
||
| (i, x) <- ixs |
| (i, x) <- ixs |
||
, (j, y) <- drop (i |
, (j, y) <- drop (succ i) ixs |
||
, (x + y) == n ] |
, (x + y) == n ] |
||
main :: IO () |
main :: IO () |
||
main = mapM_ print $ sumTo 21 [0, 2, 11, 19, 90, 10]</lang> |
main = mapM_ print $ sumTo 21 [0, 2, 11, 19, 90, 10]</lang> |