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=-0.5 required=5.0 tests=BAYES_00,INVALID_MSGID,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,4a36b7df69d1af90
X-Google-Attributes: gid103376,public
From: "Pascal Obry" <p.obry@der.edf.fr>
Subject: Re: Announcing JGNAT public version 1.0p
Date: 2000/04/11
Message-ID: <8cukpm$49$1@clnews.edf.fr>#1/1
X-Deja-AN: 609507928
References: <8bqd8g$sbs$1@nnrp1.deja.com> <8c2613$hce$1@nnrp1.deja.com>
 <sedi346n9138@corp.supernews.com> <8c7fh4$25g$1@nnrp1.deja.com>
 <sefra8s2eop75@corp.supernews.com> <8c92nl$nqn$1@nnrp1.deja.com>
 <seg4ssgaeop7@corp.supernews.com> <8cak93$dtl$1@nnrp1.deja.com>
 <38EA152B.6D7A4481@earthlink.net>
 <1MNG4.630$n8.195854@news-east.usenetserver.com>
 <38ECB0CC.3B2941E2@earthlink.net> <8ckscp$nv7$1@nnrp1.deja.com>
 <8cs4ad$ft3$1@clnews.edf.fr> <8ct83j$ho3$1@nnrp1.deja.com>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
X-Complaints-To: newsadm@news.edf.fr
X-Trace: clnews.edf.fr 955438710 137 130.98.42.146 (11 Apr 2000 07:38:30 GMT)
Organization: EDF
X-MSMail-Priority: Normal
NNTP-Posting-Date: 11 Apr 2000 07:38:30 GMT
Newsgroups: comp.lang.ada
Date: 2000-04-11T07:38:30+00:00
List-Id: <comp.lang.ada>


<hugin777@my-deja.com> a �crit dans le message :
8ct83j$ho3$1@nnrp1.deja.com...
>
> PPPS: Please educate me as to where I would find a better algorithm!

Well at least you could write MarkMultiplum this way (code not tested):

     procedure MarkMultiplum (Divisor  : in     Integer;
                              Is_Prime : in out BoolArray)
     is
        K : Integer := Divisor;
     begin
         loop
             Is_Prime (K) := False;
             K := K + Disivor;
             exit when K > Is_Prime'Last;
         end loop;
     end MarkMultiplum;

Pascal.

--

--|------------------------------------------------------------
--| Pascal Obry                               Team-Ada Member |
--|                                                           |
--| EDF-DER-IPN-SID- T T I                                    |
--|                       Intranet: http://cln46gb            |
--| Bureau N-023            e-mail: p.obry@der.edf.fr         |
--| 1 Av G�n�ral de Gaulle  voice : +33-1-47.65.50.91         |
--| 92141 Clamart CEDEX     fax   : +33-1-47.65.50.07         |
--| FRANCE                                                    |
--|------------------------------------------------------------
--|
--|         http://perso.wanadoo.fr/pascal.obry
--|
--|   "The best way to travel is by means of imagination"