From faeec19d3a971efdc94e86c5fc2d59239b04e84a Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 18 Oct 2015 13:19:48 +1100 Subject: Added shell, stooge, pancake sorts --- sort/stooge.ads | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 sort/stooge.ads (limited to 'sort/stooge.ads') diff --git a/sort/stooge.ads b/sort/stooge.ads new file mode 100644 index 0000000..c2e088e --- /dev/null +++ b/sort/stooge.ads @@ -0,0 +1,16 @@ + + +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 Stooge is + + procedure Sort(Arr : in out Array_T); + +end Stooge; + -- cgit