[42S] MANT Challenge

[Gerson W. Barbosa]

(01-22-2014 09:40 AM)Werner Wrote:  On the 41, you can use Synthetic Programming to come up with a short and efficient routine that returns the mantissa.
Not so on the 42S. Is anyone willing to give it a try?
A few borderline cases that may foil your first attempts (on a real 42S, not Free42):

0
1.00000000001e-01
-9.99999999999
9.99999999999e499

Good luck,
Werner

First attempt. Trouble with your last example. This should be quite easy on the HP-15C: 9 steps on my first attempt.

Code:


00 { 20-Byte Prgm }
01>LBL "MANT"
02 X=0?
03 RTN
04 10
05 ×
06 ABS
07 ENTER
08 LOG
09 IP
10 10^X
11 ÷
12 .END.

Regards,

Gerson.