Move To Front Decode by henkma

main=interact(['0'..]%)
l%(a:b)|x<-l!!read[a]=x:(x:filter(/=x)l)%b
l%x=x

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

download

return to the top page