Merge pull request #1111 from mienaikage/042-raku

Add Raku solutions for challenge-042

2 files changed, 21 insertions, 0 deletions

diff --git a/challenge-042/daniel-mita/raku/ch-1.sh b/challenge-042/daniel-mita/raku/ch-1.sh
new file mode 100755
index 0000000000..987fc3e1cc
--- /dev/null
+++ b/challenge-042/daniel-mita/raku/ch-1.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+raku -e '.base(8).say for ^51'
diff --git a/challenge-042/daniel-mita/raku/ch-2.p6 b/challenge-042/daniel-mita/raku/ch-2.p6
new file mode 100644
index 0000000000..036e8b4f9f
--- /dev/null
+++ b/challenge-042/daniel-mita/raku/ch-2.p6
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl6
+
+unit sub MAIN (
+  UInt :$parens = 10,
+);
+
+my $count = 0;
+
+for roll <( )>: (^$parens).pick {
+  .say;
+  when '(' { $count++ }
+  when ')' { die 'close before open' if --$count < 0 }
+}
+
+if $count {
+  die "$count unclosed";
+}
+
+'balanced'.say;