diff options
| -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; } |