create table by jonathan camacho

$s  = <>;
@a =map {  [ (0) x $s ] } 1 .. $s;
$a[-1] = $a[0] = [ (1) x $s];
map { $a[$_][-1] = $a[$_][0] = 1 } 0 ..  ($s - 1);
$"="";
print "@$_\n" for @a;

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

download

return to the top page