Merge remote-tracking branch 'upstream/master'

2 files changed, 9 insertions, 10 deletions

diff --git a/challenge-079/bob-lied/perl/lib/CountSetBit.pm b/challenge-079/bob-lied/perl/lib/CountSetBit.pm
index 1733d4e676..068be81e2a 100644
--- a/challenge-079/bob-lied/perl/lib/CountSetBit.pm
+++ b/challenge-079/bob-lied/perl/lib/CountSetBit.pm
@@ -1,3 +1,4 @@
+## Please see file perltidy.ERR
 # vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
 #=============================================================================
 # CountSetBit.pm
@@ -17,18 +18,17 @@ use feature qw/ signatures /;
 no warnings qw/ experimental::signatures /;
 
 require Exporter;
-our @ISA = qw(Exporter);
-our @EXPORT = qw();
+our @ISA       = qw(Exporter);
+our @EXPORT    = qw();
 our @EXPORT_OK = qw();
 
-sub new($class, $n)
+sub new ( $class, $n )
 {
     $class = ref($class) || $class;
     my $self = {
         _n => $n,
 
-        _sum => 0,
-    };
+        _sum => 0, };
     bless $self, $class;
     return $self;
 }
@@ -40,14 +40,14 @@ sub run($self)
     return ( $self->{_sum} % 1000000007 );
 }
 
-sub _bitsOf($self, $n)a
+sub _bitsOf ( $self, $n )
 {
     my $count = 0;
 
     while ( $n > 0 )
     {
         $count++;
-        $n = $n & ($n-1);
+        $n = $n & ( $n - 1 );
     }
     return $count;
 }
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 {