An unexpected result involving sums of random numbers

[Gerson W. Barbosa]

(03-04-2023 05:47 PM)Gil Wrote:  Minha última versão, com UNTIL
« TIME 1. RDZ 0. 0.
1. 100000.
START
WHILE DUP 1. <=
REPEAT RAND +
SWAP 1. + SWAP
END DROP 0.
NEXT DROP
1000000. / TIME ROT
HMS-
»

... antes de descobrir a sua, Gérson, bem mais eficiente — que nunca conta, na soma das tentativas, o primeiro número aleatório, que você só acrescenta no final das contas.

Por outro lado, você usa RAND somente uma vez, o que pode ser importante quando a intenção for minimizar o tamanho. Tive que fazer daquele jeito porque na 42S estava demorando mais de um minuto para 252 iterações. A propósito, WHILE REPEAT END usa 5 bytes a mais que DO UNTIL END.

(On the other hand yours has only one instance of RAND, which might be important if you’re optimizing it for size. I only did it that way because 252 iterations were taking more than one minute on the 42S. By the way, WHILE REPEAT END takes up 22.5 bytes while DO UNTIL END takes up only 17.5).

Your program is significantly faster now, congratulations! (only a minor typo, 1000000 instead of 100000).