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