gistfile1.hs

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]