ASP og tal

<%
Dim RandNum
Randomize
RandNum = Int(100 * Rnd)

Response.write RandNum
%>

På samme måde som http://www.eksperten.dk/spm/540195

Hvad så hvis det er mellem 21-93 ?

randomize
do until intRnd > 20
    intRnd = Int(Rnd * 93 + 1)
loop
response.write intRnd

Ok - jeg bruger ttopholm og knico.

Svar ?

:-)

svar

randomize
    intRnd = Int(Rnd * 72 + 1)+21
loop
response.write intRnd
vil i nogle tilfælde være lidt hurtigere

uden loop selvfølgelig:

randomize
    intRnd = Int(Rnd * 72 + 1)+21
response.write intRnd

Jeg har lavet et forsøg med de to løsninger,
og underligt nok viser det sig at knico's løsning er hurtigst:

<%
start = now()
i = 0
do until i > 1000000

randomize
do until intRnd > 20
    intRnd = Int(Rnd * 93 + 1)
loop
i = i+1
loop
response.write start & "<br>"
response.write now() & "<br>"
'knico's løsning udført 1000000 gange, tager ca. 10 sekunder

start = now()

i = 0
do until i > 1000000
randomize
    intRnd = Int(Rnd * 72 + 22)
    i = i+1
    loop
    response.write "<br><br>" & start & "<br>"
    response.write now()
   
' min løsning udført 1000000 gange, tager ca 14 sekunder

%>

Jeg bøjer mig i støvet.............