From 63c3043200de6b28a8c192f1b5625940435ea55e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 17 Oct 2015 14:20:48 +1100 Subject: Organised source code a bit, added makefile with clean target --- insertion.adb | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 insertion.adb (limited to 'insertion.adb') diff --git a/insertion.adb b/insertion.adb deleted file mode 100644 index 863fb8e..0000000 --- a/insertion.adb +++ /dev/null @@ -1,29 +0,0 @@ - - -package body Insertion is - - - procedure Sort(Arr : in out Array_T) is - Place : Index_T; - Temp : Element_T; - begin - if Arr'Length <= 1 then - return; - end if; - - for I in Index_T range Index_T'Succ(Arr'First) .. Arr'Last loop - if Arr(Index_T'Pred(I)) > Arr(I) then - Place := I; - while Place /= Arr'First and then Arr(Index_T'Pred(Place)) > Arr(I) loop - Place := Index_T'Pred(Place); - end loop; - Temp := Arr(I); - Arr(Index_T'Succ(Place) .. I) := Arr(Place .. Index_T'Pred(I)); - Arr(Place) := Temp; - end if; - end loop; - end Sort; - - -end Insertion; - -- cgit