Data update
This commit is contained in:
parent
4d5544505c
commit
4924dd0264
3073 changed files with 55820 additions and 4408 deletions
14
Task/Time-a-function/Agena/time-a-function.agena
Normal file
14
Task/Time-a-function/Agena/time-a-function.agena
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
scope # Time a function
|
||||
|
||||
local procedure timeFunction( f :: procedure ) :: number
|
||||
local startTime := os.clock();
|
||||
f();
|
||||
return os.clock() - startTime # execution time in milliseconds
|
||||
end;
|
||||
|
||||
local procedure toBeTimed()
|
||||
os.wait( 1.234 ) # sleep 1.234 seconds
|
||||
end
|
||||
|
||||
print( timeFunction( toBeTimed ) / 1000, " seconds" )
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue