m@main=getLine>>=print.(0^).sum.foldl f[0].map fromEnum>>m f(a:b)c|(a-c)^2==4^5=b|0<1=c:a:b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page