diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-11-21 08:41:41 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-11-21 08:41:41 +0000 |
| commit | 39e5a2e6dea457369eac1d519107bcd2911fec02 (patch) | |
| tree | 251cda97acf5ac7d2497ac13acccb3067dd5fb72 | |
| parent | 9f10bb06e148ef2e6b98c169b580bab06db2b325 (diff) | |
| download | perlweeklychallenge-club-39e5a2e6dea457369eac1d519107bcd2911fec02.tar.gz perlweeklychallenge-club-39e5a2e6dea457369eac1d519107bcd2911fec02.tar.bz2 perlweeklychallenge-club-39e5a2e6dea457369eac1d519107bcd2911fec02.zip | |
Update ch-1.pl
| -rw-r--r-- | challenge-192/james-smith/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-192/james-smith/perl/ch-1.pl b/challenge-192/james-smith/perl/ch-1.pl index bc94462d44..4a347bc343 100644 --- a/challenge-192/james-smith/perl/ch-1.pl +++ b/challenge-192/james-smith/perl/ch-1.pl @@ -15,6 +15,6 @@ done_testing(); sub binary_flip { my($r,$k,$n) = (0,1,shift); - $r=(1-$n&1)*$k+$r,$k<<=1,$n>>=1 while $n; + $r|=(~$n&1)<<$k++, $n>>=1 while $n; $r; } |