Re: How to do Generic function?

[dsmith@clark.net (Doug Smith)]

In article <4l4h1p$g6v@hatathli.csulb.edu>, rgelb@csulb.edu (Robert Gelb) wrote:

> I am trying to create a generic sort function that will accept as input an
> array of integers or strings or floats and output that array sorted.  Is
> there a way to do it in ADA?
> 
> Thanks in advance, 
> Robert

I don't do other people's homework when I can help it. But here is a
challenge:

  Implement the following generic and demonstrate a working instantiation:

  generic
    type Index is (<>); -- Usually an index into an array
    with procedure Less_Than (Left, Right : in Index); -- Compares array
elements
    with procedure Swap      (Left, Right : in Index); -- Swaps array elements
  procedure Sort (Starting_At : in Index := Index'First;
                  Ending_At   : in Index := Index'Last);

Doug.

-  -  -  -  -  -  -  -  -  -  -  -  -  v  -  -  -  -  -  -  -  -
Doug Smith                             | 703-760-0519 (Work)
dsmith@clark.net                       | 703-742-8662 (Home)
AdaSmith@ACM.org                       | 703-742-9580 (Fax/Data)
http://www.clark.net/pub/dsmith/       | 168.143.0.120 (NetPhone)