Compare a list of strings: Difference between revisions
add RPL
(→{{header|R}}: Shorter and simpler) |
(add RPL) |
||
Line 2,767:
return 1 /*indicate strings have true comparison*/</syntaxhighlight>
{{out|output|text= is identical to the above REXX version.}} <br><br>
=={{header|RPL}}==
{{works with|HP|48G}}
≪ '''IF''' DUP SIZE 2 < '''THEN''' 1 '''ELSE''' ≪ == ≫ DOSUBS ΠLIST '''END'''
≫ ‘<span style="color:blue">ALLSAME?</span>' STO
≪ DUP SORT ==
≫ ‘<span style="color:blue">ALLORDERED?</span>' STO
=={{header|Ruby}}==
|