From 02cdf03fa679719d999cd209e184a3016ae3980b Mon Sep 17 00:00:00 2001 From: threadless-screw Date: Sun, 13 Oct 2019 22:08:13 +0200 Subject: wk29ch1p6 --- challenge-029/ozzy/perl6/ch1.p6 | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 challenge-029/ozzy/perl6/ch1.p6 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 { ( \{ + % ',' \} )+ } + 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] X~ @m[$i] X~ @m[$i]); + } + map { .say }, @r; +} \ No newline at end of file -- cgit From c9396b06f0a3662eef65280499591d968bbb578c Mon Sep 17 00:00:00 2001 From: threadless-screw Date: Sun, 13 Oct 2019 22:11:17 +0200 Subject: wk29ch1p6 --- challenge-029/ozzy/perl6/ch1.p6 | 4 +--- 1 file changed, 1 insertion(+), 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 { ( \{ + % ',' \} )+ } token h { <[\w\d\s]>* } token alt { <[\w\d\s]>+ } token t { <[\w\d\s]>* } - } my @m = G.parse($string)[0]; -- cgit