精易论坛

标题: 无题 [打印本页]

作者: 真冬    时间: 2023-3-16 00:51
标题: 无题
源码来源于:
这个想法好不好搞
https://125.confly.eu.org/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特殊功能支持库



作者: 瑶总要困告了    时间: 2023-3-16 00:55
感谢分享 6666666
作者: dwcq    时间: 2023-3-16 01:10
好评超出限制了,
作者: 林深不见鹿    时间: 2023-3-16 05:59
谢谢分享
作者: 蓝色梦幻    时间: 2023-3-16 08:08
支持开源~!感谢分享
作者: 一指温柔    时间: 2023-3-16 09:16
支持开源~!感谢分享
作者: wjswzj0    时间: 2023-3-16 09:22
支持开源~!感谢分享
作者: 龙傲天f    时间: 2023-3-16 17:21
支持开源~!感谢分享
作者: Conquer    时间: 2023-3-16 17:31
支持开源~!感谢分享
作者: 深圳梦    时间: 2023-3-16 20:01
支持开源~!感谢分享
作者: renjianhong48we    时间: 2023-3-17 10:31
感谢分享
作者: 396384183    时间: 2023-3-17 16:24
支持开源~!感谢分享
作者: 亿万    时间: 2023-3-17 22:15
支持开源~!感谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4