search

CoddityTeam / movaicode

Concours mensuel du Pire Développeur de France
123 stars 10 forks source link

Basic 512 - seuls les vrais comprendront #44

Closed pinaraf closed 3 years ago

pinaraf commented 4 years ago 
10 INPUT "reverse : ", A$
20 FOR I = LEN(A$) TO 1 STEP -1
30 PRINT MID(A$, I, 1);
40 NEXT I

movai

Ce code est mauvais car ce n'est pas une fonction réutilisable. Mais bon, ça existait pas vraiment sur ce langage…

pinaraf commented 4 years ago

En 'fonction' cela donne:

15 B$ = ""
20 FOR I = LEN(A$) TO 1 STEP -1
30 B$ = B$ + MID$(A$, I, 1)
40 NEXT I
45 RETURN

Évidemment, à renuméroter quand vous l'intégrez à votre code, comme d'hab.

louismarslen commented 3 years ago

Je fais un peu de ménage dans les issues -> d'ailleurs go participer à l'édition 5