From c6a79d4dc327582cb07189691cd5628215c67e43 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 6 Jan 2020 17:04:18 +0000
Subject: - Added solutions by Markus Holzer.

---
 challenge-042/markus-holzer/perl6/ch-1.p6 |  1 -
 challenge-042/markus-holzer/perl6/ch-2.p6 | 25 -------------------------
 challenge-042/markus-holzer/raku/ch-1.p6  |  1 +
 challenge-042/markus-holzer/raku/ch-2.p6  | 25 +++++++++++++++++++++++++
 4 files changed, 26 insertions(+), 26 deletions(-)
 delete mode 100644 challenge-042/markus-holzer/perl6/ch-1.p6
 delete mode 100644 challenge-042/markus-holzer/perl6/ch-2.p6
 create mode 100644 challenge-042/markus-holzer/raku/ch-1.p6
 create mode 100644 challenge-042/markus-holzer/raku/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
deleted file mode 100644
index ae8c600430..0000000000
--- a/challenge-042/markus-holzer/perl6/ch-1.p6
+++ /dev/null
@@ -1 +0,0 @@
-.base(8).say for ^51
\ 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
deleted file mode 100644
index 7fea6b3df8..0000000000
--- a/challenge-042/markus-holzer/perl6/ch-2.p6
+++ /dev/null
@@ -1,25 +0,0 @@
-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 { 
-        ( <opening-brace>+ ) <closing-brace> ** { $0.chars } 
-    };
-    
-    so $string ~~ /^ <balanced-braces> $/;
-}
-
-for ( ^50 )
-{
-    my $string = generate-string;
-    my $result = test-string( $string );
-    say "$string is { $result ?? 'balanced' !! 'unbalanced' }";
-}
diff --git a/challenge-042/markus-holzer/raku/ch-1.p6 b/challenge-042/markus-holzer/raku/ch-1.p6
new file mode 100644
index 0000000000..ae8c600430
--- /dev/null
+++ b/challenge-042/markus-holzer/raku/ch-1.p6
@@ -0,0 +1 @@
+.base(8).say for ^51
\ No newline at end of file
diff --git a/challenge-042/markus-holzer/raku/ch-2.p6 b/challenge-042/markus-holzer/raku/ch-2.p6
new file mode 100644
index 0000000000..7fea6b3df8
--- /dev/null
+++ b/challenge-042/markus-holzer/raku/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 { 
+        ( <opening-brace>+ ) <closing-brace> ** { $0.chars } 
+    };
+    
+    so $string ~~ /^ <balanced-braces> $/;
+}
+
+for ( ^50 )
+{
+    my $string = generate-string;
+    my $result = test-string( $string );
+    say "$string is { $result ?? 'balanced' !! 'unbalanced' }";
+}
-- 
cgit