🚀 go-pugleaf

In article <879@enea.se>, sommar@enea.se (Erland Sommarskog) says:
>
>    IF N = 0 THEN
>       Count := Count + 1;
>    END IF;
>    IF N IN 0..1 THEN
>       OCount := OCount + 1;
>    END IF;
>    IF N IN 0..2 THEN
>       Put(Count, 10);
>       Put(OCount, 10);
>       New_line;
>    ELSE
>       Put_line("Unknown.");
>    END IF;

But unless you have a REALLY GOOD optimizing compiler, this better not be in
a frequently executed loop!  (Can you say "SLOOOOOOOOW"?  I knew you could.)


Virtually,
- Charles Martin Hannum II       "Klein bottle for sale ... inquire within."
    (That's Charles to you!)     "To life immortal!"
  cmh117@psuvm.{bitnet,psu.edu}  "No noozzzz izzz netzzzsnoozzzzz..."
  c9h@psuecl.{bitnet,psu.edu}    "Mem'ry, all alone in the moonlight ..."