Merge pull request #2979 from jaldhar/challenge-090

Challenge 90 by Jaldhar H. Vyas

5 files changed, 109 insertions, 0 deletions

diff --git a/challenge-090/jaldhar-h-vyas/blog.txt b/challenge-090/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..d299fbfca1
--- /dev/null
+++ b/challenge-090/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2020/12/perl_weekly_challenge_week_90.html
diff --git a/challenge-090/jaldhar-h-vyas/perl/ch-1.pl b/challenge-090/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..0047be3370
--- /dev/null
+++ b/challenge-090/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use 5.020;
+use warnings;
+
+my @dna = split //, 'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG';
+
+my %count;
+
+for my $base (@dna) {
+    $count{$base}++;
+}
+
+for my $base (sort keys %count) {
+    say "$base = $count{$base}";
+}
+
+my %complementaries = (
+    'T' => 'A',
+    'A' => 'T',
+    'G' => 'C',
+    'C' => 'G'
+);
+
+say join q{}, map { $complementaries{$_}; } @dna;
\ No newline at end of file
diff --git a/challenge-090/jaldhar-h-vyas/perl/ch-2.pl b/challenge-090/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..6e215c820a
--- /dev/null
+++ b/challenge-090/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+use 5.020;
+use warnings;
+use English qw/ -no_match_vars /;
+
+sub usage {
+    print<<"-USAGE-";
+Usage:
+  $PROGRAM_NAME <A> <B>
+-USAGE-
+    exit 0;
+}
+
+my $A = shift // usage();
+my $B = shift // usage();
+
+if ($A < 1 || $B < 1) {
+    usage();
+}
+
+my $sum = ($A % 2) ? $B : 0;
+
+while ($A > 1) {
+    $A /= 2;
+    $B *= 2;
+
+    if ($A % 2) {
+        $sum += $B;
+    }
+}
+
+say $sum;
\ No newline at end of file
diff --git a/challenge-090/jaldhar-h-vyas/raku/ch-1.raku b/challenge-090/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..c648b37070
--- /dev/null
+++ b/challenge-090/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/raku
+
+sub MAIN() {
+    my @dna = 'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG'.comb;
+
+    for @dna.classify({ $_; }).pairs.sort.map({ $_.key => $_.value.elems; }) -> $base {
+        say $base;
+    }
+
+    my %complementaries = (
+        'T' => 'A',
+        'A' => 'T',
+        'G' => 'C',
+        'C' => 'G'
+    );
+
+    @dna.map({ %complementaries{$_}; }).join(q{}).say;
+}
\ No newline at end of file
diff --git a/challenge-090/jaldhar-h-vyas/raku/ch-2.raku b/challenge-090/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..56563d37d9
--- /dev/null
+++ b/challenge-090/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,34 @@
+#!/usr/bin/raku
+
+multi sub multiply(
+    Int $A,
+    Int $B,
+    Int $sum
+    where { $A == 1 }
+) {
+    return $sum;
+}
+
+multi sub multiply(
+    Int $A,
+    Int $B,
+    Int $sum is copy
+   where { $A > 1 }
+) {
+    my $a = $A div 2;
+    my $b = $B * 2;
+
+    if $a % 2 {
+        $sum += $b;
+    }
+
+    return multiply($a, $b, $sum);
+}
+
+sub MAIN(
+    $A,
+    $B
+    where { $A > 0 && $B > 0}
+) {
+    say multiply($A, $B, $A % 2 ?? $B !! 0);
+}
\ No newline at end of file