[Challenge Mono-ligne] Calcul d'indice

[charognard]

Je pense que le

Code : Tout sélectionner

FOR I=LEN A$TO 1STEP -1
... ASC MID$ (A$,I,1)

peut être remplacé par un

Code : Tout sélectionner

FOR I=1 TO LEN A$
... ASC RIGHT$(A$,I)

on gagne quelques octets

bien vu rémy, tu es sur la bonne voie

[babaorhum]

Hello,

Je bute aussi avec mon PC-1261 j'arrive à 82 octets pour l'instant , ca ne rente pas dans une ligne ...

Code : Tout sélectionner

1 CLEAR:INPUT A$:R=1:FOR I=LEN A$ TO 1 STEP -1:C=ASC MID$(A$,I,1)+R:R=C>90:S$=CHR$(C-26*R)+S$:NEXT I:S$=CHR$(32+R*33)+S$:PRINT S$

peut être qu'avec un 1211, on arrive a éviter 2 parenthèses et le faire entre dans une ligne ? (j'ai pas de 1211 ...)

Merci Charo pour ce défi, pas simple finalement !

[charognard]

Avec l'explication de remy. Vous y etes !
Mon code

Code : Tout sélectionner

10 CLEAR :R=1:INPUT C$:FOR B=1 TO LEN C$:A=ASC RIGHT$(c$,B)+R,R=A=91,A=A-R*26:S$=CHR$ A+S$:NEXT B:PRINT CHR$(65*R)+S$

le choix de la machine : 12XX ou 140X pour le true booleen à 1 (économie de 2 octets) et le codage des instructions/Fonctions sur 1 octets.
ASC retourne le code ASCII de la première lettre d'une chaine .... donc RIGHT$
Quand à l'ajout conditionnel de A avant la chaine, c'est le CHR$(65*R) qui s'en charge

Pour la gestion des minuscules on peut modifier de la sorte

Code : Tout sélectionner

10 CLEAR :R=1:INPUT C$:FOR B=1 TO LEN C$:A=ASC RIGHT$(c$,B)+R,R=A=91 OR A=123,A=A-R*26:S$=CHR$ A+S$:NEXT B:PRINT CHR$(65*R)+S$

80 octets pile poil.
Ligne à saisir en plusieurs foir pour le codage 1 bit des instructions/fonctions

[bernouilli92]

Le CLEAR du début est-il vraiment nécessaire ?

[babaorhum]

c'est pour avoir s="" - 3 octets de moins avec le CLEAR

[bernouilli92]

c'est pour avoir s="" - 3 octets de moins avec le CLEAR

Ok. Je n'avais pas vu que S$ était utilisé sans initialisation.

[babaorhum]

Et Bravo Charo !

Effectivement ca rentre bien dans une ligne. Avec ton truc de la fin " PRINT CHR$(65*R) + S$ " , on arrive même à caser le BEEP !

Code : Tout sélectionner

1 CLEAR:INPUT A$:R=1:FOR I=LEN A$ TO 1 STEP -1:C=ASC MID$(A$,I,1)+R:R=C>90:S$=CHR$(C-26*R)+S$:NEXT I:BEEP 1 :PRINT CHR$(65*R)+S$

Un effet étrange de cette ligne est que je dois mettre le BEEP avant le PRINT ; en bout de ligne, le BEEP 1 ne fonctionne pas quand on exécute le programme (sur mon 1261) ... mystère ...

[Paul Tergeist]

Joyeux retour lapin sanguinolant !

[charognard]

Et Bravo Charo !

Effectivement ca rentre bien dans une ligne. Avec ton truc de la fin " PRINT CHR$(65*R) + S$ " , on arrive même à caser le BEEP !

Code : Tout sélectionner

1 CLEAR:INPUT A$:R=1:FOR I=LEN A$ TO 1 STEP -1:C=ASC MID$(A$,I,1)+R:R=C>90:S$=CHR$(C-26*R)+S$:NEXT I:BEEP 1 :PRINT CHR$(65*R)+S$

Un effet étrange de cette ligne est que je dois mettre le BEEP avant le PRINT ; en bout de ligne, le BEEP 1 ne fonctionne pas quand on exécute le programme (sur mon 1261) ... mystère ...

Euh .... normal le PRINT est persistant. il faut appuyer sur RETURN

[babaorhum]

Euh .... normal le PRINT est persistant. il faut appuyer sur RETURN

... évident maintenant que tu le dis ... dsl

[Rom1500]

Bon, c'était très bien ce petit challenge, merci Charognard

[gege]

Bonjour,
Super !!

C'est beau... snifff... moi ému.
Marrant le coup du chr$(0) !

Allez, un autre STP...
G.E.

[Hobiecat]

Sympa ce petit exercice de Charo !
Et ça mériterait de figurer dans la longue série des MPOs !