11 lines
244 B
Text
11 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:
|