10 lines
244 B
Text
10 lines
244 B
Text
orderLists := proc(num1,num2)
|
|
local len1, len2,i:
|
|
len1,len2 := numelems(num1),numelems(num2):
|
|
for i to min(len1,len2) do
|
|
if num1[i] <> num2[i] then
|
|
return evalb(num1[i]<num2[i]):
|
|
end if:
|
|
end do:
|
|
return evalb(len1 < len2):
|
|
end proc:
|