Skip to content

Instantly share code, notes, and snippets.

@marcosccm

marcosccm/gist:2930789

Created June 14, 2012 14:48
Show Gist options
  • Save marcosccm/2930789 to your computer and use it in GitHub Desktop.
Save marcosccm/2930789 to your computer and use it in GitHub Desktop.
Download ZIP
WCC 2012.24
Raw
gistfile1.hs
import Data.List
import Data.Function
wcc = maximumBy (compare `on` sum) . filter (not . null) . concatMap inits . tails
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment