Move To Front Encode by henkma

main=f['0'..];f l=do c<-getChar;putStr$show$length$fst$span(/=c)l;f$c:filter(/=c)l

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

download

return to the top page