4 lines
75 B
Forth
4 lines
75 B
Forth
|
: rpn(s) { s words apply(#[ eval .l ]) }
|
||
|
|
|
||
|
|
rpn("3 4 2 * 1 5 - 2 3 ^ ^ / +")
|