From d53116df72c8b05d44b5ead55a2d970201520d34 Mon Sep 17 00:00:00 2001 From: orthoplex <> Date: Mon, 10 Nov 2025 00:16:28 +0100 Subject: Week 346 in Uiua --- challenge-346/orthoplex/uiua/ch-1.ua | 11 +++++++++++ challenge-346/orthoplex/uiua/ch-2.ua | 18 ++++++++++++++++++ 2 files changed, 29 insertions(+) create mode 100644 challenge-346/orthoplex/uiua/ch-1.ua create mode 100644 challenge-346/orthoplex/uiua/ch-2.ua diff --git a/challenge-346/orthoplex/uiua/ch-1.ua b/challenge-346/orthoplex/uiua/ch-1.ua new file mode 100644 index 0000000000..0b037823c3 --- /dev/null +++ b/challenge-346/orthoplex/uiua/ch-1.ua @@ -0,0 +1,11 @@ +# uiua 0.17.2 + +LongestParenthesis ← ⬚0/↥˙⊜⧻±⍥⍜(regex"\\(A*\\)"|↥@A)∞ + +┌─╴test + ⍤⤙≍6 LongestParenthesis "(()())" + ⍤⤙≍4 LongestParenthesis ")()())" + ⍤⤙≍8 LongestParenthesis "((()))()(((()" + ⍤⤙≍2 LongestParenthesis "))))((()(" + ⍤⤙≍2 LongestParenthesis "()(()" +└─╴ diff --git a/challenge-346/orthoplex/uiua/ch-2.ua b/challenge-346/orthoplex/uiua/ch-2.ua new file mode 100644 index 0000000000..9a3085dcc0 --- /dev/null +++ b/challenge-346/orthoplex/uiua/ch-2.ua @@ -0,0 +1,18 @@ +# uiua 0.17.2 + +MagicExpression ← ( + ⧅⋅⧻⊙{@*@+@-""}-₁⊸⧻ # separator combinations + ⍚⌟(/◇⊂♭⍉⊟⊂□"") # interleave + ▽⊸≡◇(≍⊸⍚⍜⋕∘⊜□⊸≥@0) # leading zeros + ˜▽⊙=⟜≡◇(/+⊕(/×⊜⋕⊸≠@*)\+⊸∊"-+") # eval +) + +┌─╴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 +└─╴ -- cgit