#!perl -p for(;/1/;print reverse 1,map$x<$_?0:eof($x-=$_),@_){$'=~/.{@-}/;@_=$i=$'=~eval"'.'x(0b1$&-1)";@_=($i,@_)until($i+=$_[1]||1)>eval"\$x=0b1$&";$_=$'}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page