Le 0 à 100... MPO potentiel

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
Avatar de l’utilisateur
agent_macgeek
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 117
Inscription : 22 févr. 2014 18:18
Localisation : Bienne - Suisse
Contact :

Le 0 à 100... MPO potentiel

Message par agent_macgeek » 14 févr. 2015 15:26

Je relance une vieille idée :mrgreen:

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 ? :mrgreen: )

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... :mrgreen:

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 ! :mrgreen:
Nostalgique du bon vieux temps depuis 1977.

1 MacBook Pro de 2015 sous High Sierra
1 TI Nspire CX CAS
1 HP 50g
1 HP 35s
1 HP 17BII+
1 iPhone 7 sous iOS 11

cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2206
Inscription : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Le 0 à 100... MPO potentiel

Message par cgh » 14 févr. 2015 15:54

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 !
Mais qu'importe la fin du Monde, c'est juste un changement de décor. - Adamo "Rendez-vous sur Gliese"
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque

Avatar de l’utilisateur
bernouilli92
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4167
Inscription : 21 nov. 2012 14:03
Localisation : Ile de France

Re: Le 0 à 100... MPO potentiel

Message par bernouilli92 » 14 févr. 2015 19:24

@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
HP, Casio, Sharp, Psion, quelques TI et divers autres

Avatar de l’utilisateur
agent_macgeek
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 117
Inscription : 22 févr. 2014 18:18
Localisation : Bienne - Suisse
Contact :

Re: Le 0 à 100... MPO potentiel

Message par agent_macgeek » 14 févr. 2015 20:07

bernouilli92 a écrit :@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 !
Nostalgique du bon vieux temps depuis 1977.

1 MacBook Pro de 2015 sous High Sierra
1 TI Nspire CX CAS
1 HP 50g
1 HP 35s
1 HP 17BII+
1 iPhone 7 sous iOS 11

Répondre

Revenir vers « Tous les Pockets »