RosettaCodeData/Task/Apply-a-callback-to-an-array/Oz/apply-a-callback-to-an-array.oz

14 lines
204 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
declare
fun{Square A}
A*A
end
Lst = [1 2 3 4 5]
%% apply a PROCEDURE to every element
{ForAll Lst Show}
%% apply a FUNCTION to every element
Result = {Map Lst Square}
{Show Result}