Merge pull request #10489 from jaldhar/challenge-279

Challenge 279 by Jaldhar H. Vyas.

5 files changed, 22 insertions, 0 deletions

diff --git a/challenge-279/jaldhar-h-vyas/blog.txt b/challenge-279/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..6a5a37e5f9
--- /dev/null
+++ b/challenge-279/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/07/perl_weekly_challenge_week_279.html
diff --git a/challenge-279/jaldhar-h-vyas/perl/ch-1.pl b/challenge-279/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..d9ce317708
--- /dev/null
+++ b/challenge-279/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use v5.38;
+
+my @letters = split /\s+/, $ARGV[0];
+my @weights = split /\s+/, $ARGV[1];
+my %h;
+
+for my $key (keys @weights) {
+    $h{$weights[$key]} = $letters[$key ];
+}
+
+say join q{}, map { $h{$_} } sort { $a <=> $b } keys %h;
\ No newline at end of file
diff --git a/challenge-279/jaldhar-h-vyas/perl/ch-2.sh b/challenge-279/jaldhar-h-vyas/perl/ch-2.sh
new file mode 100755
index 0000000000..333c9ab690
--- /dev/null
+++ b/challenge-279/jaldhar-h-vyas/perl/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'say $ARGV[0]=~y/aeiou//%2?"false":"true"' "$@"
diff --git a/challenge-279/jaldhar-h-vyas/raku/ch-1.sh b/challenge-279/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..54c7037abe
--- /dev/null
+++ b/challenge-279/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '%(@*ARGS[1].words Z=>@*ARGS[0].words).sort.map({$_.value}).join.say' "$@"
diff --git a/challenge-279/jaldhar-h-vyas/raku/ch-2.sh b/challenge-279/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..0920f74d94
--- /dev/null
+++ b/challenge-279/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'say @*ARGS[0].match(/(<[aeiou]>)/,:g).elems%%2' "$@"