From f81c10b758026a2c4964f2604c3c13ea38af75ba Mon Sep 17 00:00:00 2001
From: Magnus Markling <magnus@markling.com>
Date: Sat, 10 May 2025 19:49:00 +0200
Subject: Solve 319

---
 challenge-319/memark/uiua/ch-1.ua | 12 ++++++++++++
 challenge-319/memark/uiua/ch-2.ua | 11 +++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 challenge-319/memark/uiua/ch-1.ua
 create mode 100644 challenge-319/memark/uiua/ch-2.ua

diff --git a/challenge-319/memark/uiua/ch-1.ua b/challenge-319/memark/uiua/ch-1.ua
new file mode 100644
index 0000000000..55a0e2a8c1
--- /dev/null
+++ b/challenge-319/memark/uiua/ch-1.ua
@@ -0,0 +1,12 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-319/#TASK1
+
+# Uiua 0.16.0-dev.2
+# Experimental!
+
+WordCount ← /+∨ ∩(≡⌞∊"aoeui") ≡◇⊃⊢⊣
+
+┌─╴🧪
+  ⍤. =2 WordCount {"unicode" "xml" "raku" "perl"}
+  ⍤. =2 WordCount {"the" "weekly" "challenge"}
+  ⍤. =0 WordCount {"perl" "python" "postgres"}
+└─╴
diff --git a/challenge-319/memark/uiua/ch-2.ua b/challenge-319/memark/uiua/ch-2.ua
new file mode 100644
index 0000000000..d4f365748d
--- /dev/null
+++ b/challenge-319/memark/uiua/ch-2.ua
@@ -0,0 +1,11 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-319/#TASK2
+
+# Uiua 0.16.0-dev.2
+
+MinimumCommon ← ⨬⋅¯1/↧ ±⊸⧻ ▽⊸∊
+
+┌─╴🧪
+  ⍤. =3 MinimumCommon [1 2 3 4] [3 4 5 6]
+  ⍤. =2 MinimumCommon [1 2 3] [2 4]
+  ⍤. =¯ 1 MinimumCommon [1 2 3 4] [5 6 7 8]
+└─╴
-- 
cgit 


From ec50e9ceb9af3bf2cd60c8abd7d1694f61a6a47a Mon Sep 17 00:00:00 2001
From: Magnus Markling <magnus@markling.com>
Date: Sat, 10 May 2025 16:50:00 +0200
Subject: Solve 320

---
 challenge-320/memark/uiua/ch-1.ua | 11 +++++++++++
 challenge-320/memark/uiua/ch-2.ua | 11 +++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 challenge-320/memark/uiua/ch-1.ua
 create mode 100644 challenge-320/memark/uiua/ch-2.ua

diff --git a/challenge-320/memark/uiua/ch-1.ua b/challenge-320/memark/uiua/ch-1.ua
new file mode 100644
index 0000000000..3627335fd4
--- /dev/null
+++ b/challenge-320/memark/uiua/ch-1.ua
@@ -0,0 +1,11 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK1
+
+# Uiua 0.16.0-dev.2
+
+MaximumCount ← ↥∩/+⊃><0
+
+┌─╴🧪
+  ⍤. =3 MaximumCount [¯3 ¯2 ¯1 1 2 3]
+  ⍤. =2 MaximumCount [¯2 ¯1 0 0 1]
+  ⍤. =4 MaximumCount [1 2 3 4]
+└─╴
diff --git a/challenge-320/memark/uiua/ch-2.ua b/challenge-320/memark/uiua/ch-2.ua
new file mode 100644
index 0000000000..8e8652a3ea
--- /dev/null
+++ b/challenge-320/memark/uiua/ch-2.ua
@@ -0,0 +1,11 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-320/#TASK2
+
+# Uiua 0.16.0-dev.2
+
+SumDifference ← ⌵-∩/+⊃(∘|≡⋕/$"__")
+
+┌─╴🧪
+  ⍤. =18 SumDifference [1 23 4 5]
+  ⍤. =0 SumDifference [1 2 3 4 5]
+  ⍤. =27 SumDifference [1 2 34]
+└─╴
-- 
cgit