5 my @sig = split //, <>;
8 my @mul = qw(0 1 0 -1);
9 for my $step (1 .. 100) {
11 for my $i (1 .. @sig) {
13 my @m = map { ($_) x $i } @mul;
15 # say "$i: mul = ", join(',', @m);
16 $sum += $sig[$_] * $m[$_ % @m] for 0 .. $#sig;
21 say "step $step: ", @sig[0 .. 7];