diff options
| -rwxr-xr-x | challenge-079/james-smith/perl/ch-1.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-079/james-smith/perl/ch-1.pl b/challenge-079/james-smith/perl/ch-1.pl index 75a2e92922..5b5ad927f1 100755 --- a/challenge-079/james-smith/perl/ch-1.pl +++ b/challenge-079/james-smith/perl/ch-1.pl @@ -62,11 +62,10 @@ sub count_set_bits { my $t = my $s = 0; while (@q) { next unless shift @q; - $t += ($s + @q/2)*(1<<@q); - $t %= 1000000007; + $t += ($s + @q/2) * (1<<@q); $s++; } - return $t; + return $t % 1000000007; } sub naive_count_set_bits { |