Concatenate 10,000 strings: ASP
<%
Response.Write("Start "+CSTR(NOW())+"<br>")
DIM s,i,nStart
nStart=TIMER
s=""
FOR i=1 TO 20000
s=s+CSTR(i)
NEXT
Response.Write("Done "+CSTR(TIMER-nStart)+" "+CSTR(LEN(s))+"
20,000<br>")
%>
On 850 MHz PIII: 7.5 seconds