Up and Down by yamaya

{for(i=850;--i;FS?c[sprintf(f="%c",i)]=i:$i=sprintf(f,c[a[i]]+(4-c[$i]%8)%4));split($0,a,FS=OFS=_)}/]|U/

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

download

return to the top page