GLR fixes for cons-grondilu.pl, itwv-grondilu.pl and mprt-grondilu.pl

Raku · Sep 24, 2015 · 6503bbe · 6503bbe
1 parent 6ee4669
commit 6503bbe
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/categories/rosalind/cons-grondilu.pl b/categories/rosalind/cons-grondilu.pl
@@ -60,6 +60,6 @@
     take <A C G T>[$_] given first { @profile[$_][c] == $max }, ^4;
 }
 
-say .key, ': ', @profile[.value] for enum <A C G T>.sort;
+say [~] .key, ': ', @profile[.value] for enum <A C G T>.sort;
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/categories/rosalind/itwv-grondilu.pl b/categories/rosalind/itwv-grondilu.pl
@@ -43,11 +43,12 @@ ($a, $b)
 
 my %seen;
 for @motif -> $a {
-    say gather for @motif -> $b {
+    my @arr = gather for @motif -> $b {
         my @interwove = interwove($a, $b).unique;
         take %seen{sort($a, $b).join(':')} //=
         +so grep rx/ <@interwove> /, $dna;
     }
+    say "{@arr}"
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/categories/rosalind/mprt-grondilu.pl b/categories/rosalind/mprt-grondilu.pl
@@ -45,7 +45,8 @@ ($input-file = Nil)
         given join '', grep /^ <.alpha>+ $/, $fasta.split: "\n" {
             if $N-glycosylation {
                 say $id;
-                say gather for m:overlap/$N-glycosylation/ { take .from + 1}
+                 my @arr = gather for m:overlap/$N-glycosylation/ { take .from + 1}
+                 say "{@arr}"
             }
         }
     }