Merge pull request #11997 from memark/319-320

Add Uiua solutions for 319, 320

4 files changed, 45 insertions, 0 deletions

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