From 5e0f9cc8a9432a026c2a51a9e6d9777cf58f53ed Mon Sep 17 00:00:00 2001
From: lfainsin <lfainsin@e13453a9-b01f-0410-a051-f404c4f0c485>
Date: Tue, 22 Dec 2020 15:56:48 +0000
Subject: [PATCH] test_tri

git-svn-id: http://cregut.svn.enseeiht.fr/2020/1sn/pim/projets/GH-05@210322 e13453a9-b01f-0410-a051-f404c4f0c485
---
 src/test_tri.adb | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 src/test_tri.adb

diff --git a/src/test_tri.adb b/src/test_tri.adb
new file mode 100644
index 0000000..65cd38f
--- /dev/null
+++ b/src/test_tri.adb
@@ -0,0 +1,39 @@
+with Ada.Text_IO; use Ada.Text_IO;
+
+with Vector;
+
+procedure pageRank is
+
+    Type T_Double is digits 3;
+
+    N: Natural := 10;
+
+    package Vector_Double is
+        new Vector(T_Element => T_Double,
+                    N => N);
+    use Vector_Double;
+
+    vec: T_Vecteur_Element;
+    vec_index: T_Vecteur_Natural;
+
+begin
+
+    vec(0) := 10.0;
+    vec(1) := 1.0;
+    vec(2) := 21.0;
+    vec(3) := 3.0;
+    vec(4) := 13.0;
+    vec(5) := 56.0;
+    vec(6) := 3.0;
+    vec(7) := 5.0;
+    vec(8) := 6.0;
+    vec(9) := 6.0;
+
+    put_line("avant:");
+    put(vec);
+    new_line;
+    Quick_Sort(vec);
+    put_line("après:");
+    put(vec);
+
+end pageRank;