X by BioFALSE

$a=<>;push@_," "x$a for 1..$a;\x0d
$_[$_]=~s/(.{$_})./$1X/,\x0d
$_[$_]=~s/.(.{$_})$/X$1/ for 0..$a;\x0d
s/ *$//,print"$_\n"for@_

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

download

return to the top page