两数组取相同

.子程序 两数组取相同
.参数 A数组, 文本型, 数组
.参数 B数组, 文本型, 数组
.参数 剩下数组, 文本型, 数组
.局部变量 iuw, 整数型
.局部变量 e, 整数型, , "0"

.计次循环首 (取数组成员数 (A数组), iuw)
处理事件 ()
.如果真 (数组_寻找数组 (B数组, A数组 [iuw], e) ≥ 1)
加入成员 (剩下数组, A数组 [iuw])
.如果真结束

.计次循环尾 ()