Merge pull request #10945 from jaldhar/challenge-289

Challenge 289 by Jaldhar H. Vyas.

5 files changed, 28 insertions, 0 deletions

diff --git a/challenge-289/jaldhar-h-vyas/blog.txt b/challenge-289/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..c027e6841e
--- /dev/null
+++ b/challenge-289/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/10/perl_weekly_challenge_week_289.html
diff --git a/challenge-289/jaldhar-h-vyas/perl/ch-1.pl b/challenge-289/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..03eedf57e8
--- /dev/null
+++ b/challenge-289/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use v5.38;
+
+sub unique(@list) {
+    my %elems;
+    for (@list) {
+        $elems{$_}++;
+    }
+
+    return (keys %elems);
+}
+
+my @a = sort { $a <=> $b } unique(@ARGV);
+say $a[-3] // $a[-1];
\ No newline at end of file
diff --git a/challenge-289/jaldhar-h-vyas/perl/ch-2.pl b/challenge-289/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..9b14031532
--- /dev/null
+++ b/challenge-289/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use v5.38;
+use List::Util qw/ shuffle /;
+
+my $str = shift // die "Need a string\n";
+$str =~ s/(\w)(\w+)(\w)/$1 . (join q{}, (shuffle split q{}, $2)) . $3/ge;
+say $str;
\ No newline at end of file
diff --git a/challenge-289/jaldhar-h-vyas/raku/ch-1.sh b/challenge-289/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..6604d388de
--- /dev/null
+++ b/challenge-289/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e 'my @a=@*ARGS.sort.unique;say @a[*-3]//@a[*-1]' "$@"
diff --git a/challenge-289/jaldhar-h-vyas/raku/ch-2.sh b/challenge-289/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..2290cd7e39
--- /dev/null
+++ b/challenge-289/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0].subst(/(\w)(\w+)(\w)/,{$0~$1.comb.pick(*).join~$2},:g).say' "$@"