Anonymous user
Order two numerical lists: Difference between revisions
Added BBC BASIC
(Added BBC BASIC) |
|||
Line 63:
return L1.MaxIndex() < L2.MaxIndex()
}</lang>
=={{header|BBC BASIC}}==
'Ordered before' means 'less than' (see [[Talk:Order_two_numerical_lists|talk page]]).
<lang bbcbasic> DIM list1(4) : list1() = 1, 2, 1, 5, 2
DIM list2(5) : list2() = 1, 2, 1, 5, 2, 2
DIM list3(4) : list3() = 1, 2, 3, 4, 5
DIM list4(4) : list4() = 1, 2, 3, 4, 5
IF FNorder(list1(), list2()) PRINT "list1<list2" ELSE PRINT "list1>=list2"
IF FNorder(list2(), list3()) PRINT "list2<list3" ELSE PRINT "list2>=list3"
IF FNorder(list3(), list4()) PRINT "list3<list4" ELSE PRINT "list3>=list4"
END
DEF FNorder(list1(), list2())
LOCAL i%, l1%, l2%
l1% = DIM(list1(),1) : l2% = DIM(list2(),1)
WHILE list1(i%) = list2(i%) AND i% < l1% AND i% < l2%
i% += 1
ENDWHILE
IF list1(i%) < list2(i%) THEN = TRUE
IF list1(i%) > list2(i%) THEN = FALSE
= l1% < l2%</lang>
'''Output:'''
<pre>
list1<list2
list2<list3
list3>=list4
</pre>
=={{header|Bracmat}}==
Line 97 ⟶ 125:
TRUE
TRUE</pre>
=={{header|C}}==
<lang c>int list_cmp(int *a, int la, int *b, int lb)
| |||