10 lines
324 B
Text
10 lines
324 B
Text
# Experimental!
|
||
Prep ← (
|
||
Map ← "*×"_"^ⁿ"_"/÷"
|
||
⊜□⊸≠@\s # tokenise
|
||
∧(⍜⊏⋅∘⊚⊸≡◇(≍⊙⊢)⊙⊃⋅∘∘⊃⊢⊣)Map # translate terms
|
||
/◇$"_ _"⇌ # untokenise
|
||
)
|
||
Parse! ←^ {$"quote(Prep _)"}⊢
|
||
Parse!"2 3 /"
|
||
Parse!"3 4 2 * 1 5 - 2 3 ^ ^ / +"
|