Challenge 020 by Jaldhar H. Vyas

5 files changed, 51 insertions, 0 deletions

diff --git a/challenge-020/jaldhar-h-vyas/blog.txt b/challenge-020/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..258a4eda4d
--- /dev/null
+++ b/challenge-020/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2019/08/perl_weekly_challenge_week_20.html
diff --git a/challenge-020/jaldhar-h-vyas/perl5/ch-1.sh b/challenge-020/jaldhar-h-vyas/perl5/ch-1.sh
new file mode 100755
index 0000000000..b1794b912d
--- /dev/null
+++ b/challenge-020/jaldhar-h-vyas/perl5/ch-1.sh
@@ -0,0 +1 @@
+perl -E '$_ = shift; s/ (.+?) \K (?!\g{1} | $) /\", \"/gx; say "\"$_\"";' "ABBCDEEF"
\ No newline at end of file
diff --git a/challenge-020/jaldhar-h-vyas/perl5/ch-2.pl b/challenge-020/jaldhar-h-vyas/perl5/ch-2.pl
new file mode 100755
index 0000000000..b7ba9e27ab
--- /dev/null
+++ b/challenge-020/jaldhar-h-vyas/perl5/ch-2.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+
+sub isPrime {
+    my ($n) = @_;
+
+    if ($n < 2) {
+        return undef;
+    }
+
+    if ($n == 2) {
+        return 1;
+    }
+
+    for my $i (2 .. sqrt($n)) {
+        if ($n % $i == 0) {
+            return undef;
+        }
+    }
+
+    return 1;
+}
+
+my $n = 1;
+while ($n++) {
+    my $p = 3 * 2 ** ($n - 1) - 1;
+    my $q = 3 * 2 ** ($n) - 1;
+    my $r = 9 * 2 ** (2 * $n - 1) - 1;
+
+    if (isPrime($p) && isPrime($q) && isPrime($r)) {
+        say '(', (2 ** $n) * $p * $q, ', ',  (2 ** $n) * $r, ')';
+        last;
+    }
+}
\ No newline at end of file
diff --git a/challenge-020/jaldhar-h-vyas/perl6/ch-1.sh b/challenge-020/jaldhar-h-vyas/perl6/ch-1.sh
new file mode 100755
index 0000000000..6f839c2e4b
--- /dev/null
+++ b/challenge-020/jaldhar-h-vyas/perl6/ch-1.sh
@@ -0,0 +1 @@
+perl6 -e ' @*ARGS.shift.subst(/ ( (.)$0* ) /, { "\"$0\"" }, :g).subst("\"\"", "\", \"", :g).say; ' "ABBCDEEF"
\ No newline at end of file
diff --git a/challenge-020/jaldhar-h-vyas/perl6/ch-2.p6 b/challenge-020/jaldhar-h-vyas/perl6/ch-2.p6
new file mode 100755
index 0000000000..a46b55e0f4
--- /dev/null
+++ b/challenge-020/jaldhar-h-vyas/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/perl6
+
+for (2 .. *) -> $n {
+    my $p = 3 * 2 ** ($n - 1) - 1;
+    my $q = 3 * 2 ** ($n) - 1;
+    my $r = 9 * 2 ** (2 * $n - 1) - 1;
+
+    if ($p, $q, $r).all.is-prime() {
+        say '(', (2 ** $n) * $p * $q, ', ',  (2 ** $n) * $r, ')';
+        last;
+    }
+}
\ No newline at end of file