无题

真冬

源码来源于：
这个想法好不好搞
https://bbs.125.la/forum.php?mod=viewthread&tid=14767629
(出处: 精易论坛)


解决此贴代码在乱序下无法实现的问题

  

变量名	类 型	静态	数组	备 注
数组	文本型		0

置随机数种子 ()
数组 ＝ { “1”, “2”, “3”, “11”, “22”, “33”, “111”, “222”, “333”, “123”, “123123” }  ' 原数组  11个
' 数组 ＝ {  “111”, “222”, “333”,  “123123” } ’达到这个效果
子程序2打乱顺序 (数组)
子程序3 (数组)
调试输出 (数组)
数组 ＝ { “a”, “b”, “c”, “aa”, “bb”, “cc”, “aaa”, “bbb”, “ccc”, “abc”, “abcabc” }  ' 原数组 11个
' 数组 ＝ {  “aaa”, “bbb”, “ccc”,  “abcabc” } ’达到这个效果
子程序2打乱顺序 (数组)
子程序3 (数组)
调试输出 (数组)

子程序名	返回值类型	公开	备 注
子程序2打乱顺序
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
i1	整数型
cd	整数型
sj	整数型
a	文本型

cd ＝ 取数组成员数 (参数)
计次循环首 (cd, i1)
sj ＝ 取随机数 (1, cd)
a ＝ 参数 [i1]
参数 [i1] ＝ 参数 [sj]
参数 [sj] ＝ a
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序3
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
i1	整数型
i2	整数型
i3	整数型

计次循环首 (2, i3)
变量循环首 (取数组成员数 (参数), 1, -1, i1)
变量循环首 (i1 － 1, 1, -1, i2)
判断 (i3 ＝ 1)
如果真 (取文本长度 (参数 [i1]) ＜ 取文本长度 (参数 [i2]))
交换变量 (参数 [i1], 参数 [i2])

如果真 (参数 [i1] ≈ 参数 [i2])
判断 (参数 [i1] ＜ 参数 [i2])
删除成员 (参数, i1, 1)
删除成员 (参数, i2, 1)
跳出循环 ()


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

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 数组, 文本型, , "0"<br /> <br /> 置随机数种子 ()<br /> 数组 ＝ { “1”, “2”, “3”, “11”, “22”, “33”, “111”, “222”, “333”, “123”, “123123” }  ' 原数组  11个<br /> ' 数组 ＝ {  “111”, “222”, “333”,  “123123” } ’达到这个效果<br /> 子程序2打乱顺序 (数组)<br /> <br /> 子程序3 (数组)<br /> 调试输出 (数组)<br /> 数组 ＝ { “a”, “b”, “c”, “aa”, “bb”, “cc”, “aaa”, “bbb”, “ccc”, “abc”, “abcabc” }  ' 原数组 11个<br /> ' 数组 ＝ {  “aaa”, “bbb”, “ccc”,  “abcabc” } ’达到这个效果<br /> 子程序2打乱顺序 (数组)<br /> 子程序3 (数组)<br /> 调试输出 (数组)<br /> <br /> .子程序 子程序2打乱顺序<br /> .参数 参数, 文本型, 数组<br /> .局部变量 i1, 整数型<br /> .局部变量 cd, 整数型<br /> .局部变量 sj, 整数型<br /> .局部变量 a, 文本型<br /> <br /> cd ＝ 取数组成员数 (参数)<br /> .计次循环首 (cd, i1)<br />     sj ＝ 取随机数 (1, cd)<br />     a ＝ 参数 [i1]<br />     参数 [i1] ＝ 参数 [sj]<br />     参数 [sj] ＝ a<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序3<br /> .参数 参数, 文本型, 数组<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 i3, 整数型<br /> <br /> .计次循环首 (2, i3)<br />     .变量循环首 (取数组成员数 (参数), 1, -1, i1)<br />         .变量循环首 (i1 － 1, 1, -1, i2)<br />             .判断开始 (i3 ＝ 1)<br />                 .如果真 (取文本长度 (参数 [i1]) ＜ 取文本长度 (参数 [i2]))<br />                     交换变量 (参数 [i1], 参数 [i2])<br />                 .如果真结束<br /> <br />             .默认<br />                 .如果真 (参数 [i1] ≈ 参数 [i2])<br />                     .判断开始 (参数 [i1] ＜ 参数 [i2])<br />                         删除成员 (参数, i1, 1)<br />                     .默认<br />                         删除成员 (参数, i2, 1)<br />                     .判断结束<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .判断结束<br /> <br />         .变量循环尾 ()<br />     .变量循环尾 ()<br /> .计次循环尾 ()

亿万

支持开源~！感谢分享

396384183

支持开源~！感谢分享

renjianhong48we

感谢分享

深圳梦

支持开源~！感谢分享

Conquer

支持开源~！感谢分享

龙傲天f

支持开源~！感谢分享

wjswzj0

支持开源~！感谢分享

一指温柔

支持开源~！感谢分享

蓝色梦幻

支持开源~！感谢分享