diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-05-16 11:56:28 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-05-16 11:56:28 +0100 |
| commit | 61877159158923aacc0f5424d1b8f049bd4d2418 (patch) | |
| tree | e004735518a4ab3aacd8ea23059944c92bb8dc09 | |
| parent | d79a93d3b957b23ad4871bc5be7d8d13b5f2eaaf (diff) | |
| parent | 4dc03c113400b08faf5c0030bffc109b7bdbb2f2 (diff) | |
| download | perlweeklychallenge-club-61877159158923aacc0f5424d1b8f049bd4d2418.tar.gz perlweeklychallenge-club-61877159158923aacc0f5424d1b8f049bd4d2418.tar.bz2 perlweeklychallenge-club-61877159158923aacc0f5424d1b8f049bd4d2418.zip | |
Merge pull request #8081 from zapwai/branch-for-217
Week 217
| -rw-r--r-- | challenge-217/zapwai/perl/ch-1.pl | 15 | ||||
| -rw-r--r-- | challenge-217/zapwai/perl/ch-2.pl | 7 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-217/zapwai/perl/ch-1.pl b/challenge-217/zapwai/perl/ch-1.pl new file mode 100644 index 0000000000..5e678963de --- /dev/null +++ b/challenge-217/zapwai/perl/ch-1.pl @@ -0,0 +1,15 @@ +use v5.30.0; +my @matrix = ([3, 1, 2], [5, 2, 4], [0, 1, 3]); + +print "Input: \@matrix = ("; +for (0 .. $#matrix) { + print '[' . join(",",@{$matrix[$_]}) . "]"; + print ", " unless ($_ == $#matrix); +} +say ")"; +print "Output: "; +my @list; +push @list, @$_ foreach (@matrix); +@list = sort @list; +say $list[2]; +say "Sorted list: " . join(",", @list); diff --git a/challenge-217/zapwai/perl/ch-2.pl b/challenge-217/zapwai/perl/ch-2.pl new file mode 100644 index 0000000000..5f2206c249 --- /dev/null +++ b/challenge-217/zapwai/perl/ch-2.pl @@ -0,0 +1,7 @@ +use v5.30.0; +my @list = (1, 23); +#my @list = (5, 11, 4, 1, 2); +say "Input: \@list = (" . join(",",@list) . ")"; +print "Output: "; +@list = reverse sort @list; +say @list; |