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