Excel中实现长整数加法和乘法运算的一种公式写法

shaowu459

pgp5866 发表于 2023-10-29 06:25
谢谢楼主分享，要是能再写个除法和减法就完美了，

减法模拟列竖式的方法应该也好做，除法的话感觉有除不尽的情况，有结果小于0的情况等等，比较麻烦

橒♂蝣

谢谢楼主分享，本以为reduce很简单，其实很深奥

shaowu459

橒♂蝣 发表于 2023-10-29 14:39
谢谢楼主分享，本以为reduce很简单，其实很深奥

.reduce本身逻辑确实很简单，循环计算，更新x值。但x是何种结构，如何更新x方法就太多了，非常灵活，我觉得这个函数精髓就在如何使用x。就本题来说，我的只是一种写法，模拟竖式计算，也有很多人有这个其他公式出来。有兴趣也可以动手试试，关键在思路和方法，公式实现起来应该还好。

shaowu459

pgp5866 发表于 2023-10-29 06:25
谢谢楼主分享，要是能再写个除法和减法就完美了，

减法的公式供参考，思路和加法一致，只不过先判断哪个数字大。得到结果后去掉前导0，最后判断负号加不加。除法搞不定。

1. =LET(s,SORTBY(C4:D4,RIGHT(REPT(0,999)&C4:D4,999),-1),t,@REDUCE("",SEQUENCE(MAX(LEN(s))),LAMBDA(x,y,LET(t,SUM(LEFT(RIGHT(0&s,y))*{1,-1})+N(@TAKE(x,-1)),IF(t>=0,VSTACK(t&@x,0),VSTACK(10+t&@x,-1))))),u,REDUCE(t,SEQUENCE(999),LAMBDA(x,y,--LEFT(x,9)&MID(x,10,999))),IF(@s=C4,"","-")&u)

复制代码

pgp5866

shaowu459 发表于 2023-10-29 22:56
减法的公式供参考，思路和加法一致，只不过先判断哪个数字大。得到结果后去掉前导0，最后判断负号加不加。 ...

太感谢了，虽然这实例在实际中不一定用得着，但是给我们的思路却是崭新的，值得我们好好学习和研究，感谢！

shaowu459

计算菲波那切数列的第10000项的数值（回车后我的电脑用时179秒返回计算结果）：

1. =REDUCE({1,1},SEQUENCE(9998),LAMBDA(m,n,LET(t,@REDUCE("",SEQUENCE(1+MAX(LEN(m))),LAMBDA(x,y,LET(s,SUM(--LEFT(RIGHT(0&m,y)),N(TAKE(x,-1))),VSTACK(RIGHT(s)&@x,s>9)))),HSTACK(@DROP(m,,1),--LEFT(t,9)&MID(t,10,2090)))))

复制代码

如果是兴趣测试，可以将9998改成比较小的数字，例如500（返回第502项值，半秒多出结果）：

shaowu459

方法不变，更新一下加法细节，之前是一位一位加，比较慢，现在改成13位13位的加，第10000项目速度提高到12秒左右：

1. =LET(零,REPT(0,13),f,LAMBDA(f,x,o,res,长度,m,IF(o=长度+2,res,LET(t,SUM(--LEFT(RIGHT(零&m,o*13),13)),s,t+x,f(f,LEN(s)>13,o+1,IF(t,RIGHT(零&s,13),--x)&res,长度,m)))),REDUCE({1,1},SEQUENCE(B3),LAMBDA(m,n,LET(长度,INT((MAX(LEN(m))-1)/13)+1,t,f(f,,1,"",长度,m),HSTACK(@DROP(m,,1),--LEFT(t,14)&MID(t,15,2090))))))
   

复制代码

你是那块小饼干

膜拜大佬，感谢分享

shaowu459

你是那块小饼干 发表于 2024-9-26 16:00
膜拜大佬，感谢分享

感谢关注