Rosetta Code

Greatest element of a list: Difference between revisions

Page Discussion

Greatest element of a list (view source)

Revision as of 14:41, 9 November 2023

157 bytes added ,  6 months ago
→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup
(→‎{{header|Zig}}: format, make example generic, annotate versions)
(→‎{{header|Euler}}: Sybntax highlight with Mediawiki markup)
Line 1,847:
=={{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.
'''begin''' '''new''' greatest;
<syntaxhighlight lang="euler">
begin new 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&lt;- ls;
L result <&lt;- ls'''undefined''';
result <i &lt;- undefined0;
iLoop: '''if''' [ i &lt;- i + 1 ] &lt;= '''length''' <-L 0;'''then''' '''begin'''
iLoop: if [ i <- i + 1 ] <= length '''if''' '''isu''' result '''or''' '''real''' L[ i ] &gt; then'''real''' beginresult
if isu result or real'''then''' result &lt;- L[ i ] >'''else''' real result0;
'''goto''' then result <- L[ i ] else 0;iLoop
'''end''' '''else''' goto iLoop0;
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}}==
Tigerofdarkness
3,026

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/349070"