我也实现一个：取重复字节集，较核心库 70秒比15毫秒

神女软件定制 · 发表于 2021-10-7 03:08:45

本帖最后由神一样的女人于 2021-10-7 03:10 编辑

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

变量名	类型	静态	数组	备注
n	整数型
bin	字节集
buff	字节集
t	整数型

n ＝ 10000000
bin ＝ { 255 }
t ＝取启动时间 ()
buff ＝取重复字节集 (n, bin)
调试输出 (“核心库耗时：”, 取启动时间 () － t)
t ＝取启动时间 ()
buff ＝我的取重复字节集 (n, bin)
调试输出 (“自己实现耗时：”, 取启动时间 () － t)
调试输出 (取字节集左边 (buff, 100), 取字节集右边 (buff, 100))

子程序名	返回值类型	公开	备注
我的取重复字节集	字节集
参数名	类型	参考	可空	数组	备注
n	整数型
bin	字节集

变量名	类型	静态	数组	备注
out	字节集
lenr	整数型			可读取长度
lenl	整数型			剩余长度
pw	整数型			写出地址
lenw	整数型			真实写出长度
pr	整数型			读取地址

out ＝ bin
lenr ＝取字节集长度 (out)
lenl ＝ lenr × n
写到内存 (sn_LocalReAlloc (指针到整数 (取变量地址 (out)), lenl ＋ 8, 2), 取变量地址 (out), 4)
写到内存 (lenl, 指针到整数 (取变量地址 (out)) ＋ 4, 4)
pr ＝取变量数据地址 (out)
pw ＝ pr ＋ lenr
lenl ＝ lenl － lenr

判断循环首 (lenl ＞ 0)

lenw ＝选择 (lenl ＜ lenr, lenl, lenr)

sn_CopyMemory (pw, pr, lenw)

pw ＝ pw ＋ lenw

lenr ＝ lenr ＋ lenw

lenl ＝ lenl － lenw

判断循环尾 ()
返回 (out)

i支持库列表	支持库注释
spec	特殊功能支持库

ss.e (4.84 KB, 下载次数: 24)

515667395 · 发表于 2021-10-23 15:33:16

支持一下

huahuayu · 发表于 2021-10-11 14:38:17

支持你，神一样的男人

神女软件定制 · 发表于 2021-10-10 16:18:25

chencong5025 发表于 2021-10-8 12:54
原始字节集稍微长点就分配内存失败了。而且原始字节集稍大一点性能就下降得很明显总之问题多得很 ...

越大，应该越快才对，相比自带的

梦想ol · 发表于 2021-10-10 15:40:16

感谢分享！支持下

chencong5025 · 发表于 2021-10-8 12:54:47

原始字节集稍微长点就分配内存失败了。而且原始字节集稍大一点性能就下降得很明显总之问题多得很

shj0205 · 发表于 2021-10-8 12:03:24

感谢分享！支持下

wuqingg · 发表于 2021-10-7 16:01:09

支持你，神一样的男人

pandorazx · 发表于 2021-10-7 14:17:46

学习了不错

quary888 · 发表于 2021-10-7 13:01:33

谢谢楼主分享！！！好人一生平安！！！

		自动登录	找回密码
密码			注册

[易语言纯源码] 我也实现一个：取重复字节集，较核心库 70秒比15毫秒

评分