worker/master split

[clump.git] / newstable.pl

diff --git a/newstable.pl b/newstable.pl
index 402de4f33aaf4e9077476e04c1e0aa5a75a30631..233d317e1f660fcc3b97a432dd4204ec8594fb89 100644 (file)
--- a/newstable.pl
+++ b/newstable.pl
@@ -4,18 +4,20 @@ use warnings;
 
 my @diffs = (
        [-1,  0],
-       [-1,  1],
+#      [-1,  1],
        [0 ,  1],
-       [1 ,  1],
+#      [1 ,  1],
        [1 ,  0],
-       [1 , -1],
+#      [1 , -1],
        [0 , -1],
-       [-1, -1]
+#      [-1, -1]
 );
 
 my @cpus;
 
-my $side = 4; # there are $side * $side CPUs
+my @newstable;
+
+my $side = 8; # there are $side * $side CPUs
 
 for my $line (0 .. ($side - 1)) {
        $cpus[$line] = [ ($line * $side) .. (($line + 1) * $side - 1) ]
@@ -24,9 +26,18 @@ for my $line (0 .. ($side - 1)) {
 for my $cpu (0 .. ($side * $side - 1)) {
        my $x = $cpu / $side;
        my $y = $cpu % $side;
-       for my $direction (0 .. 7) {
+       for my $direction (0 .. $#diffs) {
                my $nx = ($x + $diffs[$direction][0] + $side) % $side;
                my $ny = ($y + $diffs[$direction][1] + $side) % $side;
-               say "newstable[$cpu][$direction] = ", $cpus[$nx][$ny], ';';
+               $newstable[$cpu][$direction] = $cpus[$nx][$ny];
+       }
+}
+
+for my $direction (0 .. $#diffs) {
+       print "$direction: flag_or_news = {";
+       printf 'latest_news[%2d]', $newstable[0][$direction];
+       for my $cpu (1 .. ($side * $side - 1)) {
+               printf ', latest_news[%2d]', $newstable[$cpu][$direction];
        }
+       say '};'
 }