两数组取相同

airaz

两数组取相同.e (919.11 KB, 下载次数: 25)

2022-9-1 15:28 上传

点击文件名下载附件 两数组取相同  新鲜出炉



补充内容 (2022-9-5 10:30):
多数组取相同  在13楼

sgk324

学习一下

APPLEUFO

lty365 发表于 2022-9-2 05:46
你写一个吧

处理事件是鸡肋   不必要的，加上他运行起来很慢

airaz

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 dd, 文本型, , "0"
.局部变量 ss, 文本型, , "0"
.局部变量 ww, 文本型, , "0"
.局部变量 ee, 文本型, , "0"
.局部变量 qq, 文本型, , "0"
.局部变量 xx, 文本型, , "0"

dd ＝ { “sdwwsd”, “sda”, “sdsd” }
qq ＝ { “sda”, “sdwwsd” }
ss ＝ { “sda”, “sdwwsd”, “sdsd”, “sd” }
ww ＝ { “sda”, “sdwwsd”, “sdsd” }
ee ＝ { “sda”, “sdwwsd”, “sdsd”, “hjm”, “sd”, “bgr” }


多数组取相同 (xx, ee, ss, ww, dd, qq)
调试输出 (取数组成员数 (xx))

.子程序 多数组取相同
.参数 剩下数组, 文本型, 数组
.参数 A数组, 文本型, 数组
.参数 B数组, 文本型, 数组
.参数 C数组, 文本型, 可空 数组
.参数 D数组, 文本型, 可空 数组
.参数 E数组, 文本型, 可空 数组
.局部变量 iuw, 整数型
.局部变量 frv, 整数型
.局部变量 l1, 文本型, , "0"
.局部变量 l2, 文本型, , "0"
.局部变量 L3, 文本型, , "0"
.局部变量 L4, 文本型, , "0"

.计次循环首 (取数组成员数 (A数组), iuw)

    处理事件 ()
    .计次循环首 (取数组成员数 (B数组), frv)
        .如果真 (A数组 [iuw] ＝ B数组 [frv])
            加入成员 (l1, A数组 [iuw])
            跳出循环 ()
        .如果真结束

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


.如果 (取数组成员数 (C数组) ≠ 0)
    .计次循环首 (取数组成员数 (C数组), iuw)

        处理事件 ()
        .计次循环首 (取数组成员数 (l1), frv)
            .如果真 (C数组 [iuw] ＝ l1 [frv])
                加入成员 (l2, C数组 [iuw])
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()

    .计次循环尾 ()


.否则



    剩下数组 ＝ l1

.如果结束







.如果 (取数组成员数 (D数组) ≠ 0)
    .计次循环首 (取数组成员数 (D数组), iuw)

        处理事件 ()
        .计次循环首 (取数组成员数 (l2), frv)
            .如果真 (D数组 [iuw] ＝ l2 [frv])
                加入成员 (L3, D数组 [iuw])
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()

    .计次循环尾 ()



.否则

    .如果真 (取数组成员数 (l2) ≠ 0)
        剩下数组 ＝ l2
    .如果真结束


.如果结束







.如果 (取数组成员数 (E数组) ≠ 0)
    .计次循环首 (取数组成员数 (E数组), iuw)

        处理事件 ()
        .计次循环首 (取数组成员数 (L3), frv)
            .如果真 (E数组 [iuw] ＝ L3 [frv])
                加入成员 (剩下数组, E数组 [iuw])
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()

    .计次循环尾 ()




.否则

    .如果真 (取数组成员数 (L3) ≠ 0)

        剩下数组 ＝ L3

    .如果真结束

.如果结束

QQ1329127360

感谢楼主的分享精神!赞一个！

396384183

感谢分享
感谢分享

yzl666

感谢分享

ttggnn

感谢分享

夏亿

感谢分享

59hdvj

感谢分享