[TC7.0|8.0] TC数组的快速排序算法

yuzhiboqianyuan

问了下GPT关于数组快排算法的伪代码，然后翻译成TC的代码。
没啥技术含量，仅供娱乐。

1. 功能 按钮_点击()
   
2.         //这里添加你要执行的代码
   
3.        //开始验证
   
4.         var tempArr = array(10, 7, 8, 9, 1, 5)  
   
5.         traceprint(tempArr)
   
6.         quickSort(tempArr, 0, arraysize(tempArr)-1)
   
7.         traceprint(tempArr)
   
8. 结束

复制代码

1. //数组快排算法
   
2. function quickSort(&arr, low, high)//对arr数组进行基于value的快速排序,外部调用时,low为0,high为数组大小-1
   
3.     var pi
   
4.     if(low < high)
   
5.         //pi 是分区索引,array[pi]已经在最终位置
   
6.         pi = partition(arr, low, high)
   
7.         //分别对基准值作为两边的子数组进行递归排序
   
8.         quickSort(arr, low, pi - 1)
   
9.         quickSort(arr, pi + 1, high)
   
10.     end
    
11. end
    
12. function partition(&arr, low, high)
    
13.     //选择最右侧的元素作为基准值
    
14.     var pivotVaule, pivotKey
    
15.     arraygetat(arr, high, pivotVaule, pivotKey)
    
16.     //i是小于基准值的元素的位置索引
    
17.     var  i = low - 1
    
18.     for(var j = low; j <= high - 1; j++)
    
19.         var value, key
    
20.         arraygetat(arr, j, value, key)
    
21.         if(value <= pivotVaule)
    
22.             //增加i
    
23.             i++
    
24.             //交换array和array[j]
    
25.             ArrSwapEle(arr, i, j)
    
26.         end
    
27.     end
    
28.     ArrSwapEle(arr, i + 1, high)
    
29.     return i + 1
    
30. end
    
31. //数组元素交换
    
32. function ArrSwapEle(&arr, firstPos, secondPos)//pos为数组索引,从0开始,直接操作原数组,将两个位置的索引元素进行交换
    
33.     //将firstPos和secondPos两个位置的元素进行交换  
    
34.     if(arraysize(arr) < 2)
    
35.         //数组元素数量不足,无法交换
    
36.         return
    
37.     elseif(firstPos == secondPos)
    
38.         //如果两个位置相等的话,直接返回
    
39.         return
    
40.     elseif(firstPos < 0)
    
41.         //位置非法,直接返回
    
42.         return
    
43.     elseif(secondPos < 0)
    
44.         //位置非法,直接返回
    
45.         return
    
46.     elseif(firstPos > arraysize(arr))
    
47.         //位置非法,直接返回
    
48.         return
    
49.     elseif(secondPos > arraysize(arr))
    
50.         //位置非法,直接返回
    
51.         return
    
52.     elseif(firstPos > secondPos)
    
53.         //交换firstPos和secondPos的值
    
54.         var tempPos = firstPos
    
55.         firstPos = secondPos
    
56.         secondPos = tempPos
    
57.     end
    
58.     var firstPosValue, firstPosKey, secondPosValue, secondPosKey
    
59.     arraygetat(arr, firstPos, firstPosValue, firstPosKey)
    
60.     arraygetat(arr, secondPos, secondPosValue, secondPosKey)
    
61.     arraydeletepos(arr, firstPos)
    
62.     arraydeletepos(arr, secondPos - 1)
    
63.     arrayadd(arr, secondPosValue, secondPosKey, firstPos)
    
64.     arrayadd(arr, firstPosValue, firstPosKey, secondPos)
    
65. end
    

复制代码

20240904更新，1、才发现之前提交的代码没有复制全，现在给补上了。2、快速将 D:\Program Files\Todesk\ToDesk.exe  这种全路径后面的文件名替换成 config.ini，两种方式任君选择。

1.         变量 窗口程序全路径 = 窗口获取路径(窗口句柄)  
   
2.         traceprint(窗口程序全路径)
   
3. 
   
4.         //替换文件名方式1
   
5.         var 配置文件全路径 = 正则表达式替换(窗口程序全路径, "(?<=\\\\)[^\\\\]*\\.?[^\\\\]*[        DISCUZ_CODE_1        ]quot;, "config.ini")      //把后面的文件名用正则匹配替换成配置文件名称
   
6.         traceprint(配置文件全路径)
   
7. 
   
8.         //替换文件名方式2
   
9.         var 配置文件全路径2 = 字符串截取左侧(窗口程序全路径, 字符串长度(窗口程序全路径) - 字符串查找(字符串倒序(窗口程序全路径), "\"))   &"config.ini"
   
10.         traceprint(配置文件全路径2)
    
11. 
    
12.         var 配置文件内容 = 文件读配置("ConfigInfo", "Resolution", 配置文件全路径)
    
13.         traceprint("配置文件内容: " & 配置文件内容)

复制代码

输出>>"D:\Program Files\Todesk\ToDesk.exe"

输出>>"D:\Program Files\Todesk\config.ini"   

输出>>"D:\Program Files\Todesk\config.ini"   

输出>>"配置文件内容: 1920x1080"   

CNXXP

TC还有用户 哈哈

yuzhiboqianyuan

CNXXP 发表于 2024-5-18 19:06
TC还有用户 哈哈

哈哈哈，只是个会搬运的新手