diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2020-12-20 18:12:11 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2020-12-20 18:12:11 +0000 |
| commit | f4f017e324a6cf21e283823bcc84acdcafa4f2ad (patch) | |
| tree | cb588e91dd37ae98952e9ea94acfd00ccdcb6c7e /challenge-090 | |
| parent | 2c8320e7653a2fb8335078b07e8e7925f540073b (diff) | |
| download | perlweeklychallenge-club-f4f017e324a6cf21e283823bcc84acdcafa4f2ad.tar.gz perlweeklychallenge-club-f4f017e324a6cf21e283823bcc84acdcafa4f2ad.tar.bz2 perlweeklychallenge-club-f4f017e324a6cf21e283823bcc84acdcafa4f2ad.zip | |
Fis the ethiopian multiplication to handle the case where any of the arguments is zero.
Diffstat (limited to 'challenge-090')
| -rw-r--r-- | challenge-090/paulo-custodio/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-090/paulo-custodio/perl/ch-2.pl b/challenge-090/paulo-custodio/perl/ch-2.pl index b539b8dc6a..0937ccc6b5 100644 --- a/challenge-090/paulo-custodio/perl/ch-2.pl +++ b/challenge-090/paulo-custodio/perl/ch-2.pl @@ -13,7 +13,7 @@ my($a, $b) = @ARGV; my $mul = 0; while (1) { $mul += $b if ($a & 1) != 0; - last if $a == 1; + last if $a <= 1; $a >>= 1; $b <<= 1; } print $mul, "\n"; |