La recherche a retourné 2053 résultats

par cgh
26 oct. 2011 13:40
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)
Réponses : 59
Vues : 9655

Re: Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)

Sur HP41, on peut encore simplifier:

Code : Tout sélectionner

  01 LBL "MCC"
  02 LBL 00
  03 10
  04 -
  05 90
  06 X<>Y
  07 X>Y?
  08 RTN
  09 21
  10 +
  11 XEQ 00
  12 XEQ 00
  13 END
par cgh
26 oct. 2011 13:27
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)
Réponses : 59
Vues : 9655

Re: Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)

Gilles59 a écrit :RPL/50 (et 48 ?)

Code : Tout sélectionner

« → n 'IFTE(n>100 , n-10 , M(M(n+11)))' » 'M' STO
Testé sur HP50
Cela fonctionne sur HP48SX (enfin sous x48).

J'ai des progrès à faire en programmation RPL, moi... :roll:
par cgh
26 oct. 2011 12:52
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)
Réponses : 59
Vues : 9655

Re: Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)

Ma version sur HP48sx :

Code : Tout sélectionner

«
  « DUP 100 >
    « 10 -
    »
    « 11 + m91 EVAL
m91 EVAL
    » IFTE
  » \-> m91
  « m91 EVAL
  »
»
EDIT: Utilisation de translate = 2
par cgh
26 oct. 2011 09:00
Forum : Tous les Pockets
Sujet : Les versions de 71B
Réponses : 54
Vues : 10874

Re: Les versions de 71B

Hobiecat a écrit :En regardant sur gougueul images, on voit quand même (indépendamment de la qualité des photos) des 71B franchement silver ou franchement gold...
Les numéros de série ou version ne sont pas très significatifs non plus...
Le mystère demeure ! :wink:
Peut être l'usine de production: USA, Singapour ?
par cgh
26 oct. 2011 08:58
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°9
Réponses : 25
Vues : 6510

Re: Misez p'tit, Optimisez - N°9

Gilles59 a écrit :Sympa de voir un prgm TI57 et optimisé je pense ;)
Ben oui. Elle dormait dans un tiroir. Et puis le sujet était intéressant et pas trop "gros" en pas de programme pour la 57 :)
par cgh
25 oct. 2011 08:33
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°9
Réponses : 25
Vues : 6510

Re: Misez p'tit, Optimisez - N°9

Bon, en fait, j'ai juste réussi une petite optimisation. J'ai découvert que les fonctions 2nd C.t et INV 2nd C.t effaçaient le registre x. Voici le dernier programme que je propose: 00 x<>t 01 CLR 02 STO 1 03 x<>t 04 Lbl 1 05 / 06 1 07 0 08 - 09 INV Int 10 SUM 1 11 = 12 INV x=t 13 GTO 1 14 1 15 0 16...
par cgh
24 oct. 2011 14:17
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°9
Réponses : 25
Vues : 6510

Re: Misez p'tit, Optimisez - N°9

De mémoire, sur TI-57 (la pile 9V de ma TI est déchargée. Je la recharge et je teste ce soir): 000 STO 1 001 0 002 STO 2 003 x<>t 004 LBL 1 005 1 006 0 007 INV Prd 1 008 RCL 1 009 INV Int 010 SUM 2 011 INV SUM 1 012 RCL 1 013 INV x=t 014 GTO 1 015 1 016 0 017 Prd 2 018 RCL 2 019 INV SBR Edit: Erreur...
par cgh
24 oct. 2011 10:41
Forum : Présentation
Sujet : Ave popule !
Réponses : 17
Vues : 2411

Re: Ave popule !

Bonjour et Bienvenue !
par cgh
21 oct. 2011 15:23
Forum : Tous les ordinateurs
Sujet : Win3.1, Win95,Win98,WinXP, WIn7.. la fin c'est Linux ?
Réponses : 80
Vues : 17366

Re: Win3.1, Win95,Win98,WinXP, WIn7.. la fin c'est Linux ?

En fait, ce qui est déroutant sous Linux, ce sont les différents outils selon les WM et même selon les distributions. Si on administre directement par les fichiers de conf standards (ex /etc/X11/xorg.conf), on a pas de soucis majeurs. J'ai même réussi à utiliser des cartes et/ou des moniteurs dans d...
par cgh
21 oct. 2011 14:56
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Voilà. Pour finir une version avec "l'astuce" proposée par C.Ret pour tester une lettre. Il est vrai que sur 41C*, les caractères 0x5B..0x5F ne sont pas directement accessibles au clavier. Il nous faut juste un peu de "largeur d'esprit" pour accepter que sigma soit la minuscule de ^ . 01 LBL "A-aRV2...
par cgh
21 oct. 2011 14:03
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Dans tous les cas, je suis très content. J'aurai appris quand à la contrainte de 7 caractères pour les variable A$..Z$ sur les SHARP 12/13/14.
Je savais qu'il y avait une contrainte sur 702P, mais je crois qu'il y avait un registre spécial pour les opérations sur les chaines.
par cgh
21 oct. 2011 13:54
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Oui. Les 41 et 42 sont avant tout des calculatrices. La gestion des chaines de caractères, même rudimentaire, a le mérite d'exister... et d'être bien puissante -> 59 octets, pas une mémoire; seule la pile et ALPHA. Les SHARP, qui sont des ordinateurs ne font pas mieux. Comme quoi, les 41 avec leur 3...
par cgh
21 oct. 2011 13:22
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Hobiecat a écrit :Donc pas mieux une fois que les tests sont incorporés ! :wink:
Ben non ! C'est en échouant lors de l'optimisation que j'ai pensé à poster "Misez p'tit, Optimisez - N°8"...

Enfin, si on possède l'APHABOX développé par Angel Martin et un module Clonix ou NoVram ou MLDL, c'est:

Code : Tout sélectionner

AREV
LOW$
par cgh
21 oct. 2011 13:12
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Le programme proposé par Hobiecat avec le test des majuscules: 01 LBL "INVERS" 02 ALENG 03 X=0? 04 RTN 05 1 06 - 07 ENTER^ 08 LBL 00 09 AROT 10 ATOX 11 R^ 12 STO L 13 RDN 14 64 15 X>Y? 16 GTO 01 17 CLX 18 90 19 X<=Y? 20 GTO 01 21 CLX 22 32 23 + 24 ENTER^ 25 LBL 01 26 X<> L 27 RDN 29 RCL Z 30 X<> Z 3...
par cgh
21 oct. 2011 12:51
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

En remplaçant le RCL- Z par:

Code : Tout sélectionner

X<> Z
ST- Z
X<> Z
ça fonctionne ! En 48 octets !

Par contre, je crains qu'il n'y ait pas assez de pile pour tester les 'A' et 'Z'. Je vais essayer en utilisant L.

Aller sur la recherche avancée