Re: project euler 26

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On 2023-09-06 17:16, Ben Bacarisse wrote:

> I am curious to know how reusable this is.  Can the packages be
> instantiated in such a way that the argument ranges over the elements
> of, say, and Ordered_Map?

Sure:

    with Ada.Containers.Ordered_Maps;

    package Integer_Maps is
       new Ada.Containers.Ordered_Maps (Integer, Integer);
    use Integer_Maps;
    package Cursor_Arguments is new Generic_Arguments (Cursor);
    package Map_Values is new Generic_Values (Integer);
    package Map_Functions is
       new Generic_Discrete_Comparable_Valued
           (Cursor_Arguments, Map_Values);

Then given X is a map: X : Map;

    Map_Functions.Maximum_At (X.First, X.Last, Element'Access)

> Maybe a more generic a solution would involve passing something that can
> be iterated over, rather than two values of an "enumerated" type?  I
> mean enumerated in the mathematical sense -- it may be the wrong word in
> Ada.

Yes, but Ada does not have built-in range types. Therefore such design 
will not work out of the box with discrete types because 2..999 is not a 
proper object in Ada. However, talking about abstractions, you can 
create an interval type for the purpose or else use an ordered set of 
integers.

> I am asking you but I am also the group.  I appreciate your help,
> but don't want you to feel any obligation to keep helping!

No problem.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de