The Museum of HP Calculators

HP Forum Archive 17

[ Return to Index | Top of Index ]

HP42S Mini-Challenge : HP17B(II) solution
Message #1 Posted by lary on 23 May 2007, 5:16 a.m.

I know it's a bit late but here is a solution for the HP17B(II) (hardware clone of the HP42s) :

P=sigma(I:999999:316228:-11:IF(IP(I×I÷1E6)=sigma(J:1:5:1:IP(MOD(I×I÷10^J:10))×10^(5-J)):I×I:0))

365 bytes (variables included) and 3m30 with EMU42 on 1,5Ghz Centrino

      
HP42S Mini-Challenge : HP17B(II) solution
Message #2 Posted by lary on 23 May 2007, 5:34 a.m.,
in response to message #1 by lary

Finger check, here is the good one :

P=sigma(I:999999:316228:-11:IF(IP(I×I÷1E6)=sigma(J:0:5:1:IP(MOD(I×I÷10^J:10))×10^(5-J)):I×I:0))

            
Very nice ! :-) Timing ? [NT]
Message #3 Posted by Valentin Albillo on 23 May 2007, 5:58 a.m.,
in response to message #2 by lary

Best regards from V.

                  
HP42S Mini-Challenge : HP17B(II) solution
Message #4 Posted by lary on 23 May 2007, 7:52 a.m.,
in response to message #3 by Valentin Albillo

Estimated time on a real HP17BII = 8 hours 30 min. Unfortunately it can't go out of the loop once the solution found...


[ Return to Index | Top of Index ]

Go back to the main exhibit hall