From 95d316f3e15e1e3e14db8ceb31115ae8df2a4067 Mon Sep 17 00:00:00 2001
From: Andrey Shitov <ash@Andreys-iMac.local>
Date: Wed, 5 Nov 2025 23:24:04 +0200
Subject: Task 1 Week 346 in Raku by @ash

---
 challenge-346/ash/raku/ch-1.raku | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 challenge-346/ash/raku/ch-1.raku

diff --git a/challenge-346/ash/raku/ch-1.raku b/challenge-346/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..3b1cff46f7
--- /dev/null
+++ b/challenge-346/ash/raku/ch-1.raku
@@ -0,0 +1,25 @@
+# Task 1 of The Weekly Challenge 346
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-346/#TASK1
+
+say paren-len '(()())'; # 6
+say paren-len ')()())'; # 4
+say paren-len '((()))()(((()'; # 8
+say paren-len '))))((()('; # 2
+say paren-len '()(()'; # 2
+
+# An extra example to find the longest string out of the two options
+say paren-len '()((())'; # 4
+
+grammar parens {
+    rule sequence {
+        <balanced>+
+    }
+
+    rule balanced {
+        '(' <balanced>* ')'
+    }
+}
+
+sub paren-len($s) {
+    $s.match(/<parens::sequence>/, :g)>>.chars.max;
+}
-- 
cgit