Conway works (with sleeps)

[clump.git] / newstable.pl

diff --git a/newstable.pl b/newstable.pl
new file mode 100644 (file)
index 0000000..402de4f
--- /dev/null
+++ b/newstable.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+use v5.14;
+use warnings;
+
+my @diffs = (
+       [-1,  0],
+       [-1,  1],
+       [0 ,  1],
+       [1 ,  1],
+       [1 ,  0],
+       [1 , -1],
+       [0 , -1],
+       [-1, -1]
+);
+
+my @cpus;
+
+my $side = 4; # there are $side * $side CPUs
+
+for my $line (0 .. ($side - 1)) {
+       $cpus[$line] = [ ($line * $side) .. (($line + 1) * $side - 1) ]
+}
+
+for my $cpu (0 .. ($side * $side - 1)) {
+       my $x = $cpu / $side;
+       my $y = $cpu % $side;
+       for my $direction (0 .. 7) {
+               my $nx = ($x + $diffs[$direction][0] + $side) % $side;
+               my $ny = ($y + $diffs[$direction][1] + $side) % $side;
+               say "newstable[$cpu][$direction] = ", $cpus[$nx][$ny], ';';
+       }
+}