[Challenge mono-ligne] Traitement chaine

[charognard]

Pour ce 2eme challenge
En entrée on fournira une séquence Alpha de A à Z
chaque lettre de cette chaine sera évaluée de la sorte

A=1
B=2
..
Z=26

Le résultat est la multiplication de la valeur de chaque terme

Exemple pour
ABCDEFGH
ça donnera
1x2x3x4x5x6x7x8=40320

Le challenge sera de 3 sorte
1) le code le plus concis possible (en octets)
2) Execution la plus rapide entre le moment de la validation saisie de la chaine (Touche ENTER] et l'affichage du résultat.
3) La prise en charge jusqu'à 10 caractères serait un + (Même si le résultat fourni un exposant).

Le programme sera à faire sur un OP des années 80.

Le fonctionnement demandé :
RUN[ENTER]
saisie de la chaine[ENTER]
chronométrage
Affichage du résultat

Bon challenge

[remy]

Code : Tout sélectionner

10 FOR I = 1 TO 26: A(I)=I: NEXT I

ensuite en mode run il suffit de taper ABCDEFGH Entrée pour avoir le résultat.

Sur un PC-1211 of course.

[gege]

Bonjour,
Magnifique !
Sur HP71B :

Code : Tout sélectionner

10 INPUT A$ @ P=1 @ FOR I=1 TO LEN(A$) @ P=P*(NUM(A$[I])-64) @ NEXT I @ PRINT P

46 octets, difficile à chronométrer car presque instantané...
G.E.

[bernouilli92]

@remy: Excellent, en plus vu la méthode d'évaluation proposée, le temps de calcul ne peut que être minimal.

[charognard]

Code : Tout sélectionner

10 FOR I = 1 TO 26: A(I)=I: NEXT I

ensuite en mode run il suffit de taper ABCDEFGH Entrée pour avoir le résultat.

Sur un PC-1211 of course.

Essai intéressant

SEULEMENT TON CODE NE FONCTIONNE PAS CORRECTEMENT !!!
car il sort de la boucle prématurément
essai avec la chaine IJKLMNOP pour voir

Tu me déçois Rémy sur ce coup là
FOR A(27)=1 TO 26:A(A(27))=A(27):NEXT A(27)

[remy]

tu as raison, je suis allé un peu vite.

Code : Tout sélectionner

10 FOR A = 2 TO 26: A(A)=A: NEXT A:A=1

[charognard]

tu as raison, je suis allé un peu vite.
Mais je ne suis pas pour autant daccord avec ta solution. Il vaut mieux utiliser A dans la boucle et ajouter a=1 à la fin. Ça consomme moins d'octets

Avec Z ça peut le faire alors

[remy]

J'ai pas essayé mais avec le premier code I vaut 26 au lieu de 9.

[charognard]

Code : Tout sélectionner

10 FOR Z = 1 TO 26: A(Z)=Z: NEXT Z

Ok et testé là

Z sort à 26 et non pas à 27 comme sur certain pockets

[remy]

perfect... mais en partant de 1 ... on y arrive

[C.Ret]

Une alternative est d'utiliser une autre variable:

Code : Tout sélectionner

10:FOR A(27)=1 TO 26:A(A(27))=A(27):NEXT A(27)

Mais l'astuce de Charo est le mieux, surtout si Z reste à 26 en sortant de la boucle.

[zpalm]

Sur HP Prime:

Code : Tout sélectionner

EXPORT Prod(Str)
BEGIN
RETURN ΠLIST(EXECON("&1-64",ASC(Str)));
END;

Prod("ABCDEFGH") donne bien 40320, TEVAL(Prod("ABCDEGH")) retourne 0.002_s

[Gilles59]

Sur HP Prime:

Code : Tout sélectionner

EXPORT Prod(Str)
BEGIN
RETURN ΠLIST(EXECON("&1-64",ASC(Str)));
END;

Prod("ABCDEFGH") donne bien 40320, TEVAL(Prod("ABCDEGH")) retourne 0.002_s

Ou plus simplement (mais on n'est pas sur un pocket des années 80)

Code : Tout sélectionner

EXPORT Prod(Str) BEGIN ΠLIST(ASC(Str)-64); END;

Equivalent RPL avec lalibrary Gofer (32,5 bytes)

Code : Tout sélectionner

« Chars  NUM 64 - Product »

L'astuce ¨PC1211 est top. Elle fonctionne aussi sur HP PRIME sous réserve qu'aucune variable correspondant à la chaine qu'on veut calculer n'existe.En effet la Prime interprète ABC comme A*B*C si ABC ou AB ou BC nexiste pas (perso je trouve que c'est surtout un nid à bug ce mode de fonctionnement)

[babaorhum]

un petit essai timide en 12 pas sur HP42S (ou 41C) :

Code : Tout sélectionner

01  LBL"PROD"
02  1
03  AON
04  PROMPT
05  LBL 00
06  ATOX
07  X=0?
08  RTN
09  64
10   -
11   x
12   GTO 00

Pas de chrono mais ca va assez vite sur 42s !

[zpalm]

Ou plus simplement (mais on n'est pas sur un pocket des années 80)

Code : Tout sélectionner

EXPORT Prod(Str) BEGIN ΠLIST(ASC(Str)-64); END;

C'est effectivement beaucoup plus simple ...