diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-05-16 13:58:12 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-05-16 13:58:12 +0800 |
| commit | ab67897f477da260a6f1ca636f206a5d66429594 (patch) | |
| tree | a06cc1f2bd781ca9c6276c4482e1b5d03c856387 | |
| parent | 2c1bcc0ab979fa1d961919dc782cdcc322d7ed63 (diff) | |
| download | perlweeklychallenge-club-ab67897f477da260a6f1ca636f206a5d66429594.tar.gz perlweeklychallenge-club-ab67897f477da260a6f1ca636f206a5d66429594.tar.bz2 perlweeklychallenge-club-ab67897f477da260a6f1ca636f206a5d66429594.zip | |
pwc 217
| -rwxr-xr-x | challenge-217/steve-g-lynn/perl/ch-1.pdl | 6 | ||||
| -rwxr-xr-x | challenge-217/steve-g-lynn/perl/ch-2.pl | 14 |
2 files changed, 20 insertions, 0 deletions
diff --git a/challenge-217/steve-g-lynn/perl/ch-1.pdl b/challenge-217/steve-g-lynn/perl/ch-1.pdl new file mode 100755 index 0000000000..c60ddbaa11 --- /dev/null +++ b/challenge-217/steve-g-lynn/perl/ch-1.pdl @@ -0,0 +1,6 @@ +#!/usr/bin/pdl + +sub sorted_matrix {my ($pdl)=@_; $pdl=$pdl->flat->qsort; $pdl(2);} +p &sorted_matrix( pdl '[3,1,2; 5,2,4; 0,1,3]' ); #-- [1] +p &sorted_matrix( pdl '[2,1; 4,5]' ); #-- [4] +p &sorted_matrix( pdl '[1,0,3; 0,0,0; 1,2,1]' ); #--[0] diff --git a/challenge-217/steve-g-lynn/perl/ch-2.pl b/challenge-217/steve-g-lynn/perl/ch-2.pl new file mode 100755 index 0000000000..8cc90c75d4 --- /dev/null +++ b/challenge-217/steve-g-lynn/perl/ch-2.pl @@ -0,0 +1,14 @@ +#!/usr/bin/env -S perl -wl + + +sub max_number { + my (@list)=@_; + join '', sort { $b.$a <=> $a.$b } @list; +} + +print &max_number( 1,23 ); #--231 +print &max_number( 10,3,2 ); #--3210 +print &max_number( 31,2,4,10 ); #-- 431210 +print &max_number( 5,11,4,1,2 ); #-- 542111 +print &max_number( 1,10 ); #-- 110 + |