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