diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2021-02-08 23:33:50 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2021-02-08 23:33:50 -0700 |
| commit | c7396711c480ba2efa859ef6095fe15907bb2742 (patch) | |
| tree | 8191a722dee249c10350ee5eaa348c822f8dbe30 | |
| parent | 41e95424b444033b982d3f94eb08959365c77113 (diff) | |
| download | perlweeklychallenge-club-c7396711c480ba2efa859ef6095fe15907bb2742.tar.gz perlweeklychallenge-club-c7396711c480ba2efa859ef6095fe15907bb2742.tar.bz2 perlweeklychallenge-club-c7396711c480ba2efa859ef6095fe15907bb2742.zip | |
Challenge 99 Solutions (Raku)
| -rw-r--r-- | challenge-099/mark-anderson/raku/ch-1.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku index 9bd7d0c63e..4d8687f9da 100644 --- a/challenge-099/mark-anderson/raku/ch-1.raku +++ b/challenge-099/mark-anderson/raku/ch-1.raku @@ -9,7 +9,6 @@ is pattern-match("abcde", "a*c?e"), 1; sub pattern-match($S, $P is copy) { - $P ~~ s:g/ \? / . /; - $P ~~ s:g/ \* / .* /; + $P .= trans: ["?", "*"] => [".", ".*"]; so $S ~~ / ^ <$P> $ / andthen .Int; } |