Skip to content

Commit 1d0e3ae

Browse files
committed
[rosalind] nwck-grondilu.pl GLR fix and rosalind.t passes
1 parent 944e941 commit 1d0e3ae

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

categories/rosalind/nwck-grondilu.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,7 @@
3737

3838
sub MAIN($input-file = Nil) {
3939
my $input = $input-file ?? $input-file.IO.slurp !! $default-data;
40-
say gather for $input.lines -> $newick, $taxa, $ {
40+
say gather for $input.lines.list -> $newick, $taxa, $ {
4141
my ($a, $b) = $taxa.split: ' ';
4242
my @token = $newick.comb: rx/ <.ident>+ | <[(),]> /;
4343
Mu while @token.shift ne $a|$b;
@@ -51,7 +51,7 @@ ($input-file = Nil)
5151
if /< , ( >/ { $descents++ }
5252
}
5353
take $climbs + $descents;
54-
}
54+
}.join(" ");
5555
}
5656

5757
# vim: expandtab shiftwidth=4 ft=perl6

0 commit comments

Comments
 (0)