Xref: utzoo comp.lang.misc:4445 comp.lang.c:26883 Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!rpi!brutus.cs.uiuc.edu!psuvax1!psuvm!cmh117 From: CMH117@psuvm.psu.edu (Charles Hannum) Newsgroups: comp.lang.misc,comp.lang.c Subject: Re: problems/risks due to programming language, stories requested Message-ID: <90072.231102CMH117@psuvm.psu.edu> Date: 14 Mar 90 04:11:02 GMT References: <1004@micropen> <8218@hubcap.clemson.edu> <1771@awdprime.UUCP> <879@enea.se> Organization: Penn State University Lines: 26 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 ..."