19 lines
538 B
BQN
19 lines
538 B
BQN
|
# Subleq interpreter
|
|||
|
|
|
|||
|
|
_while_ ← {𝔽⍟𝔾∘𝔽_𝕣_𝔾∘𝔽⍟𝔾𝕩}
|
|||
|
|
ToNum ← {neg ← '-'=⊑𝕩 ⋄ (¯1⋆neg)×10⊸×⊸+˜´·⌽-⟜'0'neg↓𝕩}
|
|||
|
|
|
|||
|
|
Subleq ← {
|
|||
|
|
𝕊 memory:
|
|||
|
|
{
|
|||
|
|
𝕊 ip‿mem:
|
|||
|
|
{
|
|||
|
|
¯1‿b‿·: ⟨ip+3, (@-˜•term.CharB@)⌾(b⊸⊑) mem⟩;
|
|||
|
|
a‿¯1‿·: •Out @+a⊑mem, ⟨ip+3, mem⟩;
|
|||
|
|
a‿b‿c : d ← b-○(⊑⟜mem)a, ⟨(0<d)⊑⟨c, ip+3⟩, d⌾(b⊸⊑) mem⟩
|
|||
|
|
} mem⊏˜ip+↕3
|
|||
|
|
} _while_ {𝕊 ip‿mem: ip≥0} 0‿memory
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Subleq ToNum¨•args
|