数组去重复，看到别人发，我也来一个

dwcq

  

数组 ＝ { 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)

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

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 4, 6, 8, 10, 11, 12, 13, 14, 15 }<br /> <br /> .变量循环首 (1, 取数组成员数 (数组), 1, A)<br />     .变量循环首 (取数组成员数 (数组), A ＋ 1, -1, B)<br />         .如果真 (数组 [A] ＝ 数组 [B])<br />             删除成员 (数组, B, 1)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br /> .变量循环尾 ()<br /> 调试输出 (数组)

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 数组1, , , "0"
.程序集变量 数组2, , , "0"
.程序集变量 数组3, , , "0"

.子程序 __启动窗口_创建完毕

数组1 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 4, 6, 8, 10, 11, 12, 13, 14, 15 }
数组2 ＝ { 16, 17, 18, 19, 20, 1, 2, 3, 4, 5, 21, 22, 23, 24, 25 }
去重复 (数组1, 数组2, 数组3)
调试输出 (数组3)

.子程序 去重复
.参数 A, , 数组
.参数 B, , 数组
.参数 C, , 参考 数组
.局部变量 X
.局部变量 Y
.局部变量 D, , , "0"

加入成员 (C, A)
加入成员 (C, B)
.变量循环首 (1, 取数组成员数 (C), 1, X)
    .变量循环首 (取数组成员数 (C), X ＋ 1, -1, Y)
        .如果真 (C [X] ＝ C [Y])
            加入成员 (D, C [Y])
        .如果真结束

    .变量循环尾 ()
.变量循环尾 ()

.变量循环首 (取数组成员数 (C), 1, -1, X)
    .计次循环首 (取数组成员数 (D), Y)
        .如果真 (C [X] ＝ D [Y])
            删除成员 (C, X, 1)
        .如果真结束

    .计次循环尾 ()
.变量循环尾 ()

你看下是不是 你说的 一个不要

熊不熊

感谢分享，很给力！~

a3960382663

支持开源~！感谢分享

wh1234567

支持开源~！感谢分享

xmtian

感谢分享。

396384183

感谢分享，很给力！~

wgqxj

谢谢分享

year1970

感谢分享

豆豆灰常开心

下个学习一下

查过

感谢您对论坛的支持！