16 lines
338 B
Plaintext
16 lines
338 B
Plaintext
(%i5) ev(rpn("3 4 2 * 1 5 - 2 3 ^ ^ / +"),numer)
|
|
3 : [3]
|
|
4 : [4, 3]
|
|
2 : [2, 4, 3]
|
|
* : [8, 3]
|
|
1 : [1, 8, 3]
|
|
5 : [5, 1, 8, 3]
|
|
- : [- 4, 8, 3]
|
|
2 : [2, - 4, 8, 3]
|
|
3 : [3, 2, - 4, 8, 3]
|
|
^ : [8, - 4, 8, 3]
|
|
^ : [65536, 8, 3]
|
|
/ : [1.220703125e-4, 3]
|
|
+ : [3.0001220703125]
|
|
(%o5) 3.0001220703125
|