11 lines
324 B
Text
11 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 ^ ^ / +"
|