newRPL - Updated to build 1510 [official build remains at 1487]

[Gilles]

Thanks, i will change this in the 1.1 version with other things.

Here is an example of use in v1.0f ( note that i've update above in v1.01a):

Solve the cryptaritm : send+more=money

Code:

« 0 0 0 0 0 0 0 0 → s e n d m o r y
  «
    0 9 LSEQR
    8
    « { s e n d m o r y } STO
      IF s THEN
       IF m THEN
         IF s m + 9 > THEN
           IF   { s e n d } RCL NL→I 
                { m o r e } RCL NL→I + 
              { m o n e y } RCL NL→I == THEN { s e n d m o r y } DUP RCL - BREAK END
           END
         END
       END
    » 
    DOCOPE
  »    
»

=> { { 's-9' 'e-5' 'n-6' 'd-7' 'm-1' 'o-0' 'r-8' 'y-2' } }
Time newRPL PC : 32 sec
The solution is unique as you can see by removing the BREAK command.

If you remark that it's obvious that m=1 the solution is provided in 6,3 sec on a PC :

Code:

« 1 0 0 0 0 0 0 0 → m s e n d o r y
  «
    0 9 LSEQR
    7
    « { s e n d o r y } STO
      IF s 8 > THEN
        IF   { s e n d } RCL NL→I 
             { m o r e } RCL NL→I + 
           { m o n e y } RCL NL→I == THEN { s e n d m o r y } DUP RCL - BREAK END
      END
    » 
    DOCOPE
  »    
»

But then it also obvious that s equals 9 and so:

Code:

« 1 9 0 0 0 0 0 0 → m s e n d o r y
  «
    0 9 LSEQR
    6
    « { e n d o r y } STO
      IF   { s e n d } RCL NL→I 
           { m o r e } RCL NL→I + 
         { m o n e y } RCL NL→I == THEN { s e n d m o r y } DUP RCL - BREAK END
    » 
    DOCOPE
  »    
»

.
Time newRPL PC : 0.1 sec / HP 50g & HP39gs : 18,5 sec (Update 1.1 with no USB connection, see Claudio post below)

PS : The newRPL overlays for 50g et 39gs are great ! see the topic ;D