speed up code

doctorized · **Posted:** Thu Mar 01, 2012 6:46 pm

My question may be a little stupid so I apologise from now.
I have the following code:

Code:

Dim temp.b(ArraySize.l)
For i = 1 To 8
   For ii= 1 To ArraySize
      temp(ii) = Random(255)
   Next
   ....
Next

to create an array with random data 8 times. The code is a little slow when ArraySize is a number like 1,000,000.
I know that this is obvious when we call Random() so many times but is there any way to speed up?

kenmo · **Posted:** Thu Mar 01, 2012 6:55 pm

Try this:

Code:

Dim temp.b(ArraySize.l)
For i = 1 To 8
   RandomData( @temp(0), ArraySize )
   ....
Next

You can only use this trick because you random range is 0-255... all 8 bits of every single byte.

If you were using something like temp(ii) = Random(100) then it wouldn't work correctly.

doctorized · **Posted:** Thu Mar 01, 2012 7:32 pm

With your code, if ArraySize is 30,000,000 then the time needed to operate is not more than 330 milliseconds.

That was what I needed!! Thanx a lot!!

PureBasic Forum

speed up code

Who is online