.版本 2
.子程序 清除数组相同成员, 逻辑型
.参数 数组, 文本型, 数组, 需要清除的数组
.参数 lss, 文本型, 数组, 需要接收的数组
.局部变量 ls, 文本型, , "0"
.局部变量 TU, 整数型
.局部变量 TI, 整数型
.局部变量 dl, 整数型
.局部变量 计次, 整数型
.局部变量 LI, 整数型, , "0"
清除数组 (ls)
清除数组 (LI)
ls = 数组
TI = 0
dl = 0
TU = 0
.判断循环首 (TU ≠ 取数组成员数 (ls))
TU = TU + 1
.判断开始 (TU ≠ 取数组成员数 (ls))
.判断循环首 (TI ≠ 取数组成员数 (ls))
TI = TI + 1
.判断开始 (TI = 取数组成员数 (ls) 且 TU = TI)
dl = 1
.默认
.如果真 (TU = TI)
TI = TI + 1
.如果真结束
.判断结束
.如果真 (ls [TU] = ls [TI] 且 dl ≠ 1)
加入成员 (LI, TI)
.如果真结束
.判断循环尾 ()
.计次循环首 (取数组成员数 (LI), 计次)
删除成员 (ls, LI [取数组成员数 (LI) - 计次 + 1], )
.判断开始 (计次 = 取数组成员数 (LI))
清除数组 (LI)
.默认
.判断结束
.计次循环尾 ()
.默认
.判断结束
TI = 0
.判断循环尾 ()
lss = ls
返回 (真)
自己写的在俺的电脑上测试没问题 喜欢的各位可以试试