Time a function: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,031: | Line 1,031: | ||
23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, |
23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, |
||
42, 43, 44, 45, 46, 47, 48, 49, ...]}</syntaxhighlight> |
42, 43, 44, 45, 46, 47, 48, 49, ...]}</syntaxhighlight> |
||
=={{header|EMal}}== |
|||
{{trans|VBA}} |
|||
<syntaxhighlight lang="emal"> |
|||
fun identity = int by int x |
|||
int retval = 0 |
|||
for int i = 0; i < 1000; ++i |
|||
retval = x |
|||
end |
|||
return retval |
|||
end |
|||
fun sum = int by int num |
|||
int t |
|||
for int j = 0; j < 1000; ++j |
|||
t = num |
|||
for int i = 0; i < 10000; i++ |
|||
t = t + i |
|||
end |
|||
end |
|||
return t |
|||
end |
|||
int startTime, finishTime |
|||
startTime = time() |
|||
identity(1) |
|||
finishTime = time() |
|||
writeLine("1000 times Identity(1) takes " + (finishTime - startTime) + " milliseconds") |
|||
startTime = time() |
|||
sum(1) |
|||
finishTime = time() |
|||
writeLine("1000 times Sum(1) takes " + (finishTime - startTime) + " milliseconds") |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
1000 times Identity(1) takes 16 milliseconds |
|||
1000 times Sum(1) takes 6160 milliseconds |
|||
</pre> |
|||
=={{header|Erlang}}== |
=={{header|Erlang}}== |