From 62f1ccaddfc5a65501df9cfdf528d28927fef410 Mon Sep 17 00:00:00 2001
From: Mohammad Sajid Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 12 May 2025 05:47:55 +0100
Subject: - Added template for week 321.

---
 challenge-321/ash/README | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 challenge-321/ash/README

(limited to 'challenge-321/ash')

diff --git a/challenge-321/ash/README b/challenge-321/ash/README
new file mode 100644
index 0000000000..318b1bfb41
--- /dev/null
+++ b/challenge-321/ash/README
@@ -0,0 +1 @@
+Solutions by Andrew Shitov
-- 
cgit 


From 646c43333fbe08f69292d3a6b151f792f4e55715 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 12 May 2025 16:35:29 +0200
Subject: Solutions of Week 321 by @ash in Raku

---
 challenge-321/ash/raku/ch-1.raku | 20 ++++++++++++++++++++
 challenge-321/ash/raku/ch-2.raku | 19 +++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 challenge-321/ash/raku/ch-1.raku
 create mode 100644 challenge-321/ash/raku/ch-2.raku

(limited to 'challenge-321/ash')

diff --git a/challenge-321/ash/raku/ch-1.raku b/challenge-321/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..7e7cbb3642
--- /dev/null
+++ b/challenge-321/ash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+# Task 1 of the Weekly Challenge 321
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-321/#TASK1
+
+my @nums = 1, 2, 4, 3, 5, 6; # 1
+# my @nums = 0, 2, 4, 8, 3, 5; # 2
+# my @nums = 7, 3, 1, 0, 5, 9; # 2
+
+my @avg = gather {
+    while (@nums) {
+        my $min = @nums.min;
+        my $max = @nums.max;
+
+        my $avg = ($min + $max) / 2;
+        take $avg;
+
+        @nums.=grep: * ∉ (@nums.min, @nums.max);
+    }
+}
+
+say @avg.unique.elems;
diff --git a/challenge-321/ash/raku/ch-2.raku b/challenge-321/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..974cdc314b
--- /dev/null
+++ b/challenge-321/ash/raku/ch-2.raku
@@ -0,0 +1,19 @@
+# Task 2 of the Weekly Challenge 321
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-321/#TASK2
+
+my $str1 = 'ab#c';
+my $str2 = 'ad#c'; # True
+
+# my $str1 = 'ab##';
+# my $str2 = 'a#b#'; # True
+
+# my $str1 = 'a#b';
+# my $str2 = 'c'; # False
+
+say process($str1) eq process($str2);
+
+sub process($s is copy) {
+    $s ~~ s/.\#// while $s ~~ /.\#/;
+
+    return $s;
+}
\ No newline at end of file
-- 
cgit 


From 5dcdabe68205622b90a368cb3403dbc67174ca13 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 12 May 2025 16:36:04 +0200
Subject: nl

---
 challenge-321/ash/raku/ch-2.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'challenge-321/ash')

diff --git a/challenge-321/ash/raku/ch-2.raku b/challenge-321/ash/raku/ch-2.raku
index 974cdc314b..904586b279 100644
--- a/challenge-321/ash/raku/ch-2.raku
+++ b/challenge-321/ash/raku/ch-2.raku
@@ -16,4 +16,4 @@ sub process($s is copy) {
     $s ~~ s/.\#// while $s ~~ /.\#/;
 
     return $s;
-}
\ No newline at end of file
+}
-- 
cgit