{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