[42S] MANT Challenge

[Gerson W. Barbosa]

(01-22-2014 08:58 PM)Dieter Wrote:  

(01-22-2014 08:41 PM)Gerson W. Barbosa Wrote:  I talked too soon. It wouldn't work for |x| < 0.01. Despite my bad fix attempt, which made it three times as large, it won't work for |x| < 10^-10.

Here's a 15C-version of the 42s-solution I posted:

Code:

01 ABS
02 ENTER
03 X≠0?
04 LOG
05 INT
06 1
07 -
08 9
09 9
10 CHS
11 X>Y?
12 X<>Y
13 RDN
14 10^x
15 /
16 1
17 0
18 X>Y?
19 LOG
20 /

What do you think?

Very nice! It passes all equivalent Werner's examples for the HP-15C and others I tried. So does the following, as far as I have tested:

Code:


   001 {    42 21 11 } f LBL A
   002 {       43 20 } g x=0
   003 {       43 32 } g RTN
   004 {       43 16 } g ABS
   005 {          36 } ENTER
   006 {       43 13 } g LOG
   007 {           1 } 1
   008 {          30 } -
   009 {       43 44 } g INT
   010 {          13 } 10^x
   011 {          10 } ÷
   012 {       44 36 } STO RAN#
   013 {       45 36 } RCL RAN#
   014 {           1 } 1
   015 {           0 } 0
   016 {          20 } ×
   017 {       43 32 } g RTN

What do you think? Still hanging on to the idea of using the RAN# register at some point in the program, but hoping to qualify for another category :-)

Gerson.