slope lines by ySas

#!perl -p
s!.!$a[60+$.-pos]|='\x00 'x($.-1+pos).$&.$/!ge}for(@a){y/\x00*/ /

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

download

return to the top page