Ranking __REVENGE__ by fox

import List
main=interact$unlines.snd.mapAccumL(#)(0,0).z.sort.map r.z.lines
z=zip[1..]
r(i,x)=(-(read$last$words x),i,x)
(i,x)#(j,(y,_,z))|x==y=((i,x),i%z)|0<1=((j,y),j%z)
x%y=show x++" "++y

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

download

return to the top page