Merge pull request #12988 from masikoijo/new-branch

Submitting Uiua solutions for week 346

3 files changed, 51 insertions, 0 deletions

diff --git a/challenge-346/beespider/README.md b/challenge-346/beespider/README.md
new file mode 100644
index 0000000000..f7e14e4d1f
--- /dev/null
+++ b/challenge-346/beespider/README.md
@@ -0,0 +1 @@
+Solutions by beespider
diff --git a/challenge-346/beespider/uiua/ch-1.ua b/challenge-346/beespider/uiua/ch-1.ua
new file mode 100644
index 0000000000..1256cf5779
--- /dev/null
+++ b/challenge-346/beespider/uiua/ch-1.ua
@@ -0,0 +1,18 @@
+# uiua 0.17.3
+
+LongestParenthesis ← |1 (
+  °⊏
+  ⬚0/↥≡⌟(
+    ↘
+    \(⨬+⊙◌⊸=₋₁)-₁×₂=@(
+    +₁/↥⊚=₀
+  )
+)
+
+┌─╴test
+  ⍤⤙≍ 6 LongestParenthesis "(()())"
+  ⍤⤙≍ 4 LongestParenthesis ")()())"
+  ⍤⤙≍ 8 LongestParenthesis "((()))()(((()"
+  ⍤⤙≍ 2 LongestParenthesis "))))((()("
+  ⍤⤙≍ 2 LongestParenthesis "()(()"
+└─╴
diff --git a/challenge-346/beespider/uiua/ch-2.ua b/challenge-346/beespider/uiua/ch-2.ua
new file mode 100644
index 0000000000..f3ab2802c2
--- /dev/null
+++ b/challenge-346/beespider/uiua/ch-2.ua
@@ -0,0 +1,32 @@
+# uiua 0.17.3
+
+MagicExpression ← (
+  ˜⧅⋅⋅1"+-*." ⊸⧻⊃↘↙¯1
+  ≡⌟₂(
+    ⊂/⊂≡˜⊂
+    ▽⊸≠@.
+    /×≡≍⊸⍜⋕∘⊸⊜□⊸∊"0123456789"
+    ⊙□
+  )
+  ▽
+  ⊸⍚(
+    ⊜□+₁⊸∊"0123456789"
+    ⊸≡(◇≍"*")
+    +₁≠₀⍜⊚(♭≡⌟+⇡₋₁3)
+    ⊜(
+      /+⊸≡(◇≍"*")
+      □⍥(⊂□°⋕×∩⋕ ⊃⊃⊢⊡₂↘₃)
+    )
+    /◇⊂
+    /+⋕⍜↘₁(⍜⋕∘≡(□/$"__")↯∞_2)
+  )
+  ˜▽⊙=˜⊙≡°□
+)
+
+┌─╴test
+  ⍤⤙≍ ∩⍆ {"1*2*3" "1+2+3"} MagicExpression "123" 6
+  ⍤⤙≍ ∩⍆ {"1*0+5" "10-5"} MagicExpression "105" 5
+  ⍤⤙≍ ∩⍆ {"2*3+2" "2+3*2"} MagicExpression "232" 8
+  ⍤⤙≍ ∩⍆ {"1*2*3+4" "1+2+3+4"} MagicExpression "1234" 10
+  ⍤⤙≍ ∩⍆ {"1+0*0+1" "1+0+0+1" "1+0-0+1" "1-0*0+1" "1-0+0+1" "1-0-0+1"} MagicExpression "1001" 2
+└─╴