迭代版的快速排序，不是递归的，速度并不会快多少

APPLEUFO

写完了 迭代版快速排序，用1个参数一样大小的游标数组（记录左右的起始点终点），储存了原来的栈
13|56      78|10,11
例如第一组，被4分割成两个，左右是1 3， 第二个是 5 ，6



然后用第一组数组，计算得出第二组游标数组。下回第二游标组数组计算的结果再覆盖到第一个游标数组。交替使用，比第二个数组直接赋值到第一个数组会快一倍了。
基本和递归的快排速度上没差别了。就是空间占用大点（栈换成了两组的数组）

结果快排的这个迭代版，还是没有归并排序的迭代版快

.版本 2

' * “5 秒 398 毫秒 ”  500w
' * 真 | “成功=真” | “归并最优化版本”
' * “8 秒 3 毫秒 ”
' * 真 | “成功=真” | “迭代_快排”

' * “11 秒 92 毫秒 ”1000w
' * 真 | “成功=真” | “归并最优化版本”
' * “25 秒 647 毫秒 ”
' * 真 | “成功=真” | “迭代_快排*********************  本文的速度在这里”

' * “26 秒 723 毫秒 ”
' * 真 | “成功=真” | “快排原始”
' * “27 秒 425 毫秒 ”
' * 真 | “成功=真” | “QuickSort”

  

子程序名	返回值类型	公开	备 注
迭代_快排04			这是用新旧变量互相替换，免去了 赋值时间
参数名	类 型	参考	可空	数组	备 注
参数_数组	整数型

变量名	类 型	静态	数组	备 注
局变_旧储存左右值	整数型		0
局变_新存储左右值	整数型		0
局变_新旧二选一	逻辑型			交替储存
局变_游标数目	整数型
局变_左边	整数型
局变_右边	整数型
n1	整数型
i	整数型
s1	整数型

如果真 (取数组成员数 (参数_数组) ≤ 1)
返回 ()

重定义数组 (局变_旧储存左右值, 假, 取数组成员数 (参数_数组))
重定义数组 (局变_新存储左右值, 假, 取数组成员数 (参数_数组))
局变_旧储存左右值 [1] ＝ 1
局变_旧储存左右值 [2] ＝ 取数组成员数 (参数_数组)
局变_游标数目 ＝ 1
循环判断首 ()
s1 ＝ 0
如果 (局变_新旧二选一 ＝ 假)
计次循环首 (局变_游标数目, n1)
局变_左边 ＝ 局变_旧储存左右值 [n1 × 2 － 1]
局变_右边 ＝ 局变_旧储存左右值 [n1 × 2]
i ＝ 子程序_分开成两份 (参数_数组, 局变_左边, 局变_右边)
如果 (局变_左边 ≥ i － 1)
' 无动作,不添加游标


s1 ＝ s1 ＋ 1
局变_新存储左右值 [s1] ＝ 局变_左边
s1 ＝ s1 ＋ 1
局变_新存储左右值 [s1] ＝ i － 1

如果 (i ＋ 1 ≥ 局变_右边)
' 无动作


s1 ＝ s1 ＋ 1
局变_新存储左右值 [s1] ＝ i ＋ 1
s1 ＝ s1 ＋ 1
局变_新存储左右值 [s1] ＝ 局变_右边

计次循环尾 ()
局变_新旧二选一 ＝ 真


计次循环首 (局变_游标数目, n1)
局变_左边 ＝ 局变_新存储左右值 [n1 × 2 － 1]
局变_右边 ＝ 局变_新存储左右值 [n1 × 2]
i ＝ 子程序_分开成两份 (参数_数组, 局变_左边, 局变_右边)
如果 (局变_左边 ≥ i － 1)
' 无动作


s1 ＝ s1 ＋ 1
局变_旧储存左右值 [s1] ＝ 局变_左边
s1 ＝ s1 ＋ 1
局变_旧储存左右值 [s1] ＝ i － 1

如果 (i ＋ 1 ≥ 局变_右边)
' 无动作


s1 ＝ s1 ＋ 1
局变_旧储存左右值 [s1] ＝ i ＋ 1
s1 ＝ s1 ＋ 1
局变_旧储存左右值 [s1] ＝ 局变_右边

计次循环尾 ()
局变_新旧二选一 ＝ 假

