Merge pull request #1232 from jaldhar/challenge-046

Challenge 46 by Jaldhar H. Vyas.

5 files changed, 77 insertions, 0 deletions

diff --git a/challenge-046/jaldhar-h-vyas/blog.txt b/challenge-046/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..cc3c7d7eb7
--- /dev/null
+++ b/challenge-046/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2020/02/perl_weekly_challenge_week_46.html
diff --git a/challenge-046/jaldhar-h-vyas/perl/ch-1.pl b/challenge-046/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..316307152f
--- /dev/null
+++ b/challenge-046/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+
+my @message = (
+    [ qw{ P + 2 l ! a t o }],
+    [ qw{ 1 e 8 0 R $ 4 u }],
+    [ qw{ 5 - r ] + a > / }],
+    [ qw{ P x w l b 3 k \ }],
+    [ qw{ 2 e 3 5 R 8 y u }],
+    [ qw{ < ! r ^ ( ) k 0 }],
+);
+
+my @rotated;
+
+for my $i (0 .. scalar @message - 1) {
+    for my $j (0 .. scalar @{$message[$i]} - 1) {
+        push @{$rotated[$j]}, $message[$i][$j];
+    }
+}
+
+say join q{}, map { /(.)\1/; $1; } map { join q{}, sort @{$_}; } @rotated;
diff --git a/challenge-046/jaldhar-h-vyas/perl/ch-2.pl b/challenge-046/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..d971834e17
--- /dev/null
+++ b/challenge-046/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+
+my @rooms = (0) x 500;
+my $end = scalar @rooms - 1;
+
+for my $i (0 .. $end) {
+    for my $j (0 .. $end) {
+        if (($j + 1) % ($i + 1) == 0) {
+            $rooms[$j] = ($rooms[$j]) ? 0 : 1;
+        }
+    }
+}
+
+for my $i (0 .. $end) {
+    if ($rooms[$i]) {
+        print $i + 1, q{ };
+    }
+}
+print "\n";
\ No newline at end of file
diff --git a/challenge-046/jaldhar-h-vyas/raku/ch-1.sh b/challenge-046/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..11b99e2a46
--- /dev/null
+++ b/challenge-046/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,12 @@
+perl6 -e '
+
+([Z] (
+    [qw{ P + 2 l ! a t o }],
+    [qw{ 1 e 8 0 R $ 4 u }],
+    [qw{ 5 - r ] + a > / }],
+    [qw{ P x w l b 3 k \ }],
+    [qw{ 2 e 3 5 R 8 y u }],
+    [qw{ < ! r ^ ( ) k 0 }],
+)).map({ .sort.join.match(/ (.)$0 /); $0 }).join.say;
+
+'
\ No newline at end of file
diff --git a/challenge-046/jaldhar-h-vyas/raku/ch-2.p6 b/challenge-046/jaldhar-h-vyas/raku/ch-2.p6
new file mode 100755
index 0000000000..007a495c26
--- /dev/null
+++ b/challenge-046/jaldhar-h-vyas/raku/ch-2.p6
@@ -0,0 +1,19 @@
+#!/usr/bin/perl6
+
+constant $end = 500;
+my Bool @rooms[$end];
+
+for 0 ..^ $end -> $i {
+    for 0 ..^ $end -> $j {
+        if ($j + 1) %% ($i + 1) {
+            @rooms[$j] = !@rooms[$j];
+        }
+    }
+}
+
+for 0 ..^ $end -> $i {
+    if @rooms[$i] {
+        print $i + 1, q{ };
+    }
+}
+print "\n";
\ No newline at end of file