>Hello again:
>...
>Who knows, given that I advise on software to be used in our curriculum
>I might just convince them to use Ada instead of Code Warrior. :)
>
>(But I have to learn it first ;> )
>
>Again, thanks...
>
>Syb
>--
>Sybelle Rodriguez
>Systems Administrator
>Computer Art Department
>Savannah College of Art & Design
>Office 912-944-2290
>Fax    912-944-2283

Hi Sybelle  :>))

it's great that you want to learn Ada - it's as easy as can be.
(Of course I'm an Adavotee which is to say a C-phobic - but what matters:
I doubt that C(++) is easier to learn.)

So just to please you, I'm sending you a little puzzle for your classroom:

procedure For_Sybelle is

  type Rodriguez is
    record
      Sybelle: Integer := 1;
    end record;

  Sybelle: Integer;

  function Puzzling return Rodriguez is
    Sybelle: Integer := 0;
  begin
    return (Sybelle => Puzzling.Sybelle);
  end Puzzling;

begin

  Sybelle := Puzzling.Sybelle;

end For_Sybelle;

Is this correct although it's recursive without end condition?
And what is the result?
Perhaps you'd like and try to invent a program with fewer names.

I'd be happy to learn whether you liked this little program.

Christoph Grein
[log in to unmask]