From 3432352f80d76563c4e1537e762d9faecf71282f Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 9 Dec 2020 23:09:48 +0900
Subject: a solution for pwc 090.1 in Raku

---
 challenge-090/gugod/raku/ch-1.raku | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-090/gugod/raku/ch-1.raku

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;
-- 
cgit