diff options
Diffstat (limited to 'tests/fibonacci.lua')
-rw-r--r-- | tests/fibonacci.lua | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/tests/fibonacci.lua b/tests/fibonacci.lua index 667a3e9..2e0cd62 100644 --- a/tests/fibonacci.lua +++ b/tests/fibonacci.lua | |||
@@ -12,7 +12,8 @@ | |||
12 | 12 | ||
13 | -- Need to say it's 'local' so it can be an upvalue | 13 | -- Need to say it's 'local' so it can be an upvalue |
14 | -- | 14 | -- |
15 | local lanes= require "lanes" | 15 | local lanes = require "lanes" |
16 | lanes.configure( 1, "NO_TIMERS") | ||
16 | 17 | ||
17 | local function WR(str) | 18 | local function WR(str) |
18 | io.stderr:write( str.."\n" ) | 19 | io.stderr:write( str.."\n" ) |
@@ -38,7 +39,9 @@ local function fib( n ) | |||
38 | else | 39 | else |
39 | -- Splits into two; this task remains waiting for the results | 40 | -- Splits into two; this task remains waiting for the results |
40 | -- | 41 | -- |
41 | local gen_f= lanes.gen( "io,math,debug", fib ) | 42 | -- note that lanes is pulled in as upvalue, so we need package library to require internals properly |
43 | -- (because lua51-lanes is always required internally if possible, which is necessary in that case) | ||
44 | local gen_f= lanes.gen( "package,string,io,math,debug", fib ) | ||
42 | 45 | ||
43 | local n1=floor(n/2) +1 | 46 | local n1=floor(n/2) +1 |
44 | local n2=floor(n/2) -1 + n%2 | 47 | local n2=floor(n/2) -1 + n%2 |
@@ -64,7 +67,22 @@ end | |||
64 | -- | 67 | -- |
65 | -- Right answers from: <http://sonic.net/~douglasi/fibo.htm> | 68 | -- Right answers from: <http://sonic.net/~douglasi/fibo.htm> |
66 | -- | 69 | -- |
67 | local right= { 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465, 14930352, 24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, 701408733, 1134903170, 1836311903, 2971215073, 4807526976, 7778742049, 12586269025, 20365011074, 32951280099, 53316291173, 86267571272, 139583862445, 225851433717, 365435296162, 591286729879, 956722026041, 1548008755920, 2504730781961, 4052739537881, 6557470319842, 10610209857723, 17167680177565, 27777890035288, 44945570212853, 72723460248141, 117669030460994, 190392490709135, 308061521170129, 498454011879264, 806515533049393, 1304969544928657, 2111485077978050, 3416454622906707, 5527939700884757, 8944394323791464, 14472334024676220, 23416728348467684, 37889062373143900, 61305790721611580, 99194853094755490, 160500643816367070, 259695496911122560, 420196140727489660, 679891637638612200, 1100087778366101900, 1779979416004714000, 2880067194370816000, 4660046610375530000, 7540113804746346000, 12200160415121877000, 19740274219868226000, 31940434634990105000, 51680708854858334000, 83621143489848440000, 135301852344706780000, 218922995834555200000 | 70 | local right= |
71 | { | ||
72 | 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, | ||
73 | 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, | ||
74 | 9227465, 14930352, 24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, | ||
75 | 701408733, 1134903170, 1836311903, 2971215073, 4807526976, 7778742049, 12586269025, 20365011074, | ||
76 | 32951280099, 53316291173, 86267571272, 139583862445, 225851433717, 365435296162, 591286729879, | ||
77 | 956722026041, 1548008755920, 2504730781961, 4052739537881, 6557470319842, 10610209857723, | ||
78 | 17167680177565, 27777890035288, 44945570212853, 72723460248141, 117669030460994, 190392490709135, | ||
79 | 308061521170129, 498454011879264, 806515533049393, 1304969544928657, 2111485077978050, | ||
80 | 3416454622906707, 5527939700884757, 8944394323791464, 14472334024676220, 23416728348467684, | ||
81 | 37889062373143900, 61305790721611580, 99194853094755490, 160500643816367070, 259695496911122560, | ||
82 | 420196140727489660, 679891637638612200, 1100087778366101900, 1779979416004714000, | ||
83 | 2880067194370816000, 4660046610375530000, 7540113804746346000, 12200160415121877000, | ||
84 | 19740274219868226000, 31940434634990105000, 51680708854858334000, 83621143489848440000, | ||
85 | 135301852344706780000, 218922995834555200000 | ||
68 | } | 86 | } |
69 | assert( #right==99 ) | 87 | assert( #right==99 ) |
70 | 88 | ||