From c30a4f384556c417f84915d02d98552d317b01dc Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Tue, 5 Jan 2021 22:02:21 +0800
Subject: fix

---
 challenge-094/feng-chang/ch-1.raku | 5 +++--
 1 file 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) }
-- 
cgit