[ create a new paste ] login | about

Link: http://codepad.org/Eb5zlSSO    [ raw code | output | fork ]

Haskell, pasted on Apr 3:
1
2
3
4
5
6
7
8
9
10
11
12
13
import Data.List
import Control.Monad

valid xs = any ((== max) . sum)  $ filterM (const [True, False]) left where
    max = maximum xs
    left = delete max xs

main = do
    print $ valid [4, 6, 23, 10, 1, 3]
    print $ valid [5, 7, 16, 1, 2]
    print $ valid [1, 22, 23, 24, 27, 29, 33]
    print $ valid [1, 22, 23, 25, 26]
    print $ valid [3, 5, -1, 8, 1, -2, 12]


Output:
1
2
3
4
5
True
False
False
True
True


Create a new paste based on this one


Comments: