关于问答区的解答 数组排序问题2

冯古屋

问题：数组排序问题2 http://125.confly.eu.org/forum.php?mod=viewthread&tid=14034318
@℡春花秋月
我个人觉得我这个方法会相对简单一些，也不调用模块
数组排序.e (5.75 KB, 下载次数: 16)

2017-6-20 10:30 上传

点击文件名下载附件
下载积分: 精币 -2 枚

补充内容 (2017-6-20 11:13):
不知道为什么，简单就一定等于快？我只想表达，不用模块也能做，一个计次循环也能做，仅此而已。

补充内容 (2017-6-20 12:37):
关于类似121123这样子的情况，只需要数组先数组排序一下即可达到111223，然后在用这方法，这是只是针对有序的一组了

jy0290

666666看看

y2j423633

http://125.confly.eu.org/forum.php?mod=viewthread&tid=14034180

求大神看看我的文本排序问题

奇异博士

来个更简单的，速度更快的。

  

子程序名	返回值类型	公开	备 注
取数组整数出现次数	文本型
参数名	类 型	参考	可空	数组	备 注
整数数组	整数型

变量名	类 型	静态	数组	备 注
字符串	文本型
长度	整数型
临时数据	字节集
快速字节集	快速字节集对象

快速字节集.置字节集 (整数数组)
循环判断首 ()
长度 ＝ 快速字节集.取长度 ()
临时数据 ＝ 快速字节集.取字节集 (1, 4)
快速字节集.替换子字节集 (临时数据, , , )
字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (临时数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 ( (长度 － 快速字节集.取长度 ()) ÷ 4) ＋ “ 次” ＋ #换行符
循环判断尾 (快速字节集.取长度 () ＞ 0)
返回 (字符串)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 取数组整数出现次数, 文本型<br /> .参数 整数数组, 整数型, 数组<br /> .局部变量 字符串, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 临时数据, 字节集<br /> .局部变量 快速字节集, 快速字节集对象<br /> <br /> 快速字节集.置字节集 (整数数组)<br /> .循环判断首 ()<br />     长度 ＝ 快速字节集.取长度 ()<br />     临时数据 ＝ 快速字节集.取字节集 (1, 4)<br />     快速字节集.替换子字节集 (临时数据, , , )<br />     字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (临时数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 ((长度 － 快速字节集.取长度 ()) ÷ 4) ＋ “ 次” ＋ #换行符<br /> .循环判断尾 (快速字节集.取长度 () ＞ 0)<br /> 返回 (字符串)

奇异博士

来个更简单的，速度更快的。

  

子程序名	返回值类型	公开	备 注
取数组整数出现次数	文本型
参数名	类 型	参考	可空	数组	备 注
整数数组	整数型

变量名	类 型	静态	数组	备 注
字符串	文本型
长度	整数型
临时数据	字节集
快速字节集	快速字节集对象

快速字节集.置字节集 (整数数组)
循环判断首 ()
长度 ＝ 快速字节集.取长度 ()
临时数据 ＝ 快速字节集.取字节集 (1, 4)
快速字节集.替换子字节集 (临时数据, , , )
字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (临时数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 ( (长度 － 快速字节集.取长度 ()) ÷ 4) ＋ “ 次” ＋ #换行符
循环判断尾 (快速字节集.取长度 () ＞ 0)
返回 (字符串)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 取数组整数出现次数, 文本型<br /> .参数 整数数组, 整数型, 数组<br /> .局部变量 字符串, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 临时数据, 字节集<br /> .局部变量 快速字节集, 快速字节集对象<br /> <br /> 快速字节集.置字节集 (整数数组)<br /> .循环判断首 ()<br />     长度 ＝ 快速字节集.取长度 ()<br />     临时数据 ＝ 快速字节集.取字节集 (1, 4)<br />     快速字节集.替换子字节集 (临时数据, , , )<br />     字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (临时数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 ((长度 － 快速字节集.取长度 ()) ÷ 4) ＋ “ 次” ＋ #换行符<br /> .循环判断尾 (快速字节集.取长度 () ＞ 0)<br /> 返回 (字符串)

奇异博士

有意思，看一下小弟我写得如何？

  

子程序名	返回值类型	公开	备 注
取数组整数出现次数	文本型
参数名	类 型	参考	可空	数组	备 注
整数数组	整数型

变量名	类 型	静态	数组	备 注
数据	字节集
搜寻位置	整数型
搜寻数据	字节集
字符串	文本型
出现次数	整数型

数据 ＝ 到字节集 (整数数组)
循环判断首 ()
搜寻数据 ＝ 取字节集中间 (数据, 1, 4)
循环判断首 ()
搜寻位置 ＝ 寻找字节集 (数据, 搜寻数据, 搜寻位置 ＋ 1)
出现次数 ＝ 出现次数 ＋ 1
循环判断尾 (搜寻位置 ≠ -1)
字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (搜寻数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 (出现次数 － 1) ＋ “ 次” ＋ #换行符
搜寻位置 ＝ 0
出现次数 ＝ 0
数据 ＝ 子字节集替换 (数据, 搜寻数据, {  }, , )
循环判断尾 (数据 ≠ {  })
返回 (字符串)

.版本 2<br /> <br /> .子程序 取数组整数出现次数, 文本型<br /> .参数 整数数组, 整数型, 数组<br /> .局部变量 数据, 字节集<br /> .局部变量 搜寻位置, 整数型<br /> .局部变量 搜寻数据, 字节集<br /> .局部变量 字符串, 文本型<br /> .局部变量 出现次数, 整数型<br /> <br /> 数据 ＝ 到字节集 (整数数组)<br /> .循环判断首 ()<br />     搜寻数据 ＝ 取字节集中间 (数据, 1, 4)<br />     .循环判断首 ()<br />         搜寻位置 ＝ 寻找字节集 (数据, 搜寻数据, 搜寻位置 ＋ 1)<br />         出现次数 ＝ 出现次数 ＋ 1<br />     .循环判断尾 (搜寻位置 ≠ -1)<br />     字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (搜寻数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 (出现次数 － 1) ＋ “ 次” ＋ #换行符<br />     搜寻位置 ＝ 0<br />     出现次数 ＝ 0<br />     数据 ＝ 子字节集替换 (数据, 搜寻数据, {  }, , )<br /> .循环判断尾 (数据 ≠ {  })<br /> 返回 (字符串)

奇异博士

有意思，我也来凑个热闹。

  

子程序名	返回值类型	公开	备 注
取数组整数出现次数	文本型
参数名	类 型	参考	可空	数组	备 注
整数数组	整数型

变量名	类 型	静态	数组	备 注
数据	字节集
搜寻位置	整数型
搜寻数据	字节集
字符串	文本型
出现次数	整数型

数据 ＝ 到字节集 (整数数组)
循环判断首 ()
搜寻数据 ＝ 取字节集中间 (数据, 1, 4)
循环判断首 ()
搜寻位置 ＝ 寻找字节集 (数据, 搜寻数据, 搜寻位置 ＋ 1)
出现次数 ＝ 出现次数 ＋ 1
循环判断尾 (搜寻位置 ≠ -1)
字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (搜寻数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 (出现次数 － 1) ＋ “ 次” ＋ #换行符
搜寻位置 ＝ 0
出现次数 ＝ 0
数据 ＝ 子字节集替换 (数据, 搜寻数据, {  }, , )
循环判断尾 (数据 ≠ {  })
返回 (字符串)

.版本 2<br /> <br /> .子程序 取数组整数出现次数, 文本型<br /> .参数 整数数组, 整数型, 数组<br /> .局部变量 数据, 字节集<br /> .局部变量 搜寻位置, 整数型<br /> .局部变量 搜寻数据, 字节集<br /> .局部变量 字符串, 文本型<br /> .局部变量 出现次数, 整数型<br /> <br /> 数据 ＝ 到字节集 (整数数组)<br /> .循环判断首 ()<br />     搜寻数据 ＝ 取字节集中间 (数据, 1, 4)<br />     .循环判断首 ()<br />         搜寻位置 ＝ 寻找字节集 (数据, 搜寻数据, 搜寻位置 ＋ 1)<br />         出现次数 ＝ 出现次数 ＋ 1<br />     .循环判断尾 (搜寻位置 ≠ -1)<br />     字符串 ＝ 字符串 ＋ 到文本 (取字节集数据 (搜寻数据, #整数型, )) ＋ “ 出现 ” ＋ 到文本 (出现次数 － 1) ＋ “ 次” ＋ #换行符<br />     搜寻位置 ＝ 0<br />     出现次数 ＝ 0<br />     数据 ＝ 子字节集替换 (数据, 搜寻数据, {  }, , )<br /> .循环判断尾 (数据 ≠ {  })<br /> 返回 (字符串)

呵呵仙

MY寂寞的夜 发表于 2017-6-20 11:08
1秒和 0.8秒，，又眼去看 时间，，区别大吗？

10倍数据,100倍,1000倍.万倍,亿倍呢?

MY寂寞的夜

1秒和 0.8秒，，又眼去看 时间，，区别大吗？  

呵呵仙

搞错,快速字节集对象才对.他哪个全是字节