Bonjour à tous !
Pour mon premier message sur ce forum, j'ai décidé de vous présenter le convertisseur de base X vers Y jusqu'à la base 36 le plus optimisé que j'ai créé.
Taille : 157 octets
Qu'en pensez-vous ? Pensez-vous qu'il existe un moyen de l'optimiser ?
Pour mon premier message sur ce forum, j'ai décidé de vous présenter le convertisseur de base X vers Y jusqu'à la base 36 le plus optimisé que j'ai créé.
Taille : 157 octets
- Code:
:EffEcr
:"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ -> Chaîne0
:Disp "BASE X VERS Y
:Prompt X,Y
:Input "N=",Chaîne1
:0
:For(I,1,longueur(Chaîne1
:RépX-1+carChaîne(Chaîne0,sous-Chaîne(Chaîne1,I,1 -> A
:End
:16 -> E
:While A
:partEnt(A/Y
:Output(8,E,sous-Chaîne(Chaîne0,A-RépY+1,1
:Rép -> A
:E-1 -> E
:End
Qu'en pensez-vous ? Pensez-vous qu'il existe un moyen de l'optimiser ?