Re: creating an array

[Ludovic Brenta <ludovic@ludovic-brenta.org>]

"isaac2004" <isaac_2004@yahoo.com> writes:

>>If I understand the problem correctly, what you want is:
>
> Inputs: 4 and 1977
> Output: 1779
>
>
> that is sort of correct but the code you just gave me just puts the
> array into a string and parses it out when the operation should be done
> on the array, i see that you can do it that way but that would make
> throw away all of my old code. how can the old code be changed,
> especially the procedure to split the file, so that i can preform these
> actions on an array

No, my program does not "put the array into a string".  It obtains
user input as a string (which is its natural form anyway), transforms
is into an array of Naturals, and then walks the array to display
sorted digits.  Your program takes the user input as a string (its
natural form), converts it to a number (by means of
Ada.Integer_Text_IO.Get), and then tries to massage it back into an
array.  This is not only convoluted, it is also inefficient.

If that's any help, you can convert a number to an array by working
backwards; units first, then tens, then hundreds etc.  This should get
you going:

type Index_Type is range 0 .. 9;
type Occurrences_Type is array (Index_Type) of Natural;

procedure Split (Number      : in     Natural;
                 Occurrences :    out Occurrences_Type) is
   Occurrences := (others => 0);
begin
   while Number > 0 loop
      Index := Index_Type (Number mod 10);
      Occurrences (Index) := Occurrences (Index) + 1;
      Number := Number / 10;
   end loop;
end Split;

But I still think my solution is much, much better :)

-- 
Ludovic Brenta.