diff options
Diffstat (limited to 'challenge-346/orthoplex/uiua/ch-2.ua')
| -rw-r--r-- | challenge-346/orthoplex/uiua/ch-2.ua | 18 |
1 files changed, 18 insertions, 0 deletions
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 +└─╴ |