mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 01:30:22 +00:00
53 lines
876 B
Perl
53 lines
876 B
Perl
|
|
terra bar(a : int, b : int) : int
|
|
return a + b
|
|
end
|
|
terra foo(a : int,b : int) : int
|
|
return bar(a,b) + 1
|
|
end
|
|
|
|
terra baz(a : int, b : int) : int
|
|
var f,c,d = 4,baz2(a,b)
|
|
return f + c + d
|
|
end and
|
|
terra baz2(a : int, b : int) : {int, int}
|
|
return a + 1, b + 2
|
|
end
|
|
|
|
terra two(a : int, b : int) : int
|
|
return a + b
|
|
end
|
|
terra baz3() : int
|
|
var a,b = baz2(1,2)
|
|
return two(a,b)
|
|
end
|
|
terra baz4() : int
|
|
return two(5,(baz2(1,2))._0)
|
|
end
|
|
|
|
terra baz5()
|
|
var a,b = baz2(0,0)
|
|
return 1,2,a,b
|
|
end
|
|
|
|
terra baz6()
|
|
var a,b,c,d = baz5()
|
|
var e = (baz5()._0)
|
|
return a + b + c + d + e
|
|
end
|
|
|
|
terra baz7(a : int)
|
|
if a < 3 then
|
|
return 1,(baz5())._0
|
|
else
|
|
return 100,2
|
|
end
|
|
end
|
|
local test = require("test")
|
|
|
|
test.eq(foo(2,3),6)
|
|
test.eq(baz(1,2),10)
|
|
test.eq(baz3(),6)
|
|
test.eq(baz4(),7)
|
|
test.eq(baz6(),7)
|
|
test.meq({100,2},baz7(10)) |