mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
24 lines
283 B
Perl
24 lines
283 B
Perl
|
|
terra foo()
|
|
return 4LL
|
|
end
|
|
|
|
terra bar()
|
|
return 5LL
|
|
end
|
|
|
|
terra bar3(fn: {} -> int64)
|
|
return fn()
|
|
end
|
|
|
|
terra baz(a : int64)
|
|
var afn = foo
|
|
if a > 2 then
|
|
afn = bar
|
|
end
|
|
return bar3(afn)
|
|
end
|
|
|
|
local test = require("test")
|
|
test.eq(baz(1),4)
|
|
test.eq(baz(3),5) |