2019/32.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my @sig = split //, <>;
   6 pop @sig;
   7 @sig = (@sig) x 10_000;
   8
   9 my $off = join('', @sig[0..6]);
  10 say "off=$off";
  11 my @mul = qw(0 1 0 -1);
  12 for my $step (1 .. 100) {
  13         for my $i (reverse ($off .. $#sig-1)) {
  14                 $sig[$i] = ($sig[$i] + $sig[$i+1]) % 10;
  15         }
  16         say "step $step: ", @sig[$off .. $off + 7];
  17 }