RPL programming questions

[peacecalc]

Surprising competition,

I wrote three little programs, for testing the speed of hp 50g recalling 5000 times five different storeplaces

a) global variables program "TGLO":

Code:


%%HP: T(3)A(R)F(,);
\<< 1, 'A' STO 
    2, 'B' STO 
    3, 'C' STO 
    4, 'D' STO 
    5, 'E' STO 
    TICKS 
    1, 5000, START 
             'A' RCL DROP 
             'B' RCL DROP 
             'C' RCL DROP 
             'D' RCL DROP 
             'E' RCL DROP
              NEXT 
    TICKS SWAP - 8192 / 
    { A B C D E } PURGE
\>>

this proggie create five globales from "A" to "E" and in the loop these variables are
recalled and the values are immediately afterwards deleted. It takes on the real machine: 56 sec.

b) the second proggie: "TSTK":

Code:


%%HP: T(3)A(R)F(,);
\<< 1, 2, 3, 4, 5, 
    TICKS 
    1, 5000, START 
             5, PICK DROP 
             4, PICK DROP 
             3, PICK DROP 
             2, PICK DROP 
             1, PICK DROP
           NEXT 
    TICKS SWAP - 8192 /
\>>

this proggie create five values on stacklevel one to five and in the loop these variables are recalled by PICK and immediately afterwards deleted. It takes on the real machine: 26 sec.

Okay, two times faster.

But now the surprise:

c) working with locals "TLOC":

Code:


%%HP: T(3)A(R)F(,);
\<< 1, 2, 3, 4, 5, \-> A B C D E
  \<< TICKS 
    1, 5000, START 
             'A' RCL DROP 
             'B' RCL DROP 
             'C' RCL DROP 
             'D' RCL DROP 
             'E' RCL DROP
             NEXT 
   TICKS SWAP - 8192 /
  \>>
\>>

this proggie create five local variables from "A" to "E" and in the loop these variables are recalled and immediately afterwards deleted. It takes on the real machine: 57 sec.

So one can see in examples how to test certain commands about their time consumption. But you have each command for their own and the programming have to provide comparative environments.

Greetings
peacecalc