replace last occurrence FIXED by rst76

m@main=getLine>>=putStrLn.f splitAt.words>>m
f(!)[a,b,c]=last$c:[d++b++g|i<-[0..200],let(d,e)=i!c;(f,g)=length a!e,a==f]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page