問題はここ
http://golf.shinh.org/p.rb?Maximum+Cyclic+Segment+Sum

半端なく　難しかった。。。
filter とか使ったし。。。

【初稿】: 216 バイト

f[]=[]
f(x:s)=[[x]]++map(x:)(f s)
g[]=[]
g(x:s)=f(x:s)++g s
h[a]=a
h(a:b)|sum a>sum(b!!0)=h(a:tail b)|1>0=h b
i s=filter((< l s).l)$g$map read$s++init s
l=length
m@main=getLine>>=putStrLn.unwords.map show.h.i.words>>m

うー。なんか　真っ白に燃え尽きた。。。