Files
linguist/samples/Terra/fib.t
2016-01-28 11:22:27 +07:00

26 lines
401 B
Perl

local test = require("test")
local Num = int
local base = {}
terra base.fib(a : Num) : Num
var i,c,p = 0,1,1
while i < a do
c,p = c + p,c
i = i + 1
end
return c
end
function fib2(a)
local i,c,p = 0,1,1
while i < a do
c,p = c + p,c
i = i + 1
end
return c
end
for i = 0,10 do
print(base.fib(i))
test.eq(base.fib(i),fib2(i))
end