MIN3:proc(a,b,c)
local x,l,i,z;
z:=[];
l:=[a,b,c]
x:=[];
s:=l[1];
for i from 1 to 3 do
if l[i]<s then
s:=l[i];
end if;
od;
x:=[s];
member(x[1],l,'p');
for i from 1 to 3 do
if i≠p then
z:=[op(z),l[i]];
end if;
od;
for i from 1 to 2 do
x:=[op(x),min(z[1],z[2]];
od;
return x;
end;
Ce que tu fais chris ne marche pas : la fonction min ne recoit que deux éléments pas plus.... là j'ai fait l'algo général, c'est stupide pour 3 mais bon ca te donne l'idée....
sinon plsu simple en fait ^^
MIN3:=proc(a,b,c)
local l;
l:=min(a,min(b,c));
return l;
end;
bizarrement je crois que tu préféreras la deuxième version
---------------
Sleep is overrated...