import List main=interact$f[].sortBy((.n).compare.n).lines n=(0-).read.last.words f _[]="" f x(h:t)=(show(1+sum[1|y<-x,y<n h])++' ':h)++'\n':f(n h:x)t
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page