improved solution for challenge 059-2

pip · Jun 8, 2020 · b5b7ec8 · b5b7ec8
1 parent cc7cd44
commit b5b7ec8
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/challenge-059/jo-37/perl/ch-2.pl b/challenge-059/jo-37/perl/ch-2.pl
@@ -6,10 +6,11 @@
 
 use strict;
 use warnings;
+use List::Util qw(reduce);
 
+my @bits = map {pack 'Q', $_} @ARGV;
 my $sum;
-while (defined (my $x = shift)) {
-	my $bits = pack 'Q', $x;
-	$sum += unpack '%64b*', $bits ^ $_ foreach map {pack 'Q', $_} @ARGV;
+while (defined (my $bits = shift @bits)) {
+	$sum += unpack '%64b*', $bits ^ $_ foreach @bits;
 }
 print $sum, "\n";