diff options
author | Jed Barber <jjbarber@y7mail.com> | 2015-10-17 14:14:43 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2015-10-17 14:14:43 +1100 |
commit | 5933f248c18914fbbce03102b340361a575eae3c (patch) | |
tree | 03739436f9e1d30505d18528d468a32bc330b40c /comb.adb | |
parent | a7a0c2924c68c7dc457debb60f44bffc4aa80682 (diff) |
Added comb, odd-even sorts
Diffstat (limited to 'comb.adb')
-rw-r--r-- | comb.adb | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/comb.adb b/comb.adb new file mode 100644 index 0000000..d13847c --- /dev/null +++ b/comb.adb @@ -0,0 +1,46 @@ + + +package body Comb is + + + procedure Swap(A, B : in out Element_T) is + Temp : Element_T; + begin + Temp := A; + A := B; + B := Temp; + end Swap; + + + procedure Sort(Arr : in out Array_T) is + Swapped : Boolean; + Gap : Natural; + + Shrink : constant Float := 1.3; + begin + if Arr'Length <= 1 then + return; + end if; + + Gap := Arr'Length; + + loop + Gap := Natural(Float'Floor(Float(Gap) / Shrink)); + if Gap < 1 then + Gap := 1; + end if; + + Swapped := False; + for I in Integer range Index_T'Pos(Arr'First) .. (Index_T'Pos(Arr'Last) - Gap) loop + if Arr(Index_T'Val(I)) > Arr(Index_T'Val(I + Gap)) then + Swap( Arr(Index_T'Val(I)), Arr(Index_T'Val(I + Gap)) ); + Swapped := True; + end if; + end loop; + exit when Gap = 1 and not Swapped; + end loop; + end Sort; + + +end Comb; + |