From 3e30658ec5ca3ade4f9295129729127a30b4addf Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 14 Oct 2015 12:21:23 +1100 Subject: Added bubble, quick, selection, merge, gnome sorting algorithms --- bubble.ads | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 bubble.ads (limited to 'bubble.ads') diff --git a/bubble.ads b/bubble.ads new file mode 100644 index 0000000..529c5c6 --- /dev/null +++ b/bubble.ads @@ -0,0 +1,17 @@ + + +generic + + type Index_T is (<>); + type Element_T is private; + type Array_T is array (Index_T range <>) of Element_T; + + with function ">"(X, Y : in Element_T) return Boolean is <>; + +package Bubble is + + procedure Sort(Arr : in out Array_T); + procedure Optimized(Arr : in out Array_T); + +end Bubble; + -- cgit