Time a function: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(PascalABC.NET) |
||
| Line 2,065: | Line 2,065: | ||
getabstime()-start; |
getabstime()-start; |
||
}</syntaxhighlight> |
}</syntaxhighlight> |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
function LongTimeCalc(n: integer): real; |
|||
begin |
|||
var sum := 0.0; |
|||
for var i:=1 to n do |
|||
for var j := 1 to n do |
|||
sum += 1/i/j; |
|||
Result := sum; |
|||
end; |
|||
begin |
|||
MillisecondsDelta; |
|||
LongTimeCalc(10000).Println; |
|||
MillisecondsDelta.Println; |
|||
end. |
|||
</syntaxhighlight> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||