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

@@ -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;