Rate counter: Difference between revisions
Content added Content deleted
(Added Easylang) |
(Added Chipmunk Basic) |
||
Line 551: | Line 551: | ||
return 0; |
return 0; |
||
}</syntaxhighlight> |
}</syntaxhighlight> |
||
=={{header|Chipmunk Basic}}== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="vbnet">100 cls |
|||
110 for i = 1 to 3 |
|||
120 gosub 170 |
|||
130 next i |
|||
140 i = 200 |
|||
150 gosub 170 |
|||
160 end |
|||
170 'function timeit |
|||
180 iter = 0 |
|||
190 starter = timer |
|||
200 while true |
|||
210 iter = iter+1 |
|||
220 if timer >= starter+i then exit while |
|||
230 wend |
|||
240 print iter;" iteraciones en ";i;" milisegundo"; |
|||
250 if i > 1 then print "s" else print "" |
|||
260 return</syntaxhighlight> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |