diff options
| author | Kang-min Liu <gugod@gugod.org> | 2020-12-09 23:09:48 +0900 |
|---|---|---|
| committer | Kang-min Liu <gugod@gugod.org> | 2020-12-09 23:09:48 +0900 |
| commit | 3432352f80d76563c4e1537e762d9faecf71282f (patch) | |
| tree | 898ee05ac75755672fd479cbbf490da0ae9d1821 | |
| parent | 931e28a9fe63ad0942cf9f3099191a0e21a978c2 (diff) | |
| download | perlweeklychallenge-club-3432352f80d76563c4e1537e762d9faecf71282f.tar.gz perlweeklychallenge-club-3432352f80d76563c4e1537e762d9faecf71282f.tar.bz2 perlweeklychallenge-club-3432352f80d76563c4e1537e762d9faecf71282f.zip | |
a solution for pwc 090.1 in Raku
| -rw-r--r-- | challenge-090/gugod/raku/ch-1.raku | 14 |
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; |