Le 0 à 100... MPO potentiel

[agent_macgeek]

Je relance une vieille idée

Un simple test de rapidité pour nos beaux jouets.

Voici la version HP 35s, optimisée par Céline :

Code : Tout sélectionner

T001 LBL T
T002 100
T003 0
T004 1
T005 +
T006 x<y?
T007 GTO T004
T008 RTN
-----------------
CK=6FD6
LN=29

et la version Prime (j'ai dit Optimus ? )

Code : Tout sélectionner

EXPORT Test()
BEGIN
FOR J FROM 0 TO 99 DO
END;
RETURN J;
END;

99, oui, car si on rentre 100 dans le programme, Optimus Prime répond 101 (?!), inutile de préciser que j'ai renoncer à chronométrer...

Par contre, je sèche sur la version RPL !

J'ai essayé ça :

Code : Tout sélectionner

« 0 → X
«
WHILE X 100 <
REPEAT X 1 ADD
'X' STO
     END
   » X
»

Le compte se fait bien de 0 à 100, mais le résultat ne s'affiche pas !

Merci d'avance, Gilles !

[cgh]

Ma version sur TI-57 (20 secondes)

Code : Tout sélectionner

00  01   	1
01  00   	0
02  00   	0
03  32 0	STO 0
04  86 0	Lbl 0
05  56   	Dsz
06  51 0	GTO 0
07  81   	R/S

Le 100 reste affiche !

[bernouilli92]

@agent_macgeek: en RPL le résultat ne s'affiche pas car la variable locale X cesse d'être definie à l'extérieur du bloc.
Voici une version simple :

Code : Tout sélectionner

<< 0 1 100 START 1 + NEXT >>

On ne peut pas faire cela avec une boucle FOR NEXT car la variable (du FOR) n'existe plus à l'extérieur du bloc FOR NEXT

[agent_macgeek]

@agent_macgeek: en RPL le résultat ne s'affiche pas car la variable locale X cesse d'être definie à l'extérieur du bloc.
Voici une version simple :

Code : Tout sélectionner

<< 0 1 100 START 1 + NEXT >>

On ne peut pas faire cela avec une boucle FOR NEXT car la variable (du FOR) n'existe plus à l'extérieur du bloc FOR NEXT

Excellent, merci bernouilli92 !