易语言数组去重复

.版本 2
.支持库 spec

数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 4, 6, 8, 10, 11, 12, 13, 14, 15 }

.变量循环首 (1, 取数组成员数 (数组), 1, A)
    .变量循环首 (取数组成员数 (数组), A ＋ 1, -1, B)
        .如果真 (数组 [A] ＝ 数组 [B])
            删除成员 (数组, B, 1)
        .如果真结束

    .变量循环尾 ()

.变量循环尾 ()
调试输出 (数组)

.版本 2
.支持库 spec

.子程序 AB数组过滤重复
.参数 待过滤数组1, 整数型, 数组
.参数 待过滤数组2, 整数型, 数组
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 合并数组, 整数型, , "0"
.局部变量 是否重复, 逻辑型
.局部变量 过滤后的数组, 整数型, , "0"

清除数组 (合并数组)
.计次循环首 (取数组成员数 (待过滤数组1), i)
    加入成员 (合并数组, 待过滤数组1 <i>)
.计次循环尾 ()
.计次循环首 (取数组成员数 (待过滤数组2), i)
    加入成员 (合并数组, 待过滤数组2 <i>)
.计次循环尾 ()

.计次循环首 (取数组成员数 (合并数组), i)
    是否重复 ＝ 假
    .计次循环首 (取数组成员数 (待过滤数组1), j)
        .如果真 (合并数组 <i> ＝ 待过滤数组1 [j])
            是否重复 ＝ 真
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (是否重复 ＝ 假)
        加入成员 (过滤后的数组, 合并数组 <i>)
    .如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (合并数组), i)
    是否重复 ＝ 假
    .计次循环首 (取数组成员数 (待过滤数组2), j)
        .如果真 (合并数组 <i> ＝ 待过滤数组2 [j])
            是否重复 ＝ 真
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (是否重复 ＝ 假)
        加入成员 (过滤后的数组, 合并数组 <i>)
    .如果真结束

.计次循环尾 ()

调试输出 (“过滤后的数组数量=”, 取数组成员数 (过滤后的数组))
调试输出 (过滤后的数组)

.版本 2
.支持库 spec

.子程序 过滤重复句柄
.参数 待过滤数组1, 整数型, 数组
.参数 待过滤数组2, 整数型, 数组
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 是否重复, 逻辑型
.局部变量 过滤后的数组, 整数型, , "0"

.计次循环首 (取数组成员数 (待过滤数组2), i)
    是否重复 ＝ 假
    .计次循环首 (取数组成员数 (待过滤数组1), j)
        .如果真 (待过滤数组1 <i> ＝ 待过滤数组2 [j])
            是否重复 ＝ 真
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (是否重复 ＝ 假)
        加入成员 (过滤后的数组, 待过滤数组1 <i>)
    .如果真结束

.计次循环尾 ()
调试输出 (过滤后的数组)