diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-02-25 19:44:53 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-02-25 19:44:53 +0000 |
| commit | af4801f8af0b9681837999501d17facbbb35b883 (patch) | |
| tree | 0f15be746411072f940be93ec46103c636714961 | |
| parent | d895a65864df6c1b2a45dcee1b93da0039aba4f1 (diff) | |
| parent | 95c4dfb7c44480439da98fb8c516c281d45ca121 (diff) | |
| download | perlweeklychallenge-club-af4801f8af0b9681837999501d17facbbb35b883.tar.gz perlweeklychallenge-club-af4801f8af0b9681837999501d17facbbb35b883.tar.bz2 perlweeklychallenge-club-af4801f8af0b9681837999501d17facbbb35b883.zip | |
Merge pull request #7629 from kjetillll/challenge-205-kjetillll
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"; |