From 337202a11512d90c3f3f06ef38b782d8b40242b9 Mon Sep 17 00:00:00 2001 From: holli-holzer Date: Mon, 6 Jan 2020 17:32:56 +0100 Subject: Solutions Markus Holzer --- challenge-042/markus-holzer/perl6/ch-1.p6 | 1 + challenge-042/markus-holzer/perl6/ch-2.p6 | 25 +++++++++++++++++++++++++ 2 files changed, 26 insertions(+) create mode 100644 challenge-042/markus-holzer/perl6/ch-1.p6 create mode 100644 challenge-042/markus-holzer/perl6/ch-2.p6 (limited to 'challenge-042') diff --git a/challenge-042/markus-holzer/perl6/ch-1.p6 b/challenge-042/markus-holzer/perl6/ch-1.p6 new file mode 100644 index 0000000000..a5faa3c2b2 --- /dev/null +++ b/challenge-042/markus-holzer/perl6/ch-1.p6 @@ -0,0 +1 @@ +.say for (^51).map( *.base(8) ) \ No newline at end of file diff --git a/challenge-042/markus-holzer/perl6/ch-2.p6 b/challenge-042/markus-holzer/perl6/ch-2.p6 new file mode 100644 index 0000000000..7fea6b3df8 --- /dev/null +++ b/challenge-042/markus-holzer/perl6/ch-2.p6 @@ -0,0 +1,25 @@ +sub generate-string +{ + my @braces = "(", ")"; + my $length = ( 2 ..^ 6 ).pick; + my @string = ( 0 .. $length ).map({ @braces.pick }); + @string.join( "" ); +} + +sub test-string( $string ) +{ + my token opening-brace { \( }; + my token closing-brace { \) }; + my token balanced-braces { + ( + ) ** { $0.chars } + }; + + so $string ~~ /^ $/; +} + +for ( ^50 ) +{ + my $string = generate-string; + my $result = test-string( $string ); + say "$string is { $result ?? 'balanced' !! 'unbalanced' }"; +} -- cgit From a4b21f5ed72727bd4d36ef42cf75ae5e4667c26b Mon Sep 17 00:00:00 2001 From: holli-holzer Date: Mon, 6 Jan 2020 17:40:13 +0100 Subject: Solutions Markus Holzer --- challenge-042/markus-holzer/perl6/ch-1.p6 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'challenge-042') diff --git a/challenge-042/markus-holzer/perl6/ch-1.p6 b/challenge-042/markus-holzer/perl6/ch-1.p6 index a5faa3c2b2..ae8c600430 100644 --- a/challenge-042/markus-holzer/perl6/ch-1.p6 +++ b/challenge-042/markus-holzer/perl6/ch-1.p6 @@ -1 +1 @@ -.say for (^51).map( *.base(8) ) \ No newline at end of file +.base(8).say for ^51 \ No newline at end of file -- cgit