cfad47cfa3/t3compiler/tads3/test/data/fib.t
Download diff| 4b825dc642cb6eb9a060e54bf8d69288fbee4904 | cfad47cfa334b206c65f22086bcc5d63e6f70944 | ||
|---|---|---|---|
1 | #include <tads.h> | ||
2 | |||
3 | main(args) | ||
4 | { | ||
5 | local t0 = getTime(GetTimeTicks); | ||
6 | local n = (args.length() >= 2 ? toInteger(args[2]) : 10); | ||
7 | |||
8 | "fib(<<n>>) = <<fib(n)>>\n"; | ||
9 | "elapsed time = <<getTime(GetTimeTicks) - t0>> ms\n"; | ||
10 | } | ||
11 | |||
12 | fib(n) | ||
13 | { | ||
14 | if (n <= 2) | ||
15 | return 1; | ||
16 | else | ||
17 | return fib(n-2) + fib(n-1); | ||
18 | } | ||
19 |