Addition chains: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,224: / Line 1,224: @@
    say "Brauer example : ", @Example.reverse if $brauer > 0 ;
    @Example = ();
-   if ($num = $nbLimit) {
+   if ($num ≤ $nbLimit) {
       my $nonBrauer = findNonBrauer $num, $actualMin+1, $brauer ;
       say "Number of minimum length non-Brauer chains : ", $nonBrauer ;
@@ Line 1,273: / Line 1,273: @@
       loop {
          nextChains($index+1) if $index < $len-1;
-         return if (@seq[$index]+$len-1-$index = @seq[$len-1]);
+         return if (@seq[$index]+$len-1-$index ≥ @seq[$len-1]);
          @seq[$index]++;
          for ($index^..^$len-1) { @seq[$^i] = @seq[$^i-1] + 1;}