## TEAM-ADA@LISTSERV.ACM.ORG

 Options: Use Forum View Use Proportional Font Show Text Part by Default Show All Mail Headers Message: [<< First] [< Prev] [Next >] [Last >>] Topic: [<< First] [< Prev] [Next >] [Last >>] Author: [<< First] [< Prev] [Next >] [Last >>]

 Subject: Re: Ada and graphics From: Christoph & Ursula Grein <[log in to unmask]> Reply To: Christoph & Ursula Grein <[log in to unmask]> Date: Mon, 5 May 1997 20:48:00 +0100 Content-Type: text/plain Parts/Attachments: text/plain (56 lines)
```>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]
```