[42S] MANT Challenge

[Werner]

It's always so much easier to improve upon someone else's code than to write your own.. 7 bytes shorter, and using only two stack levels:

Code:


00 { 25-Byte Prgm }
01*LBL "MANT"
02 ABS
03 1        avoid upper exponent limit
04 X<Y?
05 10^X
06 /
07 ENTER
08 X#0?
09 LOG
10 IP
11 10^X
12 /
13 1        multiply by 10 if needed
14 X>Y?
15 10^X
16 *
17 END