Update cstr-grondilu.pl

much faster version

Author: grondilu

rosalind/cstr-grondilu.pl

@@ -1,11 +1,11 @@
-my @dna = lines;
+my @dna = map { [.comb] }, lines;
 
-my @c = @dna[0].comb;
+my @c = @dna[0][];
 
 for ^@c -> $c {
     my $count = 0;
-    my @line = map { $count += my $x = +so .comb[$c] eq @c[$c]; $x }, @dna;
+    my @line = map { $count += my $x = +so .[$c] eq @c[$c]; $x }, @dna;
     say @line.join if 1 < $count < @dna-1;
 }
-
+     
 # vim: ft=perl6