Maple

[CharlesB]

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

Modifié le 6 novembre 2006 par CharlesB