diff options
| author | Kjetil Skotheim <kjetil.skotheim@sikt.no> | 2023-02-25 20:32:28 +0100 |
|---|---|---|
| committer | Kjetil Skotheim <kjetil.skotheim@sikt.no> | 2023-02-25 20:32:28 +0100 |
| commit | 95c4dfb7c44480439da98fb8c516c281d45ca121 (patch) | |
| tree | 0f6b6ba3c484d18dc5db5f0db6d92c6fdbcbee60 | |
| parent | b1a8311b759fe908dbb34843b592dade091e620f (diff) | |
| download | perlweeklychallenge-club-95c4dfb7c44480439da98fb8c516c281d45ca121.tar.gz perlweeklychallenge-club-95c4dfb7c44480439da98fb8c516c281d45ca121.tar.bz2 perlweeklychallenge-club-95c4dfb7c44480439da98fb8c516c281d45ca121.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-205/
| -rw-r--r-- | challenge-205/kjetillll/perl/ch-1.pl | 3 | ||||
| -rw-r--r-- | challenge-205/kjetillll/perl/ch-2.pl | 15 |
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-205/kjetillll/perl/ch-1.pl b/challenge-205/kjetillll/perl/ch-1.pl new file mode 100644 index 0000000000..9583b00105 --- /dev/null +++ b/challenge-205/kjetillll/perl/ch-1.pl @@ -0,0 +1,3 @@ +my( $a, $b, $c ) = sort {$b <=> $a} @ARGV; +print $c // $a; +print "\n"; diff --git a/challenge-205/kjetillll/perl/ch-2.pl b/challenge-205/kjetillll/perl/ch-2.pl new file mode 100644 index 0000000000..9ab1f1aab9 --- /dev/null +++ b/challenge-205/kjetillll/perl/ch-2.pl @@ -0,0 +1,15 @@ + +#----optimize for brevity: +#print [ sort {$b <=> $a} map {//; map 0+$_ ^ 0+$', @ARGV } @ARGV ]->[0]; +#print "\n"; + + +#---- or optimize for clarity: +my $highest; +for my $a (@ARGV){ +for my $b (@ARGV){ + my $xor = 0+$a ^ 0+$b; + $highest = $xor if not defined $highest + or $xor > $highest; +}} +print "$highest\n"; |