13 lines
249 B
Plaintext
13 lines
249 B
Plaintext
|
Dim goal, before, x, y, i
|
||
|
|
goal = 5000000
|
||
|
|
Do While True
|
||
|
|
before = Timer
|
||
|
|
For i = 0 to goal
|
||
|
|
x = 0.000001
|
||
|
|
y = sin(x)
|
||
|
|
y = y + 0.00001
|
||
|
|
Next
|
||
|
|
y = y + 0.01
|
||
|
|
WScript.Echo "I did five million sines in " & Int(Timer - before + 0.5) & " seconds!"
|
||
|
|
Loop
|