From a7a4c17b8063faecae6c17225be92107fe90f088 Mon Sep 17 00:00:00 2001
From: Scimon <simon.proctor@gmail.com>
Date: Tue, 26 Aug 2025 10:17:32 +0100
Subject: Part 1 done

---
 challenge-336/simon-proctor/raku/ch-1.raku | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 challenge-336/simon-proctor/raku/ch-1.raku

diff --git a/challenge-336/simon-proctor/raku/ch-1.raku b/challenge-336/simon-proctor/raku/ch-1.raku
new file mode 100755
index 0000000000..c14f3870b9
--- /dev/null
+++ b/challenge-336/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+multi sub MAIN(:t(:$test)) is hidden-from-USAGE {
+    use Test;
+    is equal-group(1,1,2,2,2,2), True;
+    is equal-group(1,2,1,2,2,2), True;
+    is equal-group(1,1,1,2,2,2,3,3), False;
+    is equal-group(5,5,5,5,5,5,7,7,7,7,7,7), True;
+    is equal-group(1,2,3,4), False;
+    is equal-group(8,8,9,9,10,10,11,11), True;
+    done-testing;
+}
+
+multi sub MAIN(*@args where all(@args) ~~ Int() ) {
+    equal-group(|@args).say;
+}
+
+sub equal-group(*@args where all(@args) ~~ Int() ) {
+    my $bag = @args.Bag;
+    my $min-len = $bag.values.min;
+    return False if $min-len < 2;
+    return so all( $bag.values >>%%>> $min-len );
+}
-- 
cgit