diff options
| -rw-r--r-- | challenge-079/juliodcs/perl/ch-1.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-079/juliodcs/perl/ch-1.pl b/challenge-079/juliodcs/perl/ch-1.pl index d88040dd85..7118f0aa83 100644 --- a/challenge-079/juliodcs/perl/ch-1.pl +++ b/challenge-079/juliodcs/perl/ch-1.pl @@ -38,9 +38,7 @@ sub next_number($number) { } sub calculate ( $number, $total = 0 ) { - if ( $number == 0 ) { - return $total % MODULE; - } + return $total % MODULE if $number == 0; # All bits besides the first need extra flips # extra flips are equal to the number itself |