Update grondilu-mmch.pl

style

Author: grondilu

rosalind/grondilu-mmch.pl

@@ -1,8 +1,5 @@
 use v6;
 
-my $rna = lines[1..*-1].join;
-my $bag = $rna.comb.bag;
-
 sub C($k, $n) {
    if $k < 0 or $k > $n { return 0 }
    elsif $k < 2 { return $n }
@@ -14,6 +11,9 @@ ($k, $n)
 
 sub postfix:<!>(Int $n) { [*] 1 .. $n }
 
-say
-C($bag<A U>.min, $bag<A U>.max) * $bag<A U>.min!  *
-C($bag<C G>.min, $bag<C G>.max) * $bag<C G>.min!;
+my $rna = lines[1..*-1].join;
+given $rna.comb.bag {
+    say
+    C(.<A U>.min, .<A U>.max) * .<A U>.min!  *
+    C(.<C G>.min, .<C G>.max) * .<C G>.min!;
+}