18 my $side = 4; # there are $side * $side CPUs
20 for my $line (0 .. ($side - 1)) {
21 $cpus[$line] = [ ($line * $side) .. (($line + 1) * $side - 1) ]
24 for my $cpu (0 .. ($side * $side - 1)) {
27 for my $direction (0 .. 7) {
28 my $nx = ($x + $diffs[$direction][0] + $side) % $side;
29 my $ny = ($y + $diffs[$direction][1] + $side) % $side;
30 say "newstable[$cpu][$direction] = ", $cpus[$nx][$ny], ';';
This page took 0.02236 seconds and 4 git commands to generate.