Reverse BWT by kozima

(loop(setf n(read)s(read-line)l(length s)a()p(sort(#1=dotimes(i l a)(push i a))'char<= :key(lambda(i)(elt s i))))(#1#(x l(terpri))(princ(elt s(setf n(elt p n))))))

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

download

return to the top page