diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-02-26 22:01:25 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-02-26 22:01:25 +0100 |
| commit | 95667a5cdada49d16a2f455a2ce8438841fd19c4 (patch) | |
| tree | 7e2a28026131c60771c61a75cb17064849c93c37 | |
| parent | efe30238e32374cf0770eb013a711015cd0fe8f9 (diff) | |
| download | perlweeklychallenge-club-95667a5cdada49d16a2f455a2ce8438841fd19c4.tar.gz perlweeklychallenge-club-95667a5cdada49d16a2f455a2ce8438841fd19c4.tar.bz2 perlweeklychallenge-club-95667a5cdada49d16a2f455a2ce8438841fd19c4.zip | |
Update ch-2.pl
| -rwxr-xr-x | challenge-205/jo-37/perl/ch-2.pl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/challenge-205/jo-37/perl/ch-2.pl b/challenge-205/jo-37/perl/ch-2.pl index 62e9b803bd..a30457dd8c 100755 --- a/challenge-205/jo-37/perl/ch-2.pl +++ b/challenge-205/jo-37/perl/ch-2.pl @@ -2,7 +2,7 @@ use v5.16; use Test2::V0 '!float'; -use Math::Prime::Util qw(todigits fromdigits logint vecmax); +use Math::Prime::Util qw(todigits fromdigits); use PDL; use PDL::NiceSlice; use Benchmark 'cmpthese'; @@ -98,12 +98,8 @@ sub max_xor_pure { # sub max_xor_intersect { - # Find the most significant bit for the whole list. - my $hbit = 1 + logint vecmax(@_), 2; - say "hbit: $hbit" if $verbose; - - # Convert numbers to their binary digits from step 1. - my $bits = byte map [todigits($_, 2, $hbit)], @_; + # Convert numbers to their binary digits. + my $bits = byte(map [reverse(todigits($_, 2))], @_)->(-1:0); say "bits: $bits" if $verbose; my $pairlist; |