Beispiel: Größte Teilsumme

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

• Darstellung als foldl/foldr?
• ...benutze mss, mps, mps . reverse, sum
• schwaches Inverses
• resultierende Darstellung als foldb
• Implementierung in Haskell oder Java