33 lines
759 B
AppleScript
33 lines
759 B
AppleScript
on listAComesBeforeListB(a, b)
|
|
set aLength to (count a)
|
|
set bLength to (count b)
|
|
set i to 0
|
|
repeat
|
|
set i to i + 1
|
|
if (i > bLength) then
|
|
return false
|
|
else if (i > aLength) then
|
|
return true
|
|
else
|
|
set aVal to item i of a
|
|
set bVal to item i of b
|
|
if (aVal = bVal) then
|
|
else
|
|
return (bVal > aVal)
|
|
end if
|
|
end if
|
|
end repeat
|
|
end listAComesBeforeListB
|
|
|
|
-- Test code:
|
|
set a to {}
|
|
repeat (random number 10) times
|
|
set end of a to random number 10
|
|
end repeat
|
|
set b to {}
|
|
repeat (random number 10) times
|
|
set end of b to random number 10
|
|
end repeat
|
|
|
|
return {a:a, b:b, | a < b |: listAComesBeforeListB(a, b)},
|