局变_游标数目 ＝ s1 ÷ 2
如果真 (局变_游标数目 ＝ 0)
跳出循环 ()

循环判断尾 (真)
' * “26 秒 193 毫秒 ”
' * 真 | “成功=真” | “迭代_快排”
' * “27 秒 176 毫秒 ”  搞了子程序函数化
' * 真 | “成功=真” | “迭代_快排”

子程序名	返回值类型	公开	备 注
子程序_分开成两份	整数型
参数名	类 型	参考	可空	数组	备 注
参数_数组	整数型
参数左	整数型
参数右	整数型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
局部_基准值	整数型

i ＝ 参数左
j ＝ 参数右
局部_基准值 ＝ 参数_数组 [参数左]
判断循环首 (i ＜ j)
判断循环首 (i ＜ j 且 参数_数组 [j] ≥ 局部_基准值)
j ＝ j － 1
判断循环尾 ()
如果真 (i ＜ j)
参数_数组 [i] ＝ 参数_数组 [j]
i ＝ i ＋ 1

判断循环首 (i ＜ j 且 参数_数组 [i] ≤ 局部_基准值)
i ＝ i ＋ 1
判断循环尾 ()
如果真 (i ＜ j)
参数_数组 [j] ＝ 参数_数组 [i]
j ＝ j － 1

判断循环尾 ()
参数_数组 [i] ＝ 局部_基准值
返回 (i)

子程序名	返回值类型	公开	备 注
子程序2

' * “5 秒 398 毫秒 ”  500w
' * 真 | “成功=真” | “最优化版本”
' * “8 秒 3 毫秒 ”
' * 真 | “成功=真” | “迭代_快排”
' * “11 秒 92 毫秒 ”1000w
' * 真 | “成功=真” | “最优化版本”
' * “25 秒 647 毫秒 ”
' * 真 | “成功=真” | “迭代_快排”
' * “26 秒 723 毫秒 ”
' * 真 | “成功=真” | “快排原始”
' * “27 秒 425 毫秒 ”
' * 真 | “成功=真” | “QuickSort”

