Fiddling around with random #s and odds.

[Dio]

wait a minute, why doesn’t this work?

Code:

dim as long n,celing
randomize timer
s = timer
celing = 2000000
do:loop until int(rnd*celing)+1 = 1234567
? done
? timer - s:sleep

also,

i ran the following code in qbasic.

Code:

RANDOMIZE TIMER
s = TIMER
celing& = 2000000
DO: LOOP UNTIL INT(RND * celing&) + 1 = 1234567
PRINT done
PRINT TIMER - s: SLEEP

it successfully found 1234567 in:

first run completed in:

3.5 seconds

second:

2) 1/5 of a second

henceforth:

3) .75 of a second

4) 3.8 seconds

----

regardless of the amount of time it took, it still worked.