diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2021-02-08 23:50:30 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2021-02-08 23:50:30 -0700 |
| commit | 8a0eaca7a83531d6888d77f88bb8c44ef7daeaaf (patch) | |
| tree | ce5c2c909b11517bb9fe168254585199699f7d9a | |
| parent | 6946490cca746d4d684e7c8b281339513ef1895a (diff) | |
| download | perlweeklychallenge-club-8a0eaca7a83531d6888d77f88bb8c44ef7daeaaf.tar.gz perlweeklychallenge-club-8a0eaca7a83531d6888d77f88bb8c44ef7daeaaf.tar.bz2 perlweeklychallenge-club-8a0eaca7a83531d6888d77f88bb8c44ef7daeaaf.zip | |
Challenge 99 Solutions (Raku)
| -rw-r--r-- | challenge-099/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-099/mark-anderson/raku/ch-1.raku b/challenge-099/mark-anderson/raku/ch-1.raku index 8f580eac2f..68e0a24095 100644 --- a/challenge-099/mark-anderson/raku/ch-1.raku +++ b/challenge-099/mark-anderson/raku/ch-1.raku @@ -9,5 +9,5 @@ is pattern-match("abcde", "a*c?e"), 1; sub pattern-match($S, $P is copy) { - so $S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ / andthen .Int; + ($S ~~ / ^ <{ $P.trans: ["?", "*"] => [".", ".*"] }> $ /).Bool.UInt; } |