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: fac41,9a0ff0bffdf63657 X-Google-Attributes: gidfac41,public X-Google-Thread: f43e6,9a0ff0bffdf63657 X-Google-Attributes: gidf43e6,public X-Google-Thread: 103376,4b06f8f15f01a568 X-Google-Attributes: gid103376,public X-Google-Thread: 1108a1,9a0ff0bffdf63657 X-Google-Attributes: gid1108a1,public From: doylep@ecf.toronto.edu (Patrick Doyle) Subject: Re: Why C++ is successful Date: 1998/08/14 Message-ID: #1/1 X-Deja-AN: 381109967 X-Nntp-Posting-Host: skule.ecf Sender: news@ecf.toronto.edu (News Administrator) References: <902934874.2099.0.nnrp-10.c246a717@news.demon.co.uk> Organization: University of Toronto, Engineering Computing Facility Newsgroups: comp.lang.eiffel,comp.object,comp.software-eng,comp.lang.ada Date: 1998-08-14T00:00:00+00:00 List-Id: In article , Robert Dewar wrote: > >For example, I find the following perfectly clear: > > <> for J in 1 .. N - 1 loop > if D (J) > D (J + 1) then > Swap (D(J), D(J + 1)); > goto Sort; > end if; > >It is a little tricky to program this without the goto and not make it >less clear. Actuallky many people who try this end up with a different >algorithm (hint: the above sort is cubic, it is NOT a quadratic bubble sort :-) Well, the fact that you had to add that hint suggests something about your code's clarity... :-) How about this: from J := 1 until J >= N loop if D(J) > D(J+1) then Swap (D(J), D(J+1)); J := 1; else J := J + 1; end end You don't need a goto just to reset J to 1. -PD -- -- Patrick Doyle doylep@ecf.toronto.edu