diff options
| -rwxr-xr-x | challenge-192/perlboy1967/perl/ch-1.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-192/perlboy1967/perl/ch-1.pl b/challenge-192/perlboy1967/perl/ch-1.pl index f40a39c3a1..fb4e36b839 100755 --- a/challenge-192/perlboy1967/perl/ch-1.pl +++ b/challenge-192/perlboy1967/perl/ch-1.pl @@ -31,9 +31,11 @@ sub binaryFlipString ($) { sub binaryFlipBinary ($) { my ($i,$m) = ($_[0],0); - # Create bitmask for 'AND' below + # Create bitmask for 'AND' in 'return' while ($i) { - $i >>= 1; $m = ($m << 1) + 1; + $i >>= 1; + $m <<= 1; + $m++; } return ~$_[0] & $m; |