diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-08-17 14:48:05 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-08-17 14:55:45 +0200 |
| commit | 0acf598932203f380b81e64668fab70fdba60deb (patch) | |
| tree | 679afb4abacfcba3fce8cd4d8569fc2e7491023f | |
| parent | 837cc22c0835cb7788e06c05bb8667e15ffc01db (diff) | |
| download | perlweeklychallenge-club-0acf598932203f380b81e64668fab70fdba60deb.tar.gz perlweeklychallenge-club-0acf598932203f380b81e64668fab70fdba60deb.tar.bz2 perlweeklychallenge-club-0acf598932203f380b81e64668fab70fdba60deb.zip | |
Remove the grep
| -rw-r--r-- | challenge-074/luca-ferrari/raku/ch-2.p6 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-074/luca-ferrari/raku/ch-2.p6 b/challenge-074/luca-ferrari/raku/ch-2.p6 index 2c0da8f0ea..0ce2abe239 100644 --- a/challenge-074/luca-ferrari/raku/ch-2.p6 +++ b/challenge-074/luca-ferrari/raku/ch-2.p6 @@ -23,9 +23,8 @@ sub MAIN( Str $S where { $S.chars > 2 } ) { %counting{ $_ }++ for $S.substr( 0 .. $index ).comb( '', :skip-empty ); my $fnr = $S.substr( 0 .. $index ) .comb( '', :skip-empty ) - .reverse - .grep( { %counting{ $_ }:exists && %counting{ $_ } == 1 } ) - .first // '#'; + .first( { %counting{ $_ }:exists && %counting{ $_ } == 1 } ) + // '#'; @result.push: $fnr; } |