wcc 2012.22

gistfile1.hs

import Data.List
import Data.Function

wcc :: (Ord a, Num a) => a -> [a] -> [[a]] 
wcc x = maximumBy (greaterSum) . groupBy (sameSum) . filter (sumSmallerThenTarget) . subsequences . filter (< x) . sort
    where sumSmallerThenTarget xs = (sum xs) < x
          sameSum a b             = sum a == sum b
          greaterSum              = compare `on` (sum . concat) 

You can replace 'total' with 'sum'

Thanks!