----去除重复元素
--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()
)
---------------------------------------