From f029db47ccc9d3c26f76c767e6e2f1ba8789d8b1 Mon Sep 17 00:00:00 2001
From: Magnus Markling <magnus@markling.com>
Date: Tue, 10 Jun 2025 15:40:08 +0200
Subject: Solve 325

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

diff --git a/challenge-325/memark/uiua/ch-1.ua b/challenge-325/memark/uiua/ch-1.ua
new file mode 100644
index 0000000000..613ea86efb
--- /dev/null
+++ b/challenge-325/memark/uiua/ch-1.ua
@@ -0,0 +1,11 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-325/#TASK1
+
+# Uiua 0.17.0-dev.1
+
+ConsecutiveOnes ← ˜∧↥0⊜⧻⊸=1
+
+┌─╴🧪
+  ⍤.≍ 3 ConsecutiveOnes [0 1 1 0 1 1 1]
+  ⍤.≍ 0 ConsecutiveOnes [0 0 0 0]
+  ⍤.≍ 2 ConsecutiveOnes [1 0 1 0 1 1]
+└─╴
diff --git a/challenge-325/memark/uiua/ch-2.ua b/challenge-325/memark/uiua/ch-2.ua
new file mode 100644
index 0000000000..32be61cdae
--- /dev/null
+++ b/challenge-325/memark/uiua/ch-2.ua
@@ -0,0 +1,14 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-325/#TASK2
+
+# Uiua 0.17.0-dev.1
+# Experimental!
+
+FinalPrice ← ⍜⇌⧅(
+  -⬚0⊢▽ ⊙: ◡≤ °⊂ ⇌
+)
+
+┌─╴🧪
+  ⍤.≍ [4 2 4 2 3] FinalPrice [8 4 6 2 3]
+  ⍤.≍ [1 2 3 4 5] FinalPrice [1 2 3 4 5]
+  ⍤.≍ [6 0 1 5] FinalPrice [7 1 1 5]
+└─╴
-- 
cgit 


From 0dbe5fb3b0b8fd2a3075c5081badb619ce4026d3 Mon Sep 17 00:00:00 2001
From: Magnus Markling <magnus@markling.com>
Date: Mon, 23 Jun 2025 19:05:27 +0200
Subject: Solve 327

---
 challenge-327/memark/uiua/ch-1.ua | 14 ++++++++++++++
 challenge-327/memark/uiua/ch-2.ua | 16 ++++++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 challenge-327/memark/uiua/ch-1.ua
 create mode 100644 challenge-327/memark/uiua/ch-2.ua

diff --git a/challenge-327/memark/uiua/ch-1.ua b/challenge-327/memark/uiua/ch-1.ua
new file mode 100644
index 0000000000..9ec3a10bfb
--- /dev/null
+++ b/challenge-327/memark/uiua/ch-1.ua
@@ -0,0 +1,14 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-327/#TASK1
+
+# Uiua 0.17.0-dev.1
+
+MissingIntegers ← (
+  ⊃(◴|+1⇡⊸⧻)
+  ▽⊸(-:1/↥≡⌟⌕)
+)
+
+┌─╴🧪
+  ⍤.≍ [4 6] MissingIntegers [1 2 1 3 2 5]
+  ⍤.≍ [2 3] MissingIntegers [1 1 1]
+  ⍤.≍ [3] MissingIntegers [2 2 1]
+└─╴
diff --git a/challenge-327/memark/uiua/ch-2.ua b/challenge-327/memark/uiua/ch-2.ua
new file mode 100644
index 0000000000..de3cb284c1
--- /dev/null
+++ b/challenge-327/memark/uiua/ch-2.ua
@@ -0,0 +1,16 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-327/#TASK2
+
+# Uiua 0.17.0-dev.1
+
+MinAbsDiff ← (
+  ⧅>2
+  ⌵⊸≡/-
+  ▽=⊸/↧
+  ⍆≡⍆
+)
+
+┌─╴🧪
+  ⍤.≍ [1_2 2_3 3_4] MinAbsDiff [4 1 2 3]
+  ⍤.≍ [1_3] MinAbsDiff [1 3 7 11 15]
+  ⍤.≍ [1_3 3_5] MinAbsDiff [1 5 3 8]
+└─╴
-- 
cgit