newRPL - build 1255 released! [updated to 1299]

[Gilles59]

This one is very strange bug...

What does this program is not very important. It is a variation about the problem 237 of the "défi Turing" : http://turing.nymphomath.ch/

I use the simulator on my laptop, NewRPL v1001
SETNFMT to display 20 digits of a number (the program dont work if you dont set this).
1E19 SETNFMT

Try this

Code:


«
  { } 
 495536 201802018 * 1000000000000000 FOR 'n'
   IF n 0 4 DIGITS  n 14 10 DIGITS + n 5 9 DIGITS == THEN
      IF n →STR "2018" POS THEN
        n ADD 
      END
    END
  201802018  STEP
»

You must find 2849 solutions ( SIZE of the returned list).
Sometimes its OK, sometimes I get only 2848 solutions (I notice one time when it was wrong that the 176nth solution 127135473142018 was missing, but it seems its not always the same)

Just play with the simulator, with the MEM command etc...
I have no idea how to get the bug each time but for sure I tested exactly the same program several times and the results were sometimes 2848 solutions other times 2049 solutions.

Nota : This program is incredibly fast on my PC : 6,5 second for 4.5E6 loops !