RosettaCodeData/Task/Call-a-function/Lingo/call-a-function-5.lingo

8 lines
113 B
Plaintext

on sum ()
res = 0
repeat with i = 1 to the paramCount
res = res + param(i)
end repeat
return res
end