diff options
| author | Solathian <horvath6@gmail.com> | 2023-05-29 22:18:18 +0200 |
|---|---|---|
| committer | Solathian <horvath6@gmail.com> | 2023-05-29 22:18:18 +0200 |
| commit | 53c8d6fe089609f98a513b5e55301f3fd9435112 (patch) | |
| tree | 73488aa72f57928ead1936173d4c9bffe01fdb8a | |
| parent | 979144e452a65703e7845a166d7c94ba6f89e37f (diff) | |
| download | perlweeklychallenge-club-53c8d6fe089609f98a513b5e55301f3fd9435112.tar.gz perlweeklychallenge-club-53c8d6fe089609f98a513b5e55301f3fd9435112.tar.bz2 perlweeklychallenge-club-53c8d6fe089609f98a513b5e55301f3fd9435112.zip | |
Added file for challenge
| -rw-r--r-- | challenge-219/solathian/perl/ch-1.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-219/solathian/perl/ch-1.pl b/challenge-219/solathian/perl/ch-1.pl new file mode 100644 index 0000000000..2be5a1e383 --- /dev/null +++ b/challenge-219/solathian/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!usr/bin/perl +use v5.36; + +# Challenge 219 - 1 - Sorted Squares + +sortedSquares(-2, -1, 0, 3, 4); # (0, 1, 4, 9, 16) +sortedSquares( 5, -4, -1, 3, 6); # (1, 9, 16, 25, 36) + +sub sortedSquares(@array) +{ + say join ', ', sort map{$_ * $_ } @array +}
\ No newline at end of file |