Reverse BWT by nn

{delete c
for(n=N=split($2,a,_);n--;)for(j=0;j++<N;c[k+1]=s)for(s=a[k=j]c[j];s<c[--k];)c[k+1]=c[k]}$0=c[$1+1]

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

download

return to the top page