RosettaCodeData/Task/Stack/Axe/stack.axe
2023-07-01 13:44:08 -04:00

14 lines
110 B
Text

0→S
Lbl PUSH
r₁→{L₁+S}ʳ
S+2→S
Return
Lbl POP
S-2→S
{L₁+S}ʳ
Return
Lbl EMPTY
S≤≤0
Return