19 lines
299 B
Text
19 lines
299 B
Text
global i
|
|
subroutine timeit()
|
|
iter = 0
|
|
starter = msec
|
|
while True
|
|
iter += 1
|
|
if msec >= starter + i then exit while
|
|
end while
|
|
print iter; " iteraciones en "; i; " milisegundo";
|
|
if i > 1 then print "s" else print
|
|
end subroutine
|
|
|
|
for i = 1 to 3
|
|
call timeit()
|
|
next i
|
|
|
|
i = 200
|
|
call timeit()
|
|
end
|