[rosalind] orf-grondilu.pl fix under GLR

Raku · Sep 24, 2015 · e599966 · e599966
1 parent dbb1158
commit e599966
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/categories/rosalind/orf-grondilu.pl b/categories/rosalind/orf-grondilu.pl
@@ -50,15 +50,15 @@ ($dna)
 
 sub orf($dna) {
     my %match;
-    my @match = gather for $dna, revc $dna {
+    my @match = (gather for $dna, revc $dna {
         take .match: rx/ ATG [ <[ACGT]>**3 ]*? <before TAA|TAG|TGA> /, :overlap;
-    };
+    })>>.list.flat;
 
     %match{
         [~] map { DNA-codon{$_} }, .match: rx/ <[ACGT]>**3 /, :g
     }++ for @match;
 
-    return %match.keys;
+    return %match.keys.sort;
 }
 
 sub MAIN(Str $input = $default-input) {