13 lines
319 B
Text
13 lines
319 B
Text
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));
|