summaryrefslogtreecommitdiff
path: root/bubble.ads
blob: 529c5c656d7266a9c6056f76c0a107abb230bbab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;