RosettaCodeData/Task/Closures-Value-capture/Lingo/closures-value-capture-3.lingo
2023-07-01 13:44:08 -04:00

15 lines
363 B
Text

funcs = []
repeat with i = 1 to 10
code = ""
put "res = "&i&"*"&i &RETURN after code
put "repeat with i = 1 to arg.count" &RETURN after code
put " res = res + arg[i]" &RETURN after code
put "end repeat" after code
funcs[i] = script("CallFunction").new(code)
end repeat
put call(funcs[3], _movie, 23)
-- 32
put call(funcs[7], _movie, 4, 5, 6)
-- 64