mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
30 lines
263 B
Perl
30 lines
263 B
Perl
terra f(x : {})
|
|
return x
|
|
end
|
|
|
|
print(f({}))
|
|
|
|
terra f2(x : {})
|
|
return x,x
|
|
end
|
|
|
|
print(f2({}))
|
|
|
|
terra f3(x : {}, a : int)
|
|
return a + 1
|
|
end
|
|
|
|
assert(f3({},3) == 4)
|
|
|
|
terra f4(x : {})
|
|
return x,4
|
|
end
|
|
|
|
a = f4({})
|
|
assert(a._1 == 4)
|
|
|
|
terra f5()
|
|
return f({})
|
|
end
|
|
|
|
f5() |