$m=<>;for$i(1..$m*2-1){$i>$m?--$a:++$a;for$j(1..$m*2-1){$b=($j>$m?--$a:++$a)-$m;$_.=$b>0?$b:" "}s/ *$//;print"$_\n";$_="";$a--}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page