feat: add solution for challenge 329 from BarrOff

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-329/barroff/raku/ch-1.p6 b/challenge-329/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..0cd2e1d1c7
--- /dev/null
+++ b/challenge-329/barroff/raku/ch-1.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub counter-integers(Str $str --> Seq) {
+    $str.split(/<lower>+/, :skip-empty).unique;
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is counter-integers("the1weekly2challenge2"), (1, 2), 'works for "the1weekly2challenge2"';
+    is counter-integers("go21od1lu5c7k"), (21, 1, 5, 7), 'works for "go21od1lu5c7k"';
+    is counter-integers("4p3e2r1l"), (4, 3, 2, 1), 'works for "4p3e2r1l"';
+}
+
+#| Take user provided string like "the1weekly2challenge2"
+multi sub MAIN(Str $str) {
+    say counter-integers($str);
+}