Greatest element of a list: Difference between revisions
→{{header|Icon}}
Line 112:
It can alternately be defined as a "fold" on the built-in two-argument <code>max</code> function.
my_max = foldl1 max
=={{header|Icon}}==
procedure main()
local l
l := [7,8,6,9,4,5,2,3,1]
write(max(l))
end
procedure max(l)
local i, max
max := l[1]
every i := 1 to !l & i > max do
max := i
return max
end
=={{header|J}}==
| |||