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.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,703c4f68db81387d X-Google-Thread: 109fba,703c4f68db81387d X-Google-Attributes: gid103376,gid109fba,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news3.google.com!news.glorb.com!newsfeed00.sul.t-online.de!t-online.de!tsicnews.teliasonera.com!news.otenet.gr!news.grnet.gr!newsfd02.forthnet.gr!not-for-mail From: Ioannis Vranos Newsgroups: comp.lang.ada,comp.lang.c++ Subject: Re: Teaching new tricks to an old dog (C++ -->Ada) Date: Thu, 10 Mar 2005 06:41:00 +0200 Organization: FORTHnet S.A., Atthidon 4, GR-17671 Kalithea, Greece, Tel: +30 2109559000, Fax: +30 2109559333, url: http://www.forthnet.gr Message-ID: <1110429670.232319@athnrd02> References: <4229bad9$0$1019$afc38c87@news.optusnet.com.au> <1110032222.447846.167060@g14g2000cwa.googlegroups.com> <871xau9nlh.fsf@insalien.org> <3SjWd.103128$Vf.3969241@news000.worldonline.dk> <87r7iu85lf.fsf@insalien.org> <1110052142.832650@athnrd02> <1110284070.410136.205090@o13g2000cwo.googlegroups.com> <395uqaF5rhu2mU1@individual.net> <1110377260.350158.58730@z14g2000cwz.googlegroups.com> <422f0c08$1_1@baen1673807.greenlnk.net> <1110421853.766292@athnrd02> <4%PXd.358789$w62.304065@bgtnsc05-news.ops.worldnet.att.net> NNTP-Posting-Host: athnrd02.forthnet.gr Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: athprx02.forthnet.gr 1110429670 17282 193.92.150.73 (10 Mar 2005 04:41:10 GMT) X-Complaints-To: abuse@forthnet.gr NNTP-Posting-Date: Thu, 10 Mar 2005 04:41:10 +0000 (UTC) User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: en-us, en In-Reply-To: <4%PXd.358789$w62.304065@bgtnsc05-news.ops.worldnet.att.net> Cache-Post-Path: newsfd02!unknown@ppp16-adsl-170.ath.forthnet.gr Xref: g2news1.google.com comp.lang.ada:9007 comp.lang.c++:44905 Date: 2005-03-10T06:41:00+02:00 List-Id: Jim Rogers wrote: >>#include >>#include >>#include >>#include >> >> >>int main() >>{ >> using namespace std; >> >> vector vec(1000); >> >> // Seeds the random number generator >> srand(time(0)); >> >> // Use rand() to fill vector with values >> // As you see the operation is entirely safe. >> generate(vec.begin(), vec.end(), rand); >> >> vector::size_type i; >> >> // Finds the first index where a value is smaller than 1000 >> // in low level style >> for(i=0; i> if(vec[i]<1000) >> break; >> >> i==vec.size()? cout<<"No number <1000 was found\n" >> :cout<<"Number <1000 found at index "<>} > > > The idioms are somewhat different. For instance, the Ada for loop > does not iterate one past the end of the array, nor is the > value of the loop control variable visible outside the loop. > > I did not see where you set the range of values for your > random number type. I am generating integer values in the > range of 0 through 10,000. I used the default range. > with Ada.Text_Io; > with Ada.Numerics.Discrete_Random; > > procedure Random_Fill is > type Rand_Values is range 0..10_000; > package My_Rand is new Ada.Numerics.Discrete_Random(Rand_Values); > > Seed : My_Rand.Generator; > subtype Index_Type is Natural range 1..1000; > Vec : array(Index_Type) of Rand_Values; > Found : Natural := 0; > begin > My_Rand.Reset(Seed); -- seeds the random number generator > > -- fill the array with random values in the range of 0 > -- through 10,000 > for I in Vec'range loop > Vec(I) := My_Rand.Random(Seed); > end loop; > > -- finds first index where a value is less than 1000 > for I in Vec'range loop > if Vec(I) < 1000 then > Found := I; > exit; > end if; > end loop; > if Found > 0 then > Ada.Text_Io.Put_Line("Number < 1000 found at index" & > Natural'Image(Found)); > else > Ada.Text_Io.Put_Line("No number < 1000 was found"); > end if; > end Random_Fill; Yes but what happens if you want to use the indexed found with the associated value (ot could be inside a string for example) in an associative container like a map? That is, find the index and then use the index to add the value in a map. I suppose you would create a separate procedure for this in which you would pass the array along with the container and perhaps along with the item to be found, just for one such operation! -- Ioannis Vranos http://www23.brinkster.com/noicys