Skip to content

Instantly share code, notes, and snippets.

@aluink

aluink/gist:2046674

Created March 15, 2012 20:25
Show Gist options
  • Save aluink/2046674 to your computer and use it in GitHub Desktop.
Save aluink/2046674 to your computer and use it in GitHub Desktop.
Download ZIP
Subsums
Raw
gistfile1.hs
import Data.List
f :: (Ord a,Num a) => [a] -> Bool
f lst = (\y -> elem y $ map sum $ subsequences $ [ x | x <- lst, x /= y ]) $ maximum lst
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment