Merge pull request #10263 from arnesom/branch-for-challenge-273

Arne Sommer

5 files changed, 43 insertions, 0 deletions

diff --git a/challenge-273/arne-sommer/blog.txt b/challenge-273/arne-sommer/blog.txt
new file mode 100644
index 0000000000..0b9e6b9601
--- /dev/null
+++ b/challenge-273/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/b-of-a.html
diff --git a/challenge-273/arne-sommer/raku/b-after-a b/challenge-273/arne-sommer/raku/b-after-a
new file mode 100755
index 0000000000..1bdc6b234e
--- /dev/null
+++ b/challenge-273/arne-sommer/raku/b-after-a
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str.chars > 0);
+
+if $str ~~ /b/
+{
+  my $after = $str.split(/b/, 2)[1];
+
+  if $after !~~ /a/
+  {
+    say 'true';
+    exit;
+  }
+}
+
+say 'false';
diff --git a/challenge-273/arne-sommer/raku/ch-1.raku b/challenge-273/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..0b835c61e9
--- /dev/null
+++ b/challenge-273/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str.chars > 0, $char where $char.chars == 1);
+
+say ( (100 * $str.comb.Bag{$char} / $str.chars) + 0.5).int;
diff --git a/challenge-273/arne-sommer/raku/ch-2.raku b/challenge-273/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..1bdc6b234e
--- /dev/null
+++ b/challenge-273/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str.chars > 0);
+
+if $str ~~ /b/
+{
+  my $after = $str.split(/b/, 2)[1];
+
+  if $after !~~ /a/
+  {
+    say 'true';
+    exit;
+  }
+}
+
+say 'false';
diff --git a/challenge-273/arne-sommer/raku/percentage-of-character b/challenge-273/arne-sommer/raku/percentage-of-character
new file mode 100755
index 0000000000..0b835c61e9
--- /dev/null
+++ b/challenge-273/arne-sommer/raku/percentage-of-character
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str.chars > 0, $char where $char.chars == 1);
+
+say ( (100 * $str.comb.Bag{$char} / $str.chars) + 0.5).int;