diff options
| author | threadless-screw <threadless-screw@mailbox.org> | 2019-10-13 22:08:13 +0200 |
|---|---|---|
| committer | threadless-screw <threadless-screw@mailbox.org> | 2019-10-13 22:08:13 +0200 |
| commit | 02cdf03fa679719d999cd209e184a3016ae3980b (patch) | |
| tree | 81704e7f3639e47914b3e524ead94822047e4906 | |
| parent | 9413aa77625e076bc96176b7ae8b932cb78d0d9e (diff) | |
| download | perlweeklychallenge-club-02cdf03fa679719d999cd209e184a3016ae3980b.tar.gz perlweeklychallenge-club-02cdf03fa679719d999cd209e184a3016ae3980b.tar.bz2 perlweeklychallenge-club-02cdf03fa679719d999cd209e184a3016ae3980b.zip | |
wk29ch1p6
| -rw-r--r-- | challenge-029/ozzy/perl6/ch1.p6 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-029/ozzy/perl6/ch1.p6 b/challenge-029/ozzy/perl6/ch1.p6 new file mode 100644 index 0000000000..a888ab5574 --- /dev/null +++ b/challenge-029/ozzy/perl6/ch1.p6 @@ -0,0 +1,23 @@ +#!/usr/bin/env perl6 + +# wk21ch1 - 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]; + my @r = ""; + + for ^@m.elems -> $i { + @r = (@r X~ @m[$i]<h> X~ @m[$i]<alt> X~ @m[$i]<t>); + } + map { .say }, @r; +}
\ No newline at end of file |