aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJaldhar H. Vyas <jaldhar@braincells.com>2023-05-16 18:04:01 -0400
committerJaldhar H. Vyas <jaldhar@braincells.com>2023-05-16 18:04:01 -0400
commita99ca32a59c003966db3cf0d40de1fcc97c105ea (patch)
tree836d40f2ae94de91a8693f88fd702deac34e0ed3
parentb601dc472c9ca0ce66e9dacb642d36b1fb304fe3 (diff)
downloadperlweeklychallenge-club-a99ca32a59c003966db3cf0d40de1fcc97c105ea.tar.gz
perlweeklychallenge-club-a99ca32a59c003966db3cf0d40de1fcc97c105ea.tar.bz2
perlweeklychallenge-club-a99ca32a59c003966db3cf0d40de1fcc97c105ea.zip
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;" $@