快速排序超精简版 再去两行 8行搞定

cf2006a

快速排序_随机版.e (4.78 KB, 下载次数: 66)

2018-7-26 21:53 上传

点击文件名下载附件

修复下bug 并再精简代码到8行搞定各数据排序，速度还可以把 100W    0.5-0.6 秒  1000W也不崩溃26秒吧！技术有限提速交给论坛里的大侠吧。。。。

  

子程序名	返回值类型	公开	备 注
快速排序_精简版			参数一填排序数组 开始位置填1 结束位置填成员数最后一个
参数名	类 型	参考	可空	数组	备 注
参数_数组	文本型
开始位置	整数型				左
结束位置	整数型				右

变量名	类 型	静态	数组	备 注
i	整数型
gap	整数型			基准下标

如果真 (开始位置 ＜ 结束位置)
gap ＝ 开始位置 － 1
变量循环首 (开始位置, 结束位置, 1, i)
如果真 (到数值 (参数_数组 [i]) ≤ 到数值 (参数_数组 [结束位置]))
gap ＝ gap ＋ 1
交换变量 (参数_数组 [gap], 参数_数组 [i])

变量循环尾 ()
快速排序_精简版 (参数_数组, 开始位置, gap － 1)
快速排序_精简版 (参数_数组, gap ＋ 1, 结束位置)

.版本 2<br /> <br /> .子程序 快速排序_精简版, , , 参数一填排序数组 开始位置填1 结束位置填成员数最后一个<br /> .参数 参数_数组, 文本型, 数组<br /> .参数 开始位置, 整数型, , 左<br /> .参数 结束位置, 整数型, , 右<br /> .局部变量 i, 整数型<br /> .局部变量 gap, 整数型, , , 基准下标<br /> <br /> .如果真 (开始位置 ＜ 结束位置)<br />     gap ＝ 开始位置 － 1<br />     .变量循环首 (开始位置, 结束位置, 1, i)<br />         .如果真 (到数值 (参数_数组 <i>) ≤ 到数值 (参数_数组 [结束位置]))<br />             gap ＝ gap ＋ 1<br />             交换变量 (参数_数组 [gap], 参数_数组 <i>)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     快速排序_精简版 (参数_数组, 开始位置, gap － 1)<br />     快速排序_精简版 (参数_数组, gap ＋ 1, 结束位置)

觉得不错记得给个好评，谢谢！

网络注册络员

水深与云起

交换变量子程序内容怎么实现啊?

linlin888

下来学习，谢谢

zeng20160808

感谢分享，很给力！~

sampo

不错，学习了。

网络注册会员

又优化了哦

cf2006a

bole5155 发表于 2018-7-27 00:44
楼主可以的 支持！想法创新棒棒哒   但是同样100w数据快速算法1.3s 你的这个算法5s

你要看是文本还是整数 整数会比文本快很多

onlydbg

楼主可以的 支持！想法创新棒棒哒   但是同样100w数据快速算法1.3s 你的这个算法5s

丿夜曲

把插入改成交换，效率其实也差不多吧。