diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-06-28 10:11:13 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-06-28 10:11:13 +0100 |
| commit | f21d3f112fa960fb5b472bef1a146bd2adf75ff9 (patch) | |
| tree | be83d9e7f59d46b45acb7a93bcab336abb9b8601 /challenge-119/james-smith | |
| parent | c32a8dcbc3f2f660d3eadff076c2a70681734d22 (diff) | |
| download | perlweeklychallenge-club-f21d3f112fa960fb5b472bef1a146bd2adf75ff9.tar.gz perlweeklychallenge-club-f21d3f112fa960fb5b472bef1a146bd2adf75ff9.tar.bz2 perlweeklychallenge-club-f21d3f112fa960fb5b472bef1a146bd2adf75ff9.zip | |
updated stuff
Diffstat (limited to 'challenge-119/james-smith')
| -rw-r--r-- | challenge-119/james-smith/perl/ch-1.pl (renamed from challenge-119/james-smith/ch-1.pl) | 2 | ||||
| -rw-r--r-- | challenge-119/james-smith/perl/ch-2.pl (renamed from challenge-119/james-smith/ch-2.pl) | 0 |
2 files changed, 1 insertions, 1 deletions
diff --git a/challenge-119/james-smith/ch-1.pl b/challenge-119/james-smith/perl/ch-1.pl index e0fab77fe6..b58e91c5d9 100644 --- a/challenge-119/james-smith/ch-1.pl +++ b/challenge-119/james-smith/perl/ch-1.pl @@ -16,6 +16,6 @@ is( swap_nibble($_->[1]), $_->[0] ) foreach @TESTS; done_testing(); sub swap_nibble { - return ($_[0]>>4) + (($_[0]&15)<<4); + return ($_[0]>>4) | (($_[0]&15)<<4); } diff --git a/challenge-119/james-smith/ch-2.pl b/challenge-119/james-smith/perl/ch-2.pl index 8cfe6b187a..8cfe6b187a 100644 --- a/challenge-119/james-smith/ch-2.pl +++ b/challenge-119/james-smith/perl/ch-2.pl |