mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
26 lines
401 B
Perl
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 |