Flattening lists on input to for loops

Raku · Apr 28, 2015 · 8a490d0 · 8a490d0
1 parent d8e51fa
commit 8a490d0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/categories/rosalind/grph-grondilu.pl b/categories/rosalind/grph-grondilu.pl
@@ -49,7 +49,7 @@ ($input-file = Nil)
         take ~.[0], ~.[1].subst(/\n/,'', :g);
     }
 
-    for %dna X %dna -> $a, $b {
+    for (%dna X %dna).flat -> $a, $b {
         next if $a.key eq $b.key;
         say 'Rosalind_' «~« ($a, $b)».key
         if $a.value.substr(*-3) eq $b.value.substr(0, 3);

diff --git a/categories/rosalind/tran-grondilu.pl b/categories/rosalind/tran-grondilu.pl
@@ -40,7 +40,7 @@ ($input-file = Nil)
             push @dna, $_[0].subst: "\n", '', :g;
         }
         my ($transitions, $transversions);
-        for @dna[0].comb Z @dna[1].comb -> ($a, $b) {
+        for (@dna[0].comb Z @dna[1].comb).flat -> $a, $b {
             next unless $a ne $b;
             if "$a$b" eq any <AG GA CT TC> { $transitions++ }
             else { $transversions++ }