1 files changed, 14 insertions, 0 deletions
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;