Rosetta Code

Greatest element of a list: Difference between revisions

← Older editNewer edit →
Content deleted Content added
m →‎{{header|PostScript}}: added works with
→‎{{header|Euphoria}}: example edited to be compatible with the earlier versions of Euphoria
Line 354:
 
=={{header|Euphoria}}==
{{works with|Euphoria 4.0.0}}
Applying a function to each element of an array
<lang Euphoria>function aeval( sequence sArr, integer id )
for i = 1 to length( sArr ) do
sArr[ i ] = call_func( id, { sArr[ i ] } )
end for
return sArr
end function
 
object biggun
function biggest( object elem )
if compare(elem, biggun) > 0 then
biggun = elem
end if
return elem
end function
 
</lang>
biggun = 0
Example runs
object a
<lang Euphoria>biggun = 0
object a = aeval( {1,1234,62,234,12,34,6}, routine_id("biggest") )
printf( 1, "%d\n", biggun )
 
sequence s
sequence s = { "antelope", "dog", "cat", "cow", "wolf", "wolverine", "aardvark"}
biggun = "ant"
a = aeval( s, routine_id("biggest") )
printf( 1, "%s\n", {biggun} )</lang>
Output:
<pre>
1234
Retrieved from "https://rosettacode.org/wiki/Greatest_element_of_a_list"