[42S] MANT Challenge

[Gerson W. Barbosa]

(01-22-2014 12:38 PM)Werner Wrote:  Fails for 2e-02 and all 0<x<0.1 that are not 10^-n
Fails for 9.99999999999*10^n
The reason is that LOG(9.99999999999) = 1 exactly, on a real 42S
Werner

Code:


00 { 28-Byte Prgm }
01>LBL "MANT"
02 X=0?
03 RTN
04 ABS
05 ENTER
06 LOG
07 1
08 -
09 IP
10 10^X
11 ÷
12 10
13 X<>Y
14 X>=Y?
15 RCL÷ ST Y
16 .END.

Gerson.