[rosalind] nwck-grondilu.pl GLR fix and rosalind.t passes

Raku · Sep 24, 2015 · 1d0e3ae · 1d0e3ae
1 parent 944e941
commit 1d0e3ae
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/categories/rosalind/nwck-grondilu.pl b/categories/rosalind/nwck-grondilu.pl
@@ -37,7 +37,7 @@
 
 sub MAIN($input-file = Nil) {
     my $input = $input-file ?? $input-file.IO.slurp !! $default-data;
-    say gather for $input.lines -> $newick, $taxa, $ {
+    say gather for $input.lines.list -> $newick, $taxa, $ {
         my ($a, $b) = $taxa.split: ' ';
         my @token = $newick.comb: rx/ <.ident>+ | <[(),]> /;
         Mu while @token.shift ne $a|$b;
@@ -51,7 +51,7 @@ ($input-file = Nil)
             if /< , ( >/ { $descents++ }
         }
         take $climbs + $descents;
-    }
+    }.join(" ");
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6