List Commands Library for 50g

[John Keith]

Here is my version. I have not compared it to David's but it allows a and b to be large integers without excessive memory consumption. The redundant nature of the program is to minimize execution time while returning exact or approximate integers depending on mode.

Edited to fix bug that would cause negative values to be off by 1.

Code:


\<< 3. \->LIST I\->R EVAL OVER - 1. + \-> s b a
  \<<
    IF -105. FS?
    THEN 1. s
      START RAND a * b + FLOOR
      NEXT
    ELSE 1. s
      START RAND a * b + FLOOR R\->I
      NEXT
    END s \->LIST
  \>>
\>>

To use the program, level 3 has the number of terms, level 2 has b, and level 1 has a. So if you enter 100 1000 1000000 and execute the program you will get a list of 100 random integers between 1000 and 1000000.

The program could be easily shortened and simplified if one wanted to use it only in one mode.