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=2.1 required=5.0 tests=BAYES_00,INVALID_MSGID,
	MSGID_RANDY,PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,b50bc6538a649497
X-Google-Attributes: gid103376,public
From: dmitry6243@my-deja.com
Subject: Re: if statements
Date: 2000/11/08
Message-ID: <8ub98q$8er$1@nnrp1.deja.com>#1/1
X-Deja-AN: 691139216
References: <3A02CED4.520C2768@brighton.ac.uk> <3A078B6F.D34B024B@erols.com>
 <8u8j99$2rk$1@nnrp1.deja.com> <8u9r96$jmb$1@wanadoo.fr>
X-Http-Proxy: 1.1 x64.deja.com:80 (Squid/1.1.22) for client 212.79.192.251
Organization: Deja.com - Before you buy.
X-Article-Creation-Date: Wed Nov 08 10:18:05 2000 GMT
X-MyDeja-Info: XMYDJUIDdmitry6243
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/5.0 (Windows; U; WinNT4.0; en-US;
 m18) Gecko/20000929 Netscape6/6.0b3
Date: 2000-11-08T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <8u9r96$jmb$1@wanadoo.fr>,
  "Jean-Pierre Rosen" <rosen.adalog@wanadoo.fr> wrote:
>
> <dmitry6243@my-deja.com> a �crit dans le message news:
8u8j99$2rk$1@nnrp1.deja.com...
> > A funny version that does not require a temp variable:
> >
> > procedure Swap (A, B : in out Integer) is
> > begin
> >    if A <= B then
> >       A := A + B;
> >       B := A - B;
> >       A := A - B;
> >    end if;
> > end Swap;
> >
> > It works better if A, B are modular (:-))
> >
> But then, you have :
>    A:= A xor B;
>    B := B xor A;
>    A := A xor B;

It will work too, but for modulus 2**n only. +/- variant should work
always (:-))

--
Regards,
Dmitry Kazakov


Sent via Deja.com http://www.deja.com/
Before you buy.