From 42e642d8c70a32352d990d8490a46fe10c0c9b86 Mon Sep 17 00:00:00 2001
From: Aaron Smith <asmith@sumologic.com>
Date: Mon, 7 Dec 2020 15:43:03 -0600
Subject: Add input stats

---
 challenge-090/aaronreidsmith/raku/ch-1.raku | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/challenge-090/aaronreidsmith/raku/ch-1.raku b/challenge-090/aaronreidsmith/raku/ch-1.raku
index b0c53e239a..3c12a719c9 100644
--- a/challenge-090/aaronreidsmith/raku/ch-1.raku
+++ b/challenge-090/aaronreidsmith/raku/ch-1.raku
@@ -5,6 +5,9 @@ subset ValidDna of Str where { $_ ~~ /^^[A|T|G|C]+$$/ }
 # Since DNA is generally read from 5' to 3', I included the option to find the
 # reverse compliment in addition to the complement
 sub MAIN($dna where $dna ~~ ValidDna, Bool :rc(:$reverse-complement) = False) {
+    say "Input stats:\n{$dna.comb.Bag.Hash}\n";
+
+    say "Complement:";
     my $translated = $dna.trans('ATGC' => 'TACG');
     if $reverse-complement {
         say "5'-{$translated.flip}-3'";
-- 
cgit