----去除重複元素
--List 需要處理的數組
--返回一個數理好的的數組
fn RemoveTheSame List =
(
try
(
local Alist=#()
if List.count>0 then
(
for i=1 to List.count do
(
local t = 1
if Alist.count==0 then (append Alist List[i])
--判斷Alist是否有這個List[i]相同的元素
else if Alist.count>0 then
(
for j=1 to Alist.count do
(
if List[i]==Alist[j] then( t=0;exit) --如果有相同元素則將t設爲0,並退出這次循環
)
--如果將List[i]和Alist裏的每一個元素對比完了,並沒有發現有相同元素,即t還是等於1,則將這個List[i]添加進Alist數組中
if t==1 do append Alist List[i]
)
)
)
--遍歷完了List裏的元素後返回Alist
if (Alist.count>0) then (sort Alist;return Alist)
)
catch()
)
---------------------------------------