main=interact(\x->do(_,a:b)<-[span('!'>)$r$z(%)x$scanl(+)n$z(#)x$tail x|n<-[-99..9]];r$'\n':a:b) a#b|a<b=1|b<a=0-1|0<1=0 a%0=a;a%_=' ' z=zipWith r=reverse
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page