#!perl -nla $s+=y///c*($z^=print$"x($s-=$z*y///c).($z?reverse:$_))for@F
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page