diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-13 21:32:51 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-13 21:32:51 +0100 |
| commit | c284188eb20bdf9c2c66e1ab627e7b7b10424970 (patch) | |
| tree | 1d48cdc135773819506ab8fe00e7ab816c175af2 | |
| parent | e90712b70c3778acf2e5569bdb388b2e6fbd9aef (diff) | |
| parent | c9396b06f0a3662eef65280499591d968bbb578c (diff) | |
| download | perlweeklychallenge-club-c284188eb20bdf9c2c66e1ab627e7b7b10424970.tar.gz perlweeklychallenge-club-c284188eb20bdf9c2c66e1ab627e7b7b10424970.tar.bz2 perlweeklychallenge-club-c284188eb20bdf9c2c66e1ab627e7b7b10424970.zip | |
Merge pull request #755 from threadless-screw/ozzy-wk29p6
ozzy-wk29ch1p6
| -rw-r--r-- | challenge-029/ozzy/perl6/ch1.p6 | 21 |
1 files changed, 21 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..52c4dcb7be --- /dev/null +++ b/challenge-029/ozzy/perl6/ch1.p6 @@ -0,0 +1,21 @@ +#!/usr/bin/env perl6 + +# 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]; + 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 |