diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-03-05 03:23:48 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-03-05 03:23:48 +0000 |
| commit | 3d41fe40bd74fa7980f814f698b782204c1e3a3d (patch) | |
| tree | c7fa582bc10e1952a9a0377fd2b381b35017be83 | |
| parent | f4b14368b06ed73737a3b715ed0a4cd1db33ec03 (diff) | |
| download | perlweeklychallenge-club-3d41fe40bd74fa7980f814f698b782204c1e3a3d.tar.gz perlweeklychallenge-club-3d41fe40bd74fa7980f814f698b782204c1e3a3d.tar.bz2 perlweeklychallenge-club-3d41fe40bd74fa7980f814f698b782204c1e3a3d.zip | |
Challenge 259 Solutions (Raku)
| -rw-r--r-- | challenge-259/mark-anderson/raku/ch-2.raku | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/challenge-259/mark-anderson/raku/ch-2.raku b/challenge-259/mark-anderson/raku/ch-2.raku index f5f3dbe472..09272b6c72 100644 --- a/challenge-259/mark-anderson/raku/ch-2.raku +++ b/challenge-259/mark-anderson/raku/ch-2.raku @@ -6,13 +6,13 @@ say parse-line('{% youtube title="Title with escaped backslash \\" %}'); grammar Ch2 { - rule TOP { '{%' <ID> <KeyVal>* '%}' } - token ID { \w+ } - token Key { \w+ } - token Quoted { '\"' <[\w\s]>+ '\"' } - token Unquoted { <[\w\s]>+ } - token Val { '"' [<Quoted>||<Unquoted>|| '\\' ]+ '"' || \d+ } - rule KeyVal { <Key> '=' <Val> } + rule TOP { '{%' <ID> <KeyVal>* '%}' } + token ID { \w+ } + token Key { \w+ } + token Quoted { '\"' <[\w\s]>+ '\"' } + token Unquoted { <[\w\s]>+ } + token Val { '"' [<Quoted> || <Unquoted> || '\\' ]+ '"' || \d+ } + rule KeyVal { <Key> '=' <Val> } } sub parse-line($s) |