diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-09-13 07:20:04 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-09-13 07:20:04 +0100 |
| commit | ba6ff68ff8dab36e729d2c2a193f381f4dad1db5 (patch) | |
| tree | 94059aff998270e683516ab219abc94fdc0eaad4 /challenge-130/james-smith/perl | |
| parent | 8b4094290f5da56763afa8d67ceb853272cc8e73 (diff) | |
| download | perlweeklychallenge-club-ba6ff68ff8dab36e729d2c2a193f381f4dad1db5.tar.gz perlweeklychallenge-club-ba6ff68ff8dab36e729d2c2a193f381f4dad1db5.tar.bz2 perlweeklychallenge-club-ba6ff68ff8dab36e729d2c2a193f381f4dad1db5.zip | |
use XOR rather than +
Diffstat (limited to 'challenge-130/james-smith/perl')
| -rw-r--r-- | challenge-130/james-smith/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-130/james-smith/perl/ch-1.pl b/challenge-130/james-smith/perl/ch-1.pl index defb467c8c..a1c4b5280e 100644 --- a/challenge-130/james-smith/perl/ch-1.pl +++ b/challenge-130/james-smith/perl/ch-1.pl @@ -19,7 +19,7 @@ done_testing(); sub find_odd { my %x; - $x{$_}++ foreach @{$_[0]}; - return ( grep { $x{$_}&1 } keys %x )[0]; + $x{$_}^=1 foreach @{$_[0]}; + return ( grep { $x{$_} } keys %x )[0]; } |