Re: [newbie] simple(?) data structures

["Steve" <nospam_steved94@comcast.net>]

To me this looks like a simple dynamically sized structure.  Here is the
package spec I might use.  Note that in your example you set the x and y
sizes to the same.  For my spec I force them to the same size in the
Go_Board definition.

package Go is

  type Stone is ( Empty, Black, White );

  Max_Size : constant := 10_000;

  type Go_Range is range 1 .. Max_Size;

  type Go_Board( Go_Size : Go_Range ) is private;

  function Get_Stone( board : Go_Board; x, y : Go_Range ) return Stone;

  function Get_Size( board : Go_Board ) return Go_Range;

private
  type Go_Cells is array( Go_Range range <>, Go_Range range <> ) of Stone;

  type Go_Board( Go_Size : Go_Range ) is
    record
      data : Go_Cells( 1 .. Go_Size, 1 .. Go_Size );
    end record;

end Go;

Steve
(The Duck)

"Roland Illig" <roland.illig@gmx.de> wrote in message
news:2j1e30Fsrg8vU1@uni-berlin.de...
> Hi,
>
> I'm doing my first steps with Ada. I tried to model a Go board and
> failed. In Java/C++, I would do it like this:
>
> enum Stone { Empty, Black, White };
>
> class Go_Board {
>      private Stone[][] data;
>
>      public Go_Board(int size) {
>          data = new Stone[size][size];
>      }
>      public int getWidth() {
>          return data[0].length;
>      }
>      public int getHeight() {
>          return data.length;
>      }
>      public Stone getStone(int x, int y) {
>          return data[y][x];
>      }
> }
> /* EOF */
>
> How can I do this in Ada? I already tried something with packages and
> generics, but that did not look nice. But I want it to look nice and
Adaish.
>
> Roland