next up previous contents index
suivant: Pour s'amuser avec les monter: La suite des tas précédent: Une remarque   Table des matières   Index

Le programme de simulation

//programme de simulation tas.cxx
tas(l):={
local s,j,k,lr;
lr:=[l];
while (1) {
s:=size(l);
for (j:=0;j<s;j++) {
l[j]:=l[j]-1;
}
l:=concat(l,s);
//on supprime les zeros de l
k:=0;
for (j:=0;j<s+1;j++){
if (l[j]!=0){
l[k]:=l[j];
k:=k+1;
}
}
l:=mid(l,0,k);
if (member(l,lr)) return lr;
lr:=append(lr,l);
}
}
On tape :
tas([10])
On obtient :
[[10],[9,1],[8,2],[7,1,2],[6,1,3],[5,2,3],
[4,1,2,3],[3,1,2,4],[2,1,3,4],[1,2,3,4]]

Documentation de giac écrite par Renée De Graeve