13 lines
285 B
Text
13 lines
285 B
Text
function apply(integer f, sequence s)
|
|
-- apply function f to all elements of sequence s
|
|
for i = 1 to length(s) do
|
|
s[i] = call_func(f, {s[i]})
|
|
end for
|
|
return s
|
|
end function
|
|
|
|
function add1(integer x)
|
|
return x + 1
|
|
end function
|
|
|
|
? apply(routine_id("add1"),{1,2,3})
|