Update cstr-grondilu.pl

slightly simpler code

Author: grondilu

rosalind/cstr-grondilu.pl

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