diff options
| -rw-r--r-- | challenge-090/adam-russell/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-090/adam-russell/perl/ch-2.pl b/challenge-090/adam-russell/perl/ch-2.pl index fb6e4c7919..2654c6476f 100644 --- a/challenge-090/adam-russell/perl/ch-2.pl +++ b/challenge-090/adam-russell/perl/ch-2.pl @@ -14,7 +14,7 @@ sub ethiopian_multiplication{ $x = int($x / 2); $y = $y * 2; push @steps, [$x, $y] if $x % 2 != 0; - }until $steps[-1]->[0] == 1 || $steps[-1]->[1] == 1; + }until $steps[-1]->[0] == 1; for my $step (@steps){ $product += $step->[1]; } |