Bonjour !
Quelqu'un peut me donner un coup de pouce sous maple si il connait, j'ai une petite procedure et je seche, elle ne marche pas... Je la donne au cas ou :
> binaire:=proc(n)> option remember:> if n < 2 then n > else> binaire(trunc(n/2)),modp(n,2):> fi;> end:> convCle=proc(n)> local L,k,a,i;> L:=[binaire(n)];> print(L);> k:=0:> a:=nops(L)-1:> for i from 0 to a do:> if L[i]=1 then> C[k]=i:> k=k+1:> fi:> od:> print(C);> print(L);> convCle(n)> end:
Merci d'avance