From 84fd75766b38707cdd4afb684c5cec7a4eb0d7a6 Mon Sep 17 00:00:00 2001
From: mdubaux <mdubaux@e13453a9-b01f-0410-a051-f404c4f0c485>
Date: Tue, 22 Dec 2020 19:03:03 +0000
Subject: [PATCH] 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
---
 src/vector.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/vector.adb b/src/vector.adb
index 9722366..101e823 100644
--- 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;
\ No newline at end of file
+-- end Quick_Sort;