diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-04-20 10:53:16 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-20 10:53:16 +0100 |
| commit | 8a2a8ca5f42a1efe7b442e5723c73ab2aaaee84b (patch) | |
| tree | e1e97752d155ebd4725d34536c75275911115224 | |
| parent | 31ec57e825437d444c34fb7bd2c19998a1c80beb (diff) | |
| parent | 4580deeae711694da84b7963692aad5db2b1240d (diff) | |
| download | perlweeklychallenge-club-8a2a8ca5f42a1efe7b442e5723c73ab2aaaee84b.tar.gz perlweeklychallenge-club-8a2a8ca5f42a1efe7b442e5723c73ab2aaaee84b.tar.bz2 perlweeklychallenge-club-8a2a8ca5f42a1efe7b442e5723c73ab2aaaee84b.zip | |
Merge pull request #1608 from holli-holzer/master
that was easy
| -rw-r--r-- | challenge-057/markus-holzer/raku/ch-2.raku | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-057/markus-holzer/raku/ch-2.raku b/challenge-057/markus-holzer/raku/ch-2.raku new file mode 100644 index 0000000000..75be57ebe3 --- /dev/null +++ b/challenge-057/markus-holzer/raku/ch-2.raku @@ -0,0 +1,13 @@ +my $words = [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ]; + +.say for gather shortest-unique-prefixes( $words ); + +sub shortest-unique-prefixes( Array $words, Int $l = 1 ) +{ + for $words.classify( *.substr(0, $l) ) + { + take .key and next + if .value.elems == 1; + shortest-unique-prefixes( .value, $l + 1 ) + } +}
\ No newline at end of file |