Select Code to Download

use constant ST => ('-1', ' =', ' 0', ' =', ' 1');
printf ' ' x 8 . "%s\n", join ' ', map sprintf('%2d', $_), -9 .. 10;
...
0 3
-1 5
-8 -2

        -9 -8 -7 -6 -5 -4 -3 -2 -1  0  1  2  3  4  5  6  7  8  9 10
[ 1  4] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1  =  0  0  =  1  1  1  1  1  1
...
[ 0  3] -1 -1 -1 -1 -1 -1 -1 -1 -1  =  0  0  =  1  1  1  1  1  1  1
[-1  5] -1 -1 -1 -1 -1 -1 -1 -1  =  0  0  0  0  0  =  1  1  1  1  1
[-8 -2] -1  =  0  0  0  0  0  =  1  1  1  1  1  1  1  1  1  1  1  1