[42S] MANT Challenge

[Gerson W. Barbosa]

(01-22-2014 12:23 PM)Gerson W. Barbosa Wrote:  This should be quite easy on the HP-15C: 9 steps on my first attempt.

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.

Code:


# --------------------------------------------
# HEWLETT·PACKARD 15C Simulator program
# Created with version 3.3.00
# --------------------------------------------
# --------------------------------------------

   000 {             } 
   001 {    42 21  0 } f LBL 0
   002 {       43 36 } g LSTx
   003 {          36 } ENTER
   004 {       43 13 } g LOG
   005 {       43 44 } g INT
   006 {          16 } CHS
   007 {           1 } 1
   008 {          40 } +
   009 {          13 } 10^x
   010 {          20 } ×
   011 {       44 36 } STO RAN#
   012 {       45 36 } RCL RAN#
   013 {    42 21 11 } f LBL A
   014 {    43 30  2 } g TEST x<0
   015 {          16 } CHS
   016 {       44 36 } STO RAN#
   017 {       45 36 } RCL RAN#
   018 {           1 } 1
   019 {           0 } 0
   020 {          20 } ×
   021 {           1 } 1
   022 {          16 } CHS
   023 {          34 } x<>y
   024 {          40 } +
   025 {    43 30  2 } g TEST x<0
   026 {       22  0 } GTO 0
   027 {       43 36 } g LSTx
   028 {       43 32 } g RTN

# --------------------------------------------