.版本 2<br /> <br /> .子程序 迭代_快排04, , , 这是用新旧变量互相替换，免去了 赋值时间 <br /> .参数 参数_数组, 整数型, 数组<br /> .局部变量 局变_旧储存左右值, 整数型, , "0"<br /> .局部变量 局变_新存储左右值, 整数型, , "0"<br /> .局部变量 局变_新旧二选一, 逻辑型, , , 交替储存<br /> .局部变量 局变_游标数目, 整数型<br /> .局部变量 局变_左边, 整数型<br /> .局部变量 局变_右边, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s1, 整数型<br /> <br /> <br /> .如果真 (取数组成员数 (参数_数组) ≤ 1)<br />     返回 ()<br /> .如果真结束<br /> <br /> 重定义数组 (局变_旧储存左右值, 假, 取数组成员数 (参数_数组))<br /> <br /> 重定义数组 (局变_新存储左右值, 假, 取数组成员数 (参数_数组))<br /> <br /> 局变_旧储存左右值 [1] ＝ 1<br /> 局变_旧储存左右值 [2] ＝ 取数组成员数 (参数_数组)<br /> <br /> 局变_游标数目 ＝ 1<br /> <br /> .循环判断首 ()<br /> <br /> <br />     s1 ＝ 0<br /> <br />     .如果 (局变_新旧二选一 ＝ 假)<br /> <br />         .计次循环首 (局变_游标数目, n1)<br /> <br />             局变_左边 ＝ 局变_旧储存左右值 [n1 × 2 － 1]<br />             局变_右边 ＝ 局变_旧储存左右值 [n1 × 2]<br /> <br />             i ＝ 子程序_分开成两份 (参数_数组, 局变_左边, 局变_右边)<br /> <br />             .如果 (局变_左边 ≥ i － 1)<br />                 ' 无动作,不添加游标<br />             .否则<br /> <br />                 s1 ＝ s1 ＋ 1<br />                 局变_新存储左右值 [s1] ＝ 局变_左边<br />                 s1 ＝ s1 ＋ 1<br />                 局变_新存储左右值 [s1] ＝ i － 1<br />             .如果结束<br /> <br />             .如果 (i ＋ 1 ≥ 局变_右边)<br />                 ' 无动作<br />             .否则<br /> <br />                 s1 ＝ s1 ＋ 1<br />                 局变_新存储左右值 [s1] ＝ i ＋ 1<br />                 s1 ＝ s1 ＋ 1<br />                 局变_新存储左右值 [s1] ＝ 局变_右边<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         局变_新旧二选一 ＝ 真<br />     .否则<br /> <br /> <br />         .计次循环首 (局变_游标数目, n1)<br /> <br />             局变_左边 ＝ 局变_新存储左右值 [n1 × 2 － 1]<br />             局变_右边 ＝ 局变_新存储左右值 [n1 × 2]<br /> <br />             i ＝ 子程序_分开成两份 (参数_数组, 局变_左边, 局变_右边)<br /> <br /> <br />             .如果 (局变_左边 ≥ i － 1)<br />                 ' 无动作<br />             .否则<br /> <br />                 s1 ＝ s1 ＋ 1<br />                 局变_旧储存左右值 [s1] ＝ 局变_左边<br />                 s1 ＝ s1 ＋ 1<br />                 局变_旧储存左右值 [s1] ＝ i － 1<br />             .如果结束<br /> <br />             .如果 (i ＋ 1 ≥ 局变_右边)<br />                 ' 无动作<br />             .否则<br /> <br />                 s1 ＝ s1 ＋ 1<br />                 局变_旧储存左右值 [s1] ＝ i ＋ 1<br />                 s1 ＝ s1 ＋ 1<br />                 局变_旧储存左右值 [s1] ＝ 局变_右边<br />             .如果结束<br /> <br />         .计次循环尾 ()<br /> <br />         局变_新旧二选一 ＝ 假<br />     .如果结束<br /> <br /> <br />     局变_游标数目 ＝ s1 ÷ 2<br /> <br />     .如果真 (局变_游标数目 ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (真)<br /> <br /> ' * “26 秒 193 毫秒 ”<br /> ' * 真 | “成功=真” | “迭代_快排”<br /> <br /> ' * “27 秒 176 毫秒 ”  搞了子程序函数化<br /> ' * 真 | “成功=真” | “迭代_快排”<br /> <br /> <br /> .子程序 子程序_分开成两份, 整数型<br /> .参数 参数_数组, 整数型, 数组<br /> .参数 参数左, 整数型<br /> .参数 参数右, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 局部_基准值, 整数型<br /> <br /> <br /> i ＝ 参数左<br /> j ＝ 参数右<br /> <br /> 局部_基准值 ＝ 参数_数组 [参数左]<br /> .判断循环首 (i ＜ j)<br />     .判断循环首 (i ＜ j 且 参数_数组 [j] ≥ 局部_基准值)<br />         j ＝ j － 1<br />     .判断循环尾 ()<br />     .如果真 (i ＜ j)<br />         参数_数组 <i> ＝ 参数_数组 [j]<br />         i ＝ i ＋ 1<br />     .如果真结束<br /> <br />     .判断循环首 (i ＜ j 且 参数_数组 <i> ≤ 局部_基准值)<br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br />     .如果真 (i ＜ j)<br />         参数_数组 [j] ＝ 参数_数组 <i><br />         j ＝ j － 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 参数_数组 <i> ＝ 局部_基准值<br /> <br /> 返回 (i)<br /> <br /> .子程序 子程序2<br /> <br /> ' * “5 秒 398 毫秒 ”  500w<br /> ' * 真 | “成功=真” | “最优化版本”<br /> ' * “8 秒 3 毫秒 ”<br /> ' * 真 | “成功=真” | “迭代_快排”<br /> <br /> ' * “11 秒 92 毫秒 ”1000w<br /> ' * 真 | “成功=真” | “最优化版本”<br /> ' * “25 秒 647 毫秒 ”<br /> ' * 真 | “成功=真” | “迭代_快排”<br /> <br /> ' * “26 秒 723 毫秒 ”<br /> ' * 真 | “成功=真” | “快排原始”<br /> ' * “27 秒 425 毫秒 ”<br /> ' * 真 | “成功=真” | “QuickSort”

凉城o

感谢分享，很给力！~

tapouki

新技能GET√

APPLEUFO

弱鸡第一步 发表于 2020-6-13 23:55
大佬  能否求发你的这个易语言配色

https://bbs.125.la/forum.php?mod=viewthread&tid=14564940   
8楼

弱鸡第一步

大佬  能否求发你的这个易语言配色

kevines

可以的，厉害

APPLEUFO