RosettaCodeData/Task/Call-a-function/Seed7/call-a-function-3.seed7

14 lines
319 B
Plaintext

const func integer: sum (in array integer: intElems) is func
result
var integer: sum is 0;
local
var integer: element is 0;
begin
for element range intElems do
sum +:= element;
end for;
end func;
s := sum([] (1, 2, 3)); # Use an aggregate to generate an array.
t := sum([] (2, 3, 5, 7));