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
2020-12-22 19:03:03 +00:00 · 2020-12-22 19:03:03 +00:00 · 84fd75766b
parent 5e0f9cc8a9
commit 84fd75766b
1 changed files with 2 additions and 2 deletions
--- a/src/vector.adb
+++ b/src/vector.adb
@ -85,7 +85,7 @@ package body vector is
        tmp: T_Element;
    begin
        if b - a > 1 then
-            for j in a..b loop
+            for j in a+1..b loop
                if vec(j) <= vec(pivot) then
                    i := i + 1;
                    tmp := vec(i);
@ -169,4 +169,4 @@ end vector;
 --        Quick_Sort (A (Left .. A'Last));
 --    end;
 --    end if;
-- end Quick_Sort;
+-- end Quick_Sort;