Merge pull request #2971 from gugod/gugod-090

@gugod's solution for pwc 090

4 files changed, 36 insertions, 0 deletions

diff --git a/challenge-090/gugod/blog.txt b/challenge-090/gugod/blog.txt
new file mode 100644
index 0000000000..3c41ccb0ff
--- /dev/null
+++ b/challenge-090/gugod/blog.txt
@@ -0,0 +1 @@
+https://gugod.org/2020/12/pwc-090/
diff --git a/challenge-090/gugod/blog1.txt b/challenge-090/gugod/blog1.txt
new file mode 100644
index 0000000000..dd97afbfa7
--- /dev/null
+++ b/challenge-090/gugod/blog1.txt
@@ -0,0 +1 @@
+https://gugod.org/2020/12/pwc-090-en/
diff --git a/challenge-090/gugod/raku/ch-1.raku b/challenge-090/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..b5ef20d597
--- /dev/null
+++ b/challenge-090/gugod/raku/ch-1.raku
@@ -0,0 +1,14 @@
+
+
+my $dnaseq = 'GTAAACCCCTTTTCATTTAGACAGATCGACTCCTTATCCATTCTCAGAGATGTGTTGCTGGTCGCCG';
+my $complement = $dnaseq.trans('TAGC' => 'ATCG');
+
+my %histogram = ( "A" => 0, "T" => 0, "C" => 0, "G" => 0 );
+$dnaseq.comb.map(-> $c { %histogram{$c}++ });
+
+say "nucleiobase count";
+for 'A', 'T', 'C', 'G' -> $c {
+    say "  $c: " ~ %histogram{$c};
+}
+
+say "Complement: " ~ $complement;
diff --git a/challenge-090/gugod/raku/ch-2.raku b/challenge-090/gugod/raku/ch-2.raku
new file mode 100644
index 0000000000..42021420af
--- /dev/null
+++ b/challenge-090/gugod/raku/ch-2.raku
@@ -0,0 +1,20 @@
+
+sub MAIN (Int $num1, Int $num2) {
+    my $n1 = $num1;
+    my $n2 = $num2;
+    my @logs;
+    push @logs, [ $n1, $n2 ];
+    while $n1 != 1 {
+        $n1 = $n1 div 2;
+        $n2 = $n2 * 2;
+        push @logs, [ $n1, $n2 ];
+    }
+
+    say "\#\t$num1 × $num2\n";
+    for @logs -> $log {
+        my $star = $log[0] %% 2 ?? " " !! "+";
+        say "\t$log[0]\t$star $log[1]";
+    }
+    say "-------------------------";
+    say "\t\t  " ~ @logs.grep({ .[0] % 2 == 1 }).map({ .[1] }).sum ~ "\n";
+}