Beispiel: Größte Teilsumme

mss :: [ Int ] -> Int
mss xs = maximum $ map sum $ do 
  ys <- inits xs; zs <- tails ys; return zs



Johannes Waldmann 2013-02-01