diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2021-01-05 22:02:21 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2021-01-05 22:02:21 +0800 |
| commit | c30a4f384556c417f84915d02d98552d317b01dc (patch) | |
| tree | 3461b7ad44b45b116405a6c771cd7867211be6ee | |
| parent | d339de8c246c9b8d80460a07e615afc2c83e5002 (diff) | |
| download | perlweeklychallenge-club-c30a4f384556c417f84915d02d98552d317b01dc.tar.gz perlweeklychallenge-club-c30a4f384556c417f84915d02d98552d317b01dc.tar.bz2 perlweeklychallenge-club-c30a4f384556c417f84915d02d98552d317b01dc.zip | |
fix
| -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) } |