diff options
| -rw-r--r-- | challenge-217/jaldhar-h-vyas/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-217/jaldhar-h-vyas/perl/ch-1.sh | 3 | ||||
| -rwxr-xr-x | challenge-217/jaldhar-h-vyas/perl/ch-2.sh | 3 | ||||
| -rwxr-xr-x | challenge-217/jaldhar-h-vyas/raku/ch-1.sh | 3 | ||||
| -rwxr-xr-x | challenge-217/jaldhar-h-vyas/raku/ch-2.sh | 3 |
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;" $@ |