质因数分解算法问题 取文本近似固定长度

莉繁

本人在写东西的时候，发现我要取文本的一个近似固定长度

比如我有长度为100的文本，我要取出它的一个近似固定的长度，比如25，50，这种，然后分组

和老哥们交流的时候了解到了“质因数分解算法”，所以请大佬们丢个源码或是例子



补充内容 (2024-3-28 21:30):
还有别的什么办法吗

houtian

  

变量名	类 型	静态	数组	备 注
局_数组	整数型		0

分堆 (100, 局_数组)
调试输出 (局_数组)

子程序名	返回值类型	公开	备 注
分堆
参数名	类 型	参考	可空	数组	备 注
参_整数	整数型
参_数组	整数型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
n	整数型		0
m	整数型		0
k	整数型

j ＝ 参_整数
变量循环首 (2, j, 1, i)
判断循环首 (j ％ i ＝ 0)
加入成员 (n, i)
j ＝ j ÷ i
判断循环尾 ()
变量循环尾 ()
如果真 (j ＞ 1)
加入成员 (n, j)
计次循环首 (取数组成员数 (n), i)
k ＝ n [i]
加入成员 (m, k)
计次循环首 (取数组成员数 (n) － i, j)
k ＝ k × n [i ＋ j]
加入成员 (m, k)
计次循环尾 ()
计次循环尾 ()
数组_去重复 (, m)
数组排序 (m, )
如果真 (取数组成员数 (m) ＞ 1)
删除成员 (m, 取数组成员数 (m), )
复制数组 (参_数组, m)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_数组, 整数型, , "0"<br /> <br /> 分堆 (100, 局_数组)<br /> 调试输出 (局_数组)<br /> <br /> .子程序 分堆<br /> .参数 参_整数, 整数型<br /> .参数 参_数组, 整数型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 n, 整数型, , "0"<br /> .局部变量 m, 整数型, , "0"<br /> .局部变量 k, 整数型<br /> <br /> j ＝ 参_整数<br /> .变量循环首 (2, j, 1, i)<br />     .判断循环首 (j ％ i ＝ 0)<br />         加入成员 (n, i)<br />         j ＝ j ÷ i<br />     .判断循环尾 ()<br /> .变量循环尾 ()<br /> .如果真 (j ＞ 1)<br />     加入成员 (n, j)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (n), i)<br />     k ＝ n <i><br />     加入成员 (m, k)<br />     .计次循环首 (取数组成员数 (n) － i, j)<br />         k ＝ k × n [i ＋ j]<br />         加入成员 (m, k)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 数组_去重复 (, m)<br /> 数组排序 (m, )<br /> .如果真 (取数组成员数 (m) ＞ 1)<br />     删除成员 (m, 取数组成员数 (m), )<br /> .如果真结束<br /> 复制数组 (参_数组, m)

试试这样, 输出的是可以分成的数量数组

b0y

直接用试除法  
或者在简单一点 ÷2  ÷3  ÷5  ÷7  看哪个没有余数   就选那个的商

houtian

b0y 发表于 2024-3-28 20:36
直接用试除法  
或者在简单一点 ÷2  ÷3  ÷5  ÷7  看哪个没有余数   就选那个的商 ...

如果长度是113, 老哥怎么处理

莉繁

b0y 发表于 2024-3-28 20:36
直接用试除法  
或者在简单一点 ÷2  ÷3  ÷5  ÷7  看哪个没有余数   就选那个的商 ...

真是个天才

莉繁

houtian 发表于 2024-3-28 21:33
[e=1].版本 2
.支持库 spec

牛