Challenge 45 by Jaldhar H. Vyas.

5 files changed, 44 insertions, 0 deletions

diff --git a/challenge-045/jaldhar-h-vyas/blog.txt b/challenge-045/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..b1bf39072e
--- /dev/null
+++ b/challenge-045/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2020/02/perl_weekly_challenge_week_45.html
diff --git a/challenge-045/jaldhar-h-vyas/perl/ch-1.pl b/challenge-045/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..49934faf59
--- /dev/null
+++ b/challenge-045/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+
+my $input = lc join q{ }, @ARGV;
+$input =~ s/\s+//gmx;
+my @rows;
+while (length $input) {
+    push @rows, substr $input, 0, 8, q{};
+}
+
+my @cols;
+for my $row (@rows) {
+    my @chars = split //, $row;
+    for my $i (0 .. 7) {
+        if ($chars[$i]) {
+            $cols[$i] .= $chars[$i];
+        }
+    }
+}
+
+say join q{ }, @cols;
+
diff --git a/challenge-045/jaldhar-h-vyas/perl/ch-2.pl b/challenge-045/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..26d8a1b06f
--- /dev/null
+++ b/challenge-045/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+use English qw/ -no_match_vars /;
+
+open my $fh, '<', $PROGRAM_NAME or die "$OS_ERROR\n";
+local $RS = undef;
+print <$fh>;
diff --git a/challenge-045/jaldhar-h-vyas/raku/ch-1.p6 b/challenge-045/jaldhar-h-vyas/raku/ch-1.p6
new file mode 100755
index 0000000000..5e5f36e3f0
--- /dev/null
+++ b/challenge-045/jaldhar-h-vyas/raku/ch-1.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/perl6
+
+multi sub MAIN(*@ARGS) {
+    my $input = @*ARGS.lc.join(q{ }).subst(/\s+/, q{}, :g);
+    $input ~= q{ } x 8 - ($input.chars % 8); 
+    ([Z~] $input.comb.rotor(8)).join(q{ }).subst(/' '+/, q{ }, :g).say;
+}
\ No newline at end of file
diff --git a/challenge-045/jaldhar-h-vyas/raku/ch-2.p6 b/challenge-045/jaldhar-h-vyas/raku/ch-2.p6
new file mode 100755
index 0000000000..dca3d0b43f
--- /dev/null
+++ b/challenge-045/jaldhar-h-vyas/raku/ch-2.p6
@@ -0,0 +1,3 @@
+#!/usr/bin/perl6
+
+open(:r, $*PROGRAM).slurp.print;
\ No newline at end of file