all tasks

Task/Sorting-algorithms-Insertion-sort/Ada/sorting-algorithms-insertion-sort.ada

@@ -0,0 +1,18 @@
+type Data_Array is array(Natural range <>) of Integer;
+
+procedure Insertion_Sort(Item : in out Data_Array) is
+   First : Natural := Item'First;
+   Last  : Natural := Item'Last;
+   Value : Integer;
+   J     : Integer;
+begin
+   for I in (First + 1)..Last loop
+      Value := Item(I);
+      J := I - 1;
+      while J in Item'range and then Item(J) > Value loop
+         Item(J + 1) := Item(J);
+         J := J - 1;
+      end loop;
+      Item(J + 1) := Value;
+   end loop;
+end Insertion_Sort;