Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,30 @@
|
|||
include "Tlbx Timer.incl"
|
||||
include "ConsoleWindow"
|
||||
|
||||
local fn Fibonacci( n as long ) as Long
|
||||
begin globals
|
||||
dim as long s1, s2// static
|
||||
end globals
|
||||
|
||||
dim as long temp
|
||||
|
||||
if ( n < 2 )
|
||||
s1 = n
|
||||
exit fn
|
||||
else
|
||||
temp = s1 + s2
|
||||
s2 = s1
|
||||
s1 = temp
|
||||
exit fn
|
||||
end if
|
||||
end fn = s1
|
||||
|
||||
dim as long i
|
||||
dim as UnsignedWide start, finish
|
||||
|
||||
Microseconds( @start )
|
||||
for i = 0 to 40
|
||||
print i; ". "; fn Fibonacci(i)
|
||||
next i
|
||||
Microseconds( @finish )
|
||||
print "Compute time:"; (finish.lo - start.lo ) / 1000; " ms"
|
||||
Loading…
Add table
Add a link
Reference in a new issue