mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
samples: add Terra samples
source: https://github.com/zdevito/terra/tree/master/tests
This commit is contained in:
26
samples/Terra/anon.t
Normal file
26
samples/Terra/anon.t
Normal file
@@ -0,0 +1,26 @@
|
||||
local test = require("test")
|
||||
|
||||
local Num = int
|
||||
|
||||
local fib =
|
||||
terra(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(fib(i))
|
||||
test.eq(fib(i),fib2(i))
|
||||
end
|
||||
Reference in New Issue
Block a user