mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
24 lines
342 B
Perl
24 lines
342 B
Perl
|
|
|
|
struct Range {
|
|
a : int;
|
|
b : int;
|
|
}
|
|
Range.metamethods.__for = function(syms,iter,body)
|
|
return syms, quote
|
|
var it = iter
|
|
for [syms[1]] = it.a,it.b do
|
|
body
|
|
end
|
|
end
|
|
end
|
|
|
|
terra foo()
|
|
var a = 0
|
|
for i in Range {0,10} do
|
|
a = a + i
|
|
end
|
|
return a
|
|
end
|
|
|
|
assert(foo() == 10*9/2) |