mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
31 lines
439 B
Perl
31 lines
439 B
Perl
|
|
terra foo(a : int, s : int)
|
|
var r = 0
|
|
for i = 0,a,s do
|
|
r = r + i
|
|
end
|
|
return r
|
|
end
|
|
|
|
terra foo2(a : int)
|
|
var r = 0
|
|
for i = 0,a do
|
|
r = r + i
|
|
end
|
|
return r
|
|
end
|
|
|
|
terra foo3(a : int)
|
|
var r = 0
|
|
for i = a,0,-1 do
|
|
r = r + i
|
|
end
|
|
return r
|
|
end
|
|
|
|
local test = require("test")
|
|
test.eq(foo(10,1),45)
|
|
test.eq(foo(10,2),20)
|
|
test.eq(foo(0,1),0)
|
|
test.eq(foo2(10),45)
|
|
test.eq(foo3(10),55) |