diff options
| author | Sangeet Kar <ssauravk@areas.com> | 2020-05-09 15:42:59 +0200 |
|---|---|---|
| committer | Sangeet Kar <ssauravk@areas.com> | 2020-05-09 15:42:59 +0200 |
| commit | 2323c1492e963ad594656dbddbe0547926157e0b (patch) | |
| tree | e413c86f5b7b285350317857eb1f964619c66a41 /challenge-059 | |
| parent | f08bd246f0e8653d4eeb9a085ee1c9381e688b89 (diff) | |
| download | perlweeklychallenge-club-2323c1492e963ad594656dbddbe0547926157e0b.tar.gz perlweeklychallenge-club-2323c1492e963ad594656dbddbe0547926157e0b.tar.bz2 perlweeklychallenge-club-2323c1492e963ad594656dbddbe0547926157e0b.zip | |
Don't have to convert to binary for xor
Diffstat (limited to 'challenge-059')
| -rw-r--r-- | challenge-059/sangeet-kar/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-059/sangeet-kar/perl/ch-2.pl b/challenge-059/sangeet-kar/perl/ch-2.pl index 44af4aa8aa..9c91581d41 100644 --- a/challenge-059/sangeet-kar/perl/ch-2.pl +++ b/challenge-059/sangeet-kar/perl/ch-2.pl @@ -6,7 +6,7 @@ use Algorithm::Combinatorics qw(combinations); sub helper { my ( $a, $b ) = @_; - sum( split //, sprintf( "%b", $a ) ^ sprintf( "%b", $b ) ); + sum( split //, sprintf ("%b", $a ^ $b )); } sub bitsum { |