restification de l'algo de tri
git-svn-id: http://cregut.svn.enseeiht.fr/2020/1sn/pim/projets/GH-05@210326 e13453a9-b01f-0410-a051-f404c4f0c485
This commit is contained in:
parent
5e0f9cc8a9
commit
84fd75766b
|
@ -85,7 +85,7 @@ package body vector is
|
||||||
tmp: T_Element;
|
tmp: T_Element;
|
||||||
begin
|
begin
|
||||||
if b - a > 1 then
|
if b - a > 1 then
|
||||||
for j in a..b loop
|
for j in a+1..b loop
|
||||||
if vec(j) <= vec(pivot) then
|
if vec(j) <= vec(pivot) then
|
||||||
i := i + 1;
|
i := i + 1;
|
||||||
tmp := vec(i);
|
tmp := vec(i);
|
||||||
|
@ -169,4 +169,4 @@ end vector;
|
||||||
-- Quick_Sort (A (Left .. A'Last));
|
-- Quick_Sort (A (Left .. A'Last));
|
||||||
-- end;
|
-- end;
|
||||||
-- end if;
|
-- end if;
|
||||||
-- end Quick_Sort;
|
-- end Quick_Sort;
|
||||||
|
|
Loading…
Reference in a new issue