diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-06 10:29:02 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-06 10:29:02 +0000 |
| commit | 299ccd70e466a89c89980e77d01abcd19e0cedd8 (patch) | |
| tree | 7226a1477c9d1424390eb1d402072e246b8fa3bc | |
| parent | ebebdc959141caca7cec4b4d6c374c6e90a575ca (diff) | |
| download | perlweeklychallenge-club-299ccd70e466a89c89980e77d01abcd19e0cedd8.tar.gz perlweeklychallenge-club-299ccd70e466a89c89980e77d01abcd19e0cedd8.tar.bz2 perlweeklychallenge-club-299ccd70e466a89c89980e77d01abcd19e0cedd8.zip | |
Challenge 207 Solutions (Raku)
| -rw-r--r-- | challenge-207/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-207/mark-anderson/raku/ch-1.raku b/challenge-207/mark-anderson/raku/ch-1.raku index de15caf680..d226573ccc 100644 --- a/challenge-207/mark-anderson/raku/ch-1.raku +++ b/challenge-207/mark-anderson/raku/ch-1.raku @@ -1,11 +1,11 @@ #!/usr/bin/env raku use Test; -is-deeply keyboard-word(< Hello Alaska Dad Peace >), < Alaska Dad >; -is-deeply keyboard-word(< OMG Bye >), < >; -is-deeply keyboard-word(< BBC CNN OAN >), < BBC CNN >; +is-deeply keyboard-word(< Hello Alaska Dad Peace >), < Alaska Dad >; +is-deeply keyboard-word(< OMG Bye >), < >; +is-deeply keyboard-word(< BBC CNN OAN >), < BBC CNN >; sub keyboard-word(@a) { - @a.grep({ .lc.comb.cache (<=) any < qwertyuiop asdfghjkl zxcvbnm >>>.comb }) + @a.grep({ .lc.comb.cache (<) any < qwertyuiop asdfghjkl zxcvbnm >>>.comb }) } |