Compare a list of strings: Difference between revisions
Content added Content deleted
(easylang) |
|||
Line 965: | Line 965: | ||
true |
true |
||
}</syntaxhighlight> |
}</syntaxhighlight> |
||
=={{header|EasyLang}}== |
|||
{{trans|AWK}} |
|||
<syntaxhighlight lang=easylang> |
|||
proc test s$[] . . |
|||
ident = 1 |
|||
ascend = 1 |
|||
for i = 2 to len s$[] |
|||
h = strcmp s$[i] s$[i - 1] |
|||
if h <> 0 |
|||
ident = 0 |
|||
. |
|||
if h <= 0 |
|||
ascend = 0 |
|||
. |
|||
. |
|||
print s$[] |
|||
if ident = 1 |
|||
print "all equal" |
|||
. |
|||
if ascend = 1 |
|||
print "ascending" |
|||
. |
|||
print "" |
|||
. |
|||
test [ "AA" "BB" "CC" ] |
|||
test [ "AA" "AA" "AA" ] |
|||
test [ "AA" "CC" "BB" ] |
|||
test [ "AA" "ACB" "BB" "CC" ] |
|||
test [ "single_element" ] |
|||
</syntaxhighlight> |
|||
=={{header|Elena}}== |
=={{header|Elena}}== |