From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,b50bc6538a649497 X-Google-Attributes: gid103376,public From: Wes Groleau Subject: Re: if statements Date: 2000/11/07 Message-ID: <3A083BBF.3E4FED8A@ftw.rsc.raytheon.com>#1/1 X-Deja-AN: 690861418 Content-Transfer-Encoding: 7bit References: <3A02CED4.520C2768@brighton.ac.uk> <3A078B6F.D34B024B@erols.com> X-Accept-Language: en,es,fr,pt Content-Type: text/plain; charset=us-ascii X-Complaints-To: news@ext.ray.com X-Trace: bos-service2.ext.raytheon.com 973618117 151.168.144.162 (Tue, 07 Nov 2000 12:28:37 EST) Organization: Raytheon Company MIME-Version: 1.0 NNTP-Posting-Date: Tue, 07 Nov 2000 12:28:37 EST Newsgroups: comp.lang.ada Date: 2000-11-07T00:00:00+00:00 List-Id: > procedure Swap ( A, B : in out Integer ) is > Temp : Integer := 0; > begin > if A <= B then > Temp := A; > A := B; > B := Temp; > end if; > end; Well, if we're going to do the guy's homework for him, we might as well do it elegantly: Temp := B; B := Integer'Min (A, B) A := Integer'Max (A, Temp); Oops, the "if" he wanted is missing. :-) -- Wes Groleau for President of the U.S.A. http://freepages.rootsweb.com/~wgroleau