Greatest element of a list: Difference between revisions

← Older editNewer edit →
Content deleted Content added
→‎{{header|Zig}}: format, make example generic, annotate versions
→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup
Line 1,847: Line 1,847:
=={{header|Euler}}==
=={{header|Euler}}==
Euler allows hetrogenous lists, the <code>real</code> operator converts boolean and symbol (short character strings) to a number (leaving numeric values unchanged) and the <code>isu</code> operator tests whether its operand is <code>undefined</code> or not.
Euler allows hetrogenous lists, the <code>real</code> operator converts boolean and symbol (short character strings) to a number (leaving numeric values unchanged) and the <code>isu</code> operator tests whether its operand is <code>undefined</code> or not.
'''begin''' '''new''' greatest;
<syntaxhighlight lang="euler">
begin new greatest;
greatest &lt;- ` '''formal''' ls;
'''begin''' '''new''' L; '''new''' i; '''new''' result; '''label''' iLoop;
greatest <- ` formal ls;
begin new L; new i; new result; label iLoop;
L &lt;- ls;
L <- ls;
result &lt;- '''undefined''';
result <- undefined;
i &lt;- 0;
i <- 0;
iLoop: '''if''' [ i &lt;- i + 1 ] &lt;= '''length''' L '''then''' '''begin'''
iLoop: if [ i <- i + 1 ] <= length L then begin
'''if''' '''isu''' result '''or''' '''real''' L[ i ] &gt; '''real''' result
if isu result or real L[ i ] > real result
'''then''' result &lt;- L[ i ] '''else''' 0;
then result <- L[ i ] else 0;
'''goto''' iLoop
goto iLoop
'''end''' '''else''' 0;
end else 0;
result
result
'''end'''
end
&apos;;
';
'''out''' greatest( ( '''false''', 99.0, -271, "b", 3, 4 ) )
⚫
'''end''' $
out greatest( ( false, 99.0, -271, "b", 3, 4 ) )
⚫
end $
</syntaxhighlight>


=={{header|Euler Math Toolbox}}==
=={{header|Euler Math Toolbox}}==
Retrieved from "https://rosettacode.org/wiki/Greatest_element_of_a_list"