分享几个有意思的源码：read_uint64、int64

刚性兑付

  

子程序名	返回值类型	公开	备 注
read_uint64_str	文本型		读取无符号整数64为十进制字符串

变量名	类 型	静态	数组	备 注
局_字节集	字节集
高32	长整数型
低32	长整数型
结果	文本型

局_字节集 ＝ read_bytes (8)
如果 (局_字节集 ≠ {  })
' 取高32位
高32 ＝ 取字节集数据 (局_字节集, #字节型, 1) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 2) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 3) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 4)
' 取低32位
低32 ＝ 取字节集数据 (局_字节集, #字节型, 5) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 6) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 7) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 8)
' 由于易语言长整数型最大2^63-1，2^32以内的乘法和加法不会溢出
结果 ＝ 文本_大数乘法 (到文本 (高32), “4294967296”)  ' 2^32
结果 ＝ 文本_大数加法 (结果, 到文本 (低32))
返回 (结果)
返回 (“0”)

.版本 2<br /> <br /> .子程序 read_uint64_str, 文本型, , 读取无符号整数64为十进制字符串<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 高32, 长整数型<br /> .局部变量 低32, 长整数型<br /> .局部变量 结果, 文本型<br /> <br /> 局_字节集 ＝ read_bytes (8)<br /> .如果 (局_字节集 ≠ {  })<br />     ' 取高32位<br />     高32 ＝ 取字节集数据 (局_字节集, #字节型, 1) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 2) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 3) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 4)<br />     ' 取低32位<br />     低32 ＝ 取字节集数据 (局_字节集, #字节型, 5) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 6) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 7) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 8)<br />     ' 由于易语言长整数型最大2^63-1，2^32以内的乘法和加法不会溢出<br />     结果 ＝ 文本_大数乘法 (到文本 (高32), “4294967296”)  ' 2^32<br />     结果 ＝ 文本_大数加法 (结果, 到文本 (低32))<br />     返回 (结果)<br /> .否则<br />     返回 (“0”)

  

子程序名	返回值类型	公开	备 注
read_int64_str	文本型		读取有符号整数64为十进制字符串

变量名	类 型	静态	数组	备 注
局_字节集	字节集
高32	长整数型
低32	长整数型
结果	文本型

局_字节集 ＝ read_bytes (8)
如果 (局_字节集 ≠ {  })
' 取高32位
高32 ＝ 取字节集数据 (局_字节集, #字节型, 1) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 2) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 3) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 4)
' 取低32位
低32 ＝ 取字节集数据 (局_字节集, #字节型, 5) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 6) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 7) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 8)
' 结果 = 高32 * 2^32 + 低32
结果 ＝ 文本_大数加法 (文本_大数乘法 (到文本 (高32), “4294967296”), 到文本 (低32))
' 判断符号位
如果真 (取字节集数据 (局_字节集, #字节型, 1) ≥ 128)
' 负数，做补码还原
结果 ＝ 文本_大数减法 (结果, “18446744073709551616”)  ' 2^64
结果 ＝ “-” ＋ 结果
返回 (结果)
返回 (“0”)

.版本 2<br /> <br /> .子程序 read_int64_str, 文本型, , 读取有符号整数64为十进制字符串<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 高32, 长整数型<br /> .局部变量 低32, 长整数型<br /> .局部变量 结果, 文本型<br /> <br /> 局_字节集 ＝ read_bytes (8)<br /> .如果 (局_字节集 ≠ {  })<br />     ' 取高32位<br />     高32 ＝ 取字节集数据 (局_字节集, #字节型, 1) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 2) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 3) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 4)<br />     ' 取低32位<br />     低32 ＝ 取字节集数据 (局_字节集, #字节型, 5) × 16777216 ＋ 取字节集数据 (局_字节集, #字节型, 6) × 65536 ＋ 取字节集数据 (局_字节集, #字节型, 7) × 256 ＋ 取字节集数据 (局_字节集, #字节型, 8)<br />     ' 结果 = 高32 * 2^32 + 低32<br />     结果 ＝ 文本_大数加法 (文本_大数乘法 (到文本 (高32), “4294967296”), 到文本 (低32))<br />     ' 判断符号位<br />     .如果真 (取字节集数据 (局_字节集, #字节型, 1) ≥ 128)<br />         ' 负数，做补码还原<br />         结果 ＝ 文本_大数减法 (结果, “18446744073709551616”)  ' 2^64<br />         结果 ＝ “-” ＋ 结果<br />     .如果真结束<br />     返回 (结果)<br /> .否则<br />     返回 (“0”)

  

子程序名	返回值类型	公开	备 注
文本_大数加法	文本型
参数名	类 型	参考	可空	数组	备 注
a	文本型
b	文本型

变量名	类 型	静态	数组	备 注
i	整数型
进位	整数型
结果	文本型
位和	整数型

a ＝ 文本_颠倒 (a, 假)
b ＝ 文本_颠倒 (b, 假)
如果 (取文本长度 (a) ＜ 取文本长度 (b))
a ＝ a ＋ 取重复文本 (取文本长度 (b) － 取文本长度 (a), “0”)
b ＝ b ＋ 取重复文本 (取文本长度 (a) － 取文本长度 (b), “0”)
进位 ＝ 0
结果 ＝ “”
计次循环首 (取文本长度 (a), i)
位和 ＝ 到整数 (取文本中间 (a, i, 1)) ＋ 到整数 (取文本中间 (b, i, 1)) ＋ 进位
结果 ＝ 到文本 (位和 ％ 10) ＋ 结果
进位 ＝ 位和 ÷ 10
计次循环尾 ()
如果真 (进位 ＞ 0)
结果 ＝ 到文本 (进位) ＋ 结果
返回 (文本_去左边零 (结果))

子程序名	返回值类型	公开	备 注
文本_大数减法	文本型
参数名	类 型	参考	可空	数组	备 注
a	文本型
b	文本型

变量名	类 型	静态	数组	备 注
i	整数型
借位	整数型
结果	文本型
位差	整数型

a ＝ 文本_颠倒 (a, 假)
b ＝ 文本_颠倒 (b, 假)
如果 (取文本长度 (a) ＜ 取文本长度 (b))
a ＝ a ＋ 取重复文本 (取文本长度 (b) － 取文本长度 (a), “0”)
b ＝ b ＋ 取重复文本 (取文本长度 (a) － 取文本长度 (b), “0”)
借位 ＝ 0
结果 ＝ “”
计次循环首 (取文本长度 (a), i)
位差 ＝ 到整数 (取文本中间 (a, i, 1)) － 到整数 (取文本中间 (b, i, 1)) － 借位
如果 (位差 ＜ 0)
位差 ＝ 位差 ＋ 10
借位 ＝ 1
借位 ＝ 0
结果 ＝ 到文本 (位差) ＋ 结果
计次循环尾 ()
返回 (文本_去左边零 (结果))

子程序名	返回值类型	公开	备 注
文本_大数乘法	文本型
参数名	类 型	参考	可空	数组	备 注
a	文本型
b	文本型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
结果	文本型
临时	文本型
进位	整数型
乘积	整数型

结果 ＝ “0”
计次循环首 (取文本长度 (b), i)
临时 ＝ “”
进位 ＝ 0
计次循环首 (取文本长度 (a), j)
乘积 ＝ 到整数 (取文本中间 (a, 取文本长度 (a) － j ＋ 1, 1)) × 到整数 (取文本中间 (b, 取文本长度 (b) － i ＋ 1, 1)) ＋ 进位
临时 ＝ 到文本 (乘积 ％ 10) ＋ 临时
进位 ＝ 乘积 ÷ 10
计次循环尾 ()
如果真 (进位 ＞ 0)
临时 ＝ 到文本 (进位) ＋ 临时
临时 ＝ 临时 ＋ 取重复文本 (i － 1, “0”)
结果 ＝ 文本_大数加法 (结果, 临时)
计次循环尾 ()
返回 (文本_去左边零 (结果))

子程序名	返回值类型	公开	备 注
文本_去左边零	文本型
参数名	类 型	参考	可空	数组	备 注
输入文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型

i ＝ 1
判断循环首 (i ≤ 取文本长度 (输入文本) 且 取文本中间 (输入文本, i, 1) ＝ “0”)
i ＝ i ＋ 1
判断循环尾 ()
如果 (i ＞ 取文本长度 (输入文本))
返回 (“0”)
返回 (取文本右边 (输入文本, 取文本长度 (输入文本) － i ＋ 1))

.版本 2<br /> <br /> .子程序 文本_大数加法, 文本型, 公开<br /> .参数 a, 文本型<br /> .参数 b, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 进位, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 位和, 整数型<br /> <br /> a ＝ 文本_颠倒 (a, 假)<br /> b ＝ 文本_颠倒 (b, 假)<br /> .如果 (取文本长度 (a) ＜ 取文本长度 (b))<br />     a ＝ a ＋ 取重复文本 (取文本长度 (b) － 取文本长度 (a), “0”)<br /> .否则<br />     b ＝ b ＋ 取重复文本 (取文本长度 (a) － 取文本长度 (b), “0”)<br /> .如果结束<br /> 进位 ＝ 0<br /> 结果 ＝ “”<br /> .计次循环首 (取文本长度 (a), i)<br />     位和 ＝ 到整数 (取文本中间 (a, i, 1)) ＋ 到整数 (取文本中间 (b, i, 1)) ＋ 进位<br />     结果 ＝ 到文本 (位和 ％ 10) ＋ 结果<br />     进位 ＝ 位和 ÷ 10<br /> .计次循环尾 ()<br /> .如果真 (进位 ＞ 0)<br />     结果 ＝ 到文本 (进位) ＋ 结果<br /> .如果真结束<br /> 返回 (文本_去左边零 (结果))<br /> <br /> .子程序 文本_大数减法, 文本型, 公开<br /> .参数 a, 文本型<br /> .参数 b, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 借位, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 位差, 整数型<br /> <br /> a ＝ 文本_颠倒 (a, 假)<br /> b ＝ 文本_颠倒 (b, 假)<br /> .如果 (取文本长度 (a) ＜ 取文本长度 (b))<br />     a ＝ a ＋ 取重复文本 (取文本长度 (b) － 取文本长度 (a), “0”)<br /> .否则<br />     b ＝ b ＋ 取重复文本 (取文本长度 (a) － 取文本长度 (b), “0”)<br /> .如果结束<br /> 借位 ＝ 0<br /> 结果 ＝ “”<br /> .计次循环首 (取文本长度 (a), i)<br />     位差 ＝ 到整数 (取文本中间 (a, i, 1)) － 到整数 (取文本中间 (b, i, 1)) － 借位<br />     .如果 (位差 ＜ 0)<br />         位差 ＝ 位差 ＋ 10<br />         借位 ＝ 1<br />     .否则<br />         借位 ＝ 0<br />     .如果结束<br />     结果 ＝ 到文本 (位差) ＋ 结果<br /> .计次循环尾 ()<br /> 返回 (文本_去左边零 (结果))<br /> <br /> .子程序 文本_大数乘法, 文本型, 公开<br /> .参数 a, 文本型<br /> .参数 b, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 临时, 文本型<br /> .局部变量 进位, 整数型<br /> .局部变量 乘积, 整数型<br /> <br /> 结果 ＝ “0”<br /> .计次循环首 (取文本长度 (b), i)<br />     临时 ＝ “”<br />     进位 ＝ 0<br />     .计次循环首 (取文本长度 (a), j)<br />         乘积 ＝ 到整数 (取文本中间 (a, 取文本长度 (a) － j ＋ 1, 1)) × 到整数 (取文本中间 (b, 取文本长度 (b) － i ＋ 1, 1)) ＋ 进位<br />         临时 ＝ 到文本 (乘积 ％ 10) ＋ 临时<br />         进位 ＝ 乘积 ÷ 10<br />     .计次循环尾 ()<br />     .如果真 (进位 ＞ 0)<br />         临时 ＝ 到文本 (进位) ＋ 临时<br />     .如果真结束<br />     临时 ＝ 临时 ＋ 取重复文本 (i － 1, “0”)<br />     结果 ＝ 文本_大数加法 (结果, 临时)<br /> .计次循环尾 ()<br /> 返回 (文本_去左边零 (结果))<br /> <br /> .子程序 文本_去左边零, 文本型, 公开<br /> .参数 输入文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 1<br /> .判断循环首 (i ≤ 取文本长度 (输入文本) 且 取文本中间 (输入文本, i, 1) ＝ “0”)<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> .如果 (i ＞ 取文本长度 (输入文本))<br />     返回 (“0”)<br /> .否则<br />     返回 (取文本右边 (输入文本, 取文本长度 (输入文本) － i ＋ 1))<br /> .如果结束

a1533759138

感谢分享，很给力！~

查过

全都是大佬~

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

刚性兑付

tian89 发表于 2025-7-11 23:35
好像都是很巧合我也在研究这个大数的问题看你代码没少用AI因为我就是问过他好几十遍出来的结果和你的大相径 ...

哈哈蛤大佬 能否分享学习一下 确实问ai了哈哈哈 因为我要read_uint64、int64 但是易语言只支持32位 所以用这种比较笨的办法  大数减法确实逻辑确实有问题 个位数时候没有高位可借位哈哈哈哈

ruanmeizi6

666666666666666666666

ttggnn

感谢分享

kyo9766

学习一下大数计算，感谢分享

一指温柔

感谢分享，很给力！~

year1970

感谢分享