diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-11-21 12:53:48 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-11-21 12:53:48 +0000 |
| commit | 304dabde4db121ff97d6090e537b96d892d51294 (patch) | |
| tree | c1ab5e3cf8e53fb8b905eaa73440985138d05e99 | |
| parent | 9d1c9ef1077c6d54721eb76604d310522439c97f (diff) | |
| download | perlweeklychallenge-club-304dabde4db121ff97d6090e537b96d892d51294.tar.gz perlweeklychallenge-club-304dabde4db121ff97d6090e537b96d892d51294.tar.bz2 perlweeklychallenge-club-304dabde4db121ff97d6090e537b96d892d51294.zip | |
Edit to make Perl look like C source implementation
| -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; |