精易论坛

标题: 关于问答区的解答 数组排序问题2 [打印本页]

---

作者: 冯古屋    时间: 2017-6-20 10:31
标题: 关于问答区的解答 数组排序问题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，然后在用这方法，这是只是针对有序的一组了

---

作者: Mr、Darren    时间: 2017-6-20 10:33

  

子程序名	返回值类型	公开	备 注
取次数

变量名	类 型	静态	数组	备 注
i	整数型
原文本数组	文本型		0
去重复数组	文本型		0

数组 ＝ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 8 }
计次循环首 (取数组成员数 (数组), i)
加入成员 (原文本数组, 到文本 (数组 [i]))
加入成员 (去重复数组, 到文本 (数组 [i]))
计次循环尾 ()
数组_去重复 (去重复数组)
计次循环首 (取数组成员数 (去重复数组), i)
编辑框1.加入文本 (到文本 (去重复数组 [i]) ＋ “出现” ＋ 到文本 (数组_取次数 (原文本数组, 去重复数组 [i])) ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 取次数<br /> .局部变量 i, 整数型<br /> .局部变量 原文本数组, 文本型, , "0"<br /> .局部变量 去重复数组, 文本型, , "0"<br /> <br /> 数组 ＝ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 8 }<br /> .计次循环首 (取数组成员数 (数组), i)<br />     加入成员 (原文本数组, 到文本 (数组 <i>))<br />     加入成员 (去重复数组, 到文本 (数组 <i>))<br /> .计次循环尾 ()<br /> 数组_去重复 (去重复数组)<br /> .计次循环首 (取数组成员数 (去重复数组), i)<br />     编辑框1.加入文本 (到文本 (去重复数组 <i>) ＋ “出现” ＋ 到文本 (数组_取次数 (原文本数组, 去重复数组 <i>)) ＋ #换行符)<br /> .计次循环尾 ()

这应该更简单点

---

作者: Mr、Darren    时间: 2017-6-20 10:33

  

子程序名	返回值类型	公开	备 注
取次数

变量名	类 型	静态	数组	备 注
i	整数型
原文本数组	文本型		0
去重复数组	文本型		0

数组 ＝ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 8 }
计次循环首 (取数组成员数 (数组), i)
加入成员 (原文本数组, 到文本 (数组 [i]))
加入成员 (去重复数组, 到文本 (数组 [i]))
计次循环尾 ()
数组_去重复 (去重复数组)
计次循环首 (取数组成员数 (去重复数组), i)
编辑框1.加入文本 (到文本 (去重复数组 [i]) ＋ “出现” ＋ 到文本 (数组_取次数 (原文本数组, 去重复数组 [i])) ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 取次数<br /> .局部变量 i, 整数型<br /> .局部变量 原文本数组, 文本型, , "0"<br /> .局部变量 去重复数组, 文本型, , "0"<br /> <br /> 数组 ＝ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 8 }<br /> .计次循环首 (取数组成员数 (数组), i)<br />     加入成员 (原文本数组, 到文本 (数组 <i>))<br />     加入成员 (去重复数组, 到文本 (数组 <i>))<br /> .计次循环尾 ()<br /> 数组_去重复 (去重复数组)<br /> .计次循环首 (取数组成员数 (去重复数组), i)<br />     编辑框1.加入文本 (到文本 (去重复数组 <i>) ＋ “出现” ＋ 到文本 (数组_取次数 (原文本数组, 去重复数组 <i>)) ＋ #换行符)<br /> .计次循环尾 ()

这应该更简单点

---

作者: 呵呵仙    时间: 2017-6-20 10:58
搞错,快速字节集对象才对.他哪个全是字节

---

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

---

作者: 呵呵仙    时间: 2017-6-20 11:14

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

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

---

作者: 奇异博士    时间: 2017-6-20 11:47
有意思，我也来凑个热闹。

  

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

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

数据 ＝ 到字节集 (整数数组)
循环判断首 ()
搜寻数据 ＝ 取字节集中间 (数据, 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 /> 返回 (字符串)

---

作者: 奇异博士    时间: 2017-6-20 11:48
有意思，看一下小弟我写得如何？

  

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

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

数据 ＝ 到字节集 (整数数组)
循环判断首 ()
搜寻数据 ＝ 取字节集中间 (数据, 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 /> 返回 (字符串)

---

作者: 奇异博士    时间: 2017-6-20 13:40
来个更简单的，速度更快的。

  

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

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

快速字节集.置字节集 (整数数组)
循环判断首 ()
长度 ＝ 快速字节集.取长度 ()
临时数据 ＝ 快速字节集.取字节集 (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 /> 返回 (字符串)

---

作者: 奇异博士    时间: 2017-6-20 13:41
来个更简单的，速度更快的。

  

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

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

快速字节集.置字节集 (整数数组)
循环判断首 ()
长度 ＝ 快速字节集.取长度 ()
临时数据 ＝ 快速字节集.取字节集 (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 /> 返回 (字符串)

---

作者: y2j423633    时间: 2017-6-20 14:57
http://125.confly.eu.org/forum.php?mod=viewthread&tid=14034180

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

---

作者: jy0290    时间: 2017-6-20 20:50
666666看看

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4