diff options
| author | Kang-min Liu <gugod@gugod.org> | 2021-01-10 23:34:17 +0900 |
|---|---|---|
| committer | Kang-min Liu <gugod@gugod.org> | 2021-01-10 23:34:17 +0900 |
| commit | e5ae992f4781e00675539ade0963de25dfc4efc6 (patch) | |
| tree | e66e6c7b947321c0fcbcf06a843fe536a23959b2 | |
| parent | dfe8a019307978e28ac02f01c383f54d78c7eebb (diff) | |
| download | perlweeklychallenge-club-e5ae992f4781e00675539ade0963de25dfc4efc6.tar.gz perlweeklychallenge-club-e5ae992f4781e00675539ade0963de25dfc4efc6.tar.bz2 perlweeklychallenge-club-e5ae992f4781e00675539ade0963de25dfc4efc6.zip | |
prefer eqv for comparing two lists
| -rw-r--r-- | challenge-094/gugod/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-094/gugod/raku/ch-1.raku b/challenge-094/gugod/raku/ch-1.raku index 53ce4283e9..78b8938dd6 100644 --- a/challenge-094/gugod/raku/ch-1.raku +++ b/challenge-094/gugod/raku/ch-1.raku @@ -22,5 +22,5 @@ sub group-anagrams (@S) { sub is-anagram (Str $a, Str $b) { return False unless $a.chars == $b.chars; - return $a.comb.sort eq $b.comb.sort + return $a.comb.sort eqv $b.comb.sort } |