mgechev/sublist-sum.hs

Created July 5, 2013 11:00

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/mgechev/5933790.js"></script>
Save mgechev/5933790 to your computer and use it in GitHub Desktop.

Download ZIP

The sum of all sub lists of given list which don't have negative values in them

Raw

sublist-sum.hs

	sumProd :: [[Integer]]->Integer
	sumProd lst = sum (map product (filter (\x -> length ([y \| y <- x, y < 0]) == 0) lst))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment