RPN calculator FIXED NO REALLY by yshl

[/+{add}def/-{sub}def/*{mul}def/^{exp}/{div}>>begin 9{20 string(%stdin)(r)file
1 index readline{pop/r exch def{r cvx exec cvx exec dup dup cvi sub abs 0.01
lt{cvi}if dup dup 2e6 gt{cvi dup =only 3 mod[/.1 0/.4]exch get}if

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page