Merge pull request #12233 from memark/325-327

Solve 325 327 in Uiua

4 files changed, 55 insertions, 0 deletions

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]
+└─╴
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]
+└─╴