diff options
| author | E. Choroba <choroba@matfyz.cz> | 2020-05-08 00:33:12 +0200 |
|---|---|---|
| committer | E. Choroba <choroba@matfyz.cz> | 2020-05-08 00:33:12 +0200 |
| commit | a0be6e85851b6da6425765237d1096704c2b55df (patch) | |
| tree | f236d8db69d15001c0cb57d6c99c6ec7d5d4beac /challenge-059 | |
| parent | c2bc8446e344ed756bb136f0f2e1ee3d0c51d754 (diff) | |
| download | perlweeklychallenge-club-a0be6e85851b6da6425765237d1096704c2b55df.tar.gz perlweeklychallenge-club-a0be6e85851b6da6425765237d1096704c2b55df.tar.bz2 perlweeklychallenge-club-a0be6e85851b6da6425765237d1096704c2b55df.zip | |
Add link to E. Choroba's blog post about 059: Linked List + Bit Sum
Simplify the code according to the blog post, too.
Diffstat (limited to 'challenge-059')
| -rw-r--r-- | challenge-059/e-choroba/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-059/e-choroba/perl/ch-2.pl | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-059/e-choroba/blog.txt b/challenge-059/e-choroba/blog.txt new file mode 100644 index 0000000000..7692d6072b --- /dev/null +++ b/challenge-059/e-choroba/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/e_choroba/2020/05/perl-weekly-challenge-059-linked-list-and-bit-sum.html diff --git a/challenge-059/e-choroba/perl/ch-2.pl b/challenge-059/e-choroba/perl/ch-2.pl index f9cde1626c..5a8e182b01 100755 --- a/challenge-059/e-choroba/perl/ch-2.pl +++ b/challenge-059/e-choroba/perl/ch-2.pl @@ -4,8 +4,7 @@ use strict; sub diff_bits { my ($x, $y) = @_; - my ($bx, $by) = map { pack 'N', $_ } $x, $y; - return unpack '%32b*', $bx ^ $by + return unpack '%32b*', pack 'N', $x ^ $y } sub chain_diff_bits { |