diff options
| -rwxr-xr-x | challenge-094/feng-chang/ch-1.raku | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-094/feng-chang/ch-1.raku b/challenge-094/feng-chang/ch-1.raku index deaeb15a2d..db0720ab2e 100755 --- a/challenge-094/feng-chang/ch-1.raku +++ b/challenge-094/feng-chang/ch-1.raku @@ -9,10 +9,11 @@ sub USAGE { sub group-anagrams(@S) { for @S».comb».sort».join.unique -> $foo { - put @S.grep({ $_.comb.sort.join eq $foo }).join(', '); + put @S.grep(*.comb.sort.join eq $foo).join(', '); } } my @T = <opt bat saw tab pot top was>, [<x>]; +multi MAIN() { USAGE } multi MAIN(UInt:D \n) { group-anagrams(@T[n]) } -multi MAIN(*@S) { @S.elems > 0 ?? group-anagrams(@S) !! USAGE() } +multi MAIN(*@S) { group-anagrams(@S) } |