diff options
| author | Julio <julio.dcs@gmail.com> | 2020-09-27 03:18:38 +0200 |
|---|---|---|
| committer | Julio <julio.dcs@gmail.com> | 2020-09-27 03:18:38 +0200 |
| commit | e0136cce44281b819a7ca7ff5d098ea57202727b (patch) | |
| tree | 33d840db34f3d300f308317001235b989ae8c723 /challenge-079 | |
| parent | 6d394bbf6e88c3a3221bc74fd8accbe4240df14e (diff) | |
| download | perlweeklychallenge-club-e0136cce44281b819a7ca7ff5d098ea57202727b.tar.gz perlweeklychallenge-club-e0136cce44281b819a7ca7ff5d098ea57202727b.tar.bz2 perlweeklychallenge-club-e0136cce44281b819a7ca7ff5d098ea57202727b.zip | |
Update ch-1.pl solution to work with bigints
Diffstat (limited to 'challenge-079')
| -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 |