aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2023-05-17 10:16:37 +0100
committerGitHub <noreply@github.com>2023-05-17 10:16:37 +0100
commitea6fd8fcc63818c74f931498c2aae111af37701b (patch)
treec441ef928319f0ed0f803f3553de1d76e39fdc54
parent1a3c5dcfab9fce89046aa1c2c51cffd0e6013ae0 (diff)
parenta99ca32a59c003966db3cf0d40de1fcc97c105ea (diff)
downloadperlweeklychallenge-club-ea6fd8fcc63818c74f931498c2aae111af37701b.tar.gz
perlweeklychallenge-club-ea6fd8fcc63818c74f931498c2aae111af37701b.tar.bz2
perlweeklychallenge-club-ea6fd8fcc63818c74f931498c2aae111af37701b.zip
Merge pull request #8091 from jaldhar/challenge-217
Challenge 217 by Jaldhar H. Vyas.
-rw-r--r--challenge-217/jaldhar-h-vyas/blog.txt1
-rwxr-xr-xchallenge-217/jaldhar-h-vyas/perl/ch-1.sh3
-rwxr-xr-xchallenge-217/jaldhar-h-vyas/perl/ch-2.sh3
-rwxr-xr-xchallenge-217/jaldhar-h-vyas/raku/ch-1.sh3
-rwxr-xr-xchallenge-217/jaldhar-h-vyas/raku/ch-2.sh3
5 files changed, 13 insertions, 0 deletions
diff --git a/challenge-217/jaldhar-h-vyas/blog.txt b/challenge-217/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..33e7aff9ac
--- /dev/null
+++ b/challenge-217/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2023/05/perl_weekly_challenge_week_217.html
diff --git a/challenge-217/jaldhar-h-vyas/perl/ch-1.sh b/challenge-217/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..fe22e97310
--- /dev/null
+++ b/challenge-217/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'say 0+(sort { $a <=> $b } map { split /,/ } @ARGV)[2];' $@
diff --git a/challenge-217/jaldhar-h-vyas/perl/ch-2.sh b/challenge-217/jaldhar-h-vyas/perl/ch-2.sh
new file mode 100755
index 0000000000..203a75b574
--- /dev/null
+++ b/challenge-217/jaldhar-h-vyas/perl/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'say join q{}, sort { $b . $a cmp $a . $b } @ARGV;' $@
diff --git a/challenge-217/jaldhar-h-vyas/raku/ch-1.sh b/challenge-217/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..bfe563ae70
--- /dev/null
+++ b/challenge-217/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e "@*ARGS.map({ .split(/','/) }).flat.sort({ $^a <=> $^b })[2].say;" $@
diff --git a/challenge-217/jaldhar-h-vyas/raku/ch-2.sh b/challenge-217/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..8b96aee7cc
--- /dev/null
+++ b/challenge-217/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e "@*ARGS.sort({ $^b ~ $^a cmp $^a ~ $^b }).join.say;" $@