Lance Birch wrote:

> he he he, now can someone show it to me in ADA 95?  ;-)

Of course -- please forgive my having lost the original post,
so I have no idea what it's supposed to do, but, hey, that
never stopped me before!

with Ada.Text_IO;
procedure POVRay_Roolz is
   type Counter is ( One, Two, Three, Four, Five );
   type Other_Counter is range -128..127;
begin
   for An_Absurdly_Long_Index_Name_That_Wont_Be_Used_Anyway in
    Counter'range loop
      for Yet_Another_Silly_Index_Name in 1..Other_Counter'size loop
         Ada.Text_IO.Put ("PLEASE!!! ");
      end loop;
      Ada.Text_IO.New_Line;
   end loop;
end POVRay_Roolz;

This only puts out 5 lines.  You should contine to type in the
other 19,995 enumerations in "Counter".

You're welcome.

Or in Forth:

	: POVRAY_ROOLZ
	  2 0 DO
	    10000 0 DO
	      8 0 DO
		." PLEASE!!! "
	      LOOP
	      CR
            LOOP
          LOOP ;

The double outer loop is because Forth (at least FIG-Forth) has
16-bit values.
--
Bob Crispen
cri### [at] hiwaaynet
What a day, what a day, for an auto-da-fe.

Post a reply to this message