diff options
| -rw-r--r-- | challenge-057/markus-holzer/raku/ch-2.raku | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/challenge-057/markus-holzer/raku/ch-2.raku b/challenge-057/markus-holzer/raku/ch-2.raku index 36847856ad..75be57ebe3 100644 --- a/challenge-057/markus-holzer/raku/ch-2.raku +++ b/challenge-057/markus-holzer/raku/ch-2.raku @@ -4,11 +4,10 @@ my $words = [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ]; 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 ) - } + 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 |