From 0bead9a3775d37719d24bfe94ac9d82e084c9e11 Mon Sep 17 00:00:00 2001
From: BarrOff <58253563+BarrOff@users.noreply.github.com>
Date: Sun, 20 Jul 2025 23:13:24 +0200
Subject: feat: add solution for challenge 330 from BarrOff

---
 challenge-330/barroff/raku/ch-1.p6 | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 challenge-330/barroff/raku/ch-1.p6

diff --git a/challenge-330/barroff/raku/ch-1.p6 b/challenge-330/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..fecab395cc
--- /dev/null
+++ b/challenge-330/barroff/raku/ch-1.p6
@@ -0,0 +1,26 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub clear-digits(Str $str --> Str) {
+    my Str $result = $str;
+    while $result ~~ /<lower>\d/ {
+        $result ~~ s/<lower>\d//;
+    }
+    $result;
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is clear-digits("cab12"), "c", 'works for "cab12"';
+    is clear-digits("xy99"), "", 'works for "xy99"';
+    is clear-digits("pa1erl"), "perl", 'works for "pa1erl"';
+}
+
+#| Take user provided number like "pa1erl"
+multi sub MAIN(Str $str) {
+    say clear-digits($str);
+}
-- 
cgit