diff options
| author | threadless-screw <threadless-screw@mailbox.org> | 2019-10-13 22:11:17 +0200 |
|---|---|---|
| committer | threadless-screw <threadless-screw@mailbox.org> | 2019-10-13 22:11:17 +0200 |
| commit | c9396b06f0a3662eef65280499591d968bbb578c (patch) | |
| tree | fe2ba67cad51191484f562f24385a84b99121120 | |
| parent | 02cdf03fa679719d999cd209e184a3016ae3980b (diff) | |
| download | perlweeklychallenge-club-c9396b06f0a3662eef65280499591d968bbb578c.tar.gz perlweeklychallenge-club-c9396b06f0a3662eef65280499591d968bbb578c.tar.bz2 perlweeklychallenge-club-c9396b06f0a3662eef65280499591d968bbb578c.zip | |
wk29ch1p6
| -rw-r--r-- | challenge-029/ozzy/perl6/ch1.p6 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-029/ozzy/perl6/ch1.p6 b/challenge-029/ozzy/perl6/ch1.p6 index a888ab5574..52c4dcb7be 100644 --- a/challenge-029/ozzy/perl6/ch1.p6 +++ b/challenge-029/ozzy/perl6/ch1.p6 @@ -1,16 +1,14 @@ #!/usr/bin/env perl6 -# wk21ch1 - Write a script to demonstrate brace expansion. +# wk29ch1 - Write a script to demonstrate brace expansion. sub MAIN ( Str $string = 'Perl {Daily,Weekly,Monthly,Yearly} Challenge' ) { grammar G { - token TOP { ( <h> \{ <alt>+ % ',' \} <t> )+ } token h { <[\w\d\s]>* } token alt { <[\w\d\s]>+ } token t { <[\w\d\s]>* } - } my @m = G.parse($string)[0]; |