We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 944e941 commit 1d0e3aeCopy full SHA for 1d0e3ae
categories/rosalind/nwck-grondilu.pl
@@ -37,7 +37,7 @@
37
38
sub MAIN($input-file = Nil) {
39
my $input = $input-file ?? $input-file.IO.slurp !! $default-data;
40
- say gather for $input.lines -> $newick, $taxa, $ {
+ say gather for $input.lines.list -> $newick, $taxa, $ {
41
my ($a, $b) = $taxa.split: ' ';
42
my @token = $newick.comb: rx/ <.ident>+ | <[(),]> /;
43
Mu while @token.shift ne $a|$b;
@@ -51,7 +51,7 @@ ($input-file = Nil)
51
if /< , ( >/ { $descents++ }
52
}
53
take $climbs + $descents;
54
- }
+ }.join(" ");
55
56
57
# vim: expandtab shiftwidth=4 ft=perl6
0 commit comments