Challenge 253 by Jaldhar H. Vyas.

5 files changed, 41 insertions, 0 deletions

diff --git a/challenge-253/jaldhar-h-vyas/blog.txt b/challenge-253/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..79529c4ccf
--- /dev/null
+++ b/challenge-253/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/01/perl_weekly_challenge_week_253.html
diff --git a/challenge-253/jaldhar-h-vyas/perl/ch-1.pl b/challenge-253/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..88decb521d
--- /dev/null
+++ b/challenge-253/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my $separator = shift;
+say join q{,}, map { "\"$_\"" } grep { $_ } map { split /[$separator]/ } @ARGV;
diff --git a/challenge-253/jaldhar-h-vyas/perl/ch-2.pl b/challenge-253/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..97efa0e0ac
--- /dev/null
+++ b/challenge-253/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my @matrix = map { [ map { 0 + $_ } split /\s+/ ] } @ARGV;
+my %ones;
+
+while (my ($key, $row) = each @matrix) {
+    $ones{$key} = scalar grep { $_ == 1 } @{$row};
+}
+
+say q{(},
+    (join q{, }, sort { $ones{$a} <=> $ones{$b} || $a <=> $b } keys %ones),
+    q{)};
diff --git a/challenge-253/jaldhar-h-vyas/raku/ch-1.raku b/challenge-253/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..524fa38558
--- /dev/null
+++ b/challenge-253/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    $separator, *@words
+) {
+    @words.map({| $_.split($separator) }).grep({ $_ }).map({ "\"$_\"" }).join(q{,}).say;
+}
\ No newline at end of file
diff --git a/challenge-253/jaldhar-h-vyas/raku/ch-2.raku b/challenge-253/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..d028af1a3f
--- /dev/null
+++ b/challenge-253/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@args
+) {
+    my @matrix = @args.map({ [ $_.words.map({ .Int }) ] });
+    say q{(},
+        %(@matrix.map({ @$_.grep({ $_ == 1}).elems }).kv)
+        .sort({ $^a.value <=> $^b.value || $^a.key <=> $^b.key })
+        .map({ $_.key })
+        .join(q{, }),
+    q{)};
+}
\ No newline at end of file