Astuce: s'assurer qu'un entier est binaire (0 ou 1)

[Adriweb]

Ca me rappelle ce programme de weregoose qui convertit de base x en base y (entre 2 et 35) :

Code: Select all

PROGRAM:BASECONV
:Input Str1
:Ans→A
:Ans(2→A
:"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str2
:length(Str1
:sum(seq(LA(1)^(Ans-A)(inString(Str2,sub(Str1,A,1))-1),A,1,Ans→B
:"░ // one space
:For(C,1,log(AB+1)/log(A
:sub(Str2,int(E5×√2+AfPart(B/A^C)),1)+Ans
:End
:Ans

Source (backup perso) : http://adriweb.free.fr/upload/ti/weregoose.html

[grosged]

whouaaah! c'est chauuuud !!

Edit: C'est génial ! : en déchiffrant les listings d'autrui, c'est fou ce que j'/on apprends !!!
là, par exemple, le {x,y:Prgm... pour lancer un sousprog utilisant x,y ...donc Ans(1 & Ans(2
et aussi le sum(seq(... , évitant l'emploi d'une boucle !!!!

[grosged]

J'ai potassé encore sur le sujet...
Si l'on se cantonne à des nombres n'atteignant pas 1024, on peut se passer de variable alphanumérique: on affiche alors le résultat "binaire" grâce à quelques puissances de 10 bien placées

Prompt D ; entrée du nombre en base 10 dans D
sum(seq(round(fPart(D.5^X),0)10^(X-1),X,1,10 ; résultat (pseudo) binaire