Parsing/Shunting-yard algorithm: Difference between revisions
→{{header|RPL}}: code improvement
(→{{header|RPL}}: typo) |
(→{{header|RPL}}: code improvement) |
||
Line 4,329:
≫ ≫ ‘<span style="color:blue">LEXER</span>’ STO <span style="color:grey">@ ( "1+(2*3)" → { 1 "+" "(" 2 "*" 3 ")" } )</span>
≪ '''IF'''
"^*/+-" DUP
{ 4 3 3 2 2 } { 1 0 0 0 0 }
→
≪ '''IF''' o2 '''THEN'''
prec o1 GET prec o2 GET
Line 4,341:
≫ ‘<span style="color:blue">POPOP?</span>’ STO <span style="color:grey">@ ( op → Boolean )</span>
≪ <span style="color:blue">LEXER</span> { } ""
≪ 0
infix j GET 'token' STO
1 SF
Line 4,349 ⟶ 4,350:
1 CF
'''WHILE''' token <span style="color:blue">POPOP?</span> '''REPEAT'''
'postfix'
token SWAP
"(" token == '''THEN'''
token
")" token == '''THEN'''
'''WHILE'''
'''IF'''
'postfix'
'''ELSE''' SWAP DROP 1 CF '''END'''
'''END'''
'''END'''
Line 4,366 ⟶ 4,365:
'''END'''
'''NEXT'''
'''WHILE'''
'postfix'
DROP ""
1 postfix SIZE '''FOR''' j
postfix j GET + " " + '''NEXT'''
| |||