mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
18 lines
217 B
Perl
18 lines
217 B
Perl
|
|
local begin = symbol()
|
|
local theend = symbol()
|
|
|
|
terra foo()
|
|
var a = 0
|
|
::[begin]::
|
|
if a >= 10 then
|
|
goto [theend]
|
|
end
|
|
a = a + 1
|
|
goto [begin]
|
|
::[theend]::
|
|
return a
|
|
end
|
|
|
|
test = require("test")
|
|
test.eq(foo(),10) |