bench.qsps
37 lines
| 653 B
| text/plain
|
TextLexer
/ examples / bench.qsps
r60 | ||||
# start | ||||
act 'Протестировать цикл на метках': | ||||
gs 'test_jump' | ||||
end | ||||
act 'Протестировать цикл for': | ||||
gs 'test_for' | ||||
end | ||||
- | ||||
# test_jump | ||||
*nl | ||||
i = 0 | ||||
local start_time = MSECSCOUNT | ||||
:loop | ||||
if i < 10000000: | ||||
i += 1 | ||||
if (i MOD 100000) = 0: | ||||
*p '.' | ||||
end | ||||
jump 'loop' | ||||
end | ||||
local looptime = MSECSCOUNT - start_time | ||||
*nl 'JUMP: Выполнено за <<looptime>> миллисекунд' | ||||
- | ||||
# test_for | ||||
*nl | ||||
local start_time = MSECSCOUNT | ||||
for i = 0 to 10000000: | ||||
if (i MOD 100000) = 0: | ||||
*p '.' | ||||
end | ||||
end | ||||
local looptime = MSECSCOUNT - start_time | ||||
*nl 'FOR: Выполнено за <<looptime>> миллисекунд' | ||||
- | ||||