将一个非常大的数字的数字相加[关闭]

Question

我想对饼图的前 100.000 位数字求和（我有带数字的文本）， 但我想以特定的形式进行。

我想将数字放在矩阵中（或任何方便的占位符），其中包含我预定义的少量单元格，并与这些单元格中的数字重叠。

我的意思是：假设我们有这个数字列表 (31415926535)

假设我们有 4 个单元格 j,j1,j2,j3

在第一次运行 j=3,j1=1,j2=4,j3=1 时，请注意每个单元格都分配了一个列表编号，列表中剩下的数字是 (5926535) 所以我想重叠它们，这样 j=8（因为它的值是 3，现在加了 5），j1=10 (1 + 9) ，j2=6 j3=7

我想为我所有的 10 万位数字都这样做

但我想在此之上添加另一个转折

我想在 x 次循环后打印结果（循环我的意思是像上面的示例中分配 j,j1,j2,j3 和 3,1,4,1 将是第一个循环）以及最终结果。

我更喜欢python或haskell等简单的语言

Answer 1

bins = [0,0,0,0] # four bins
for i,n in itertools.izip(itertools.cycle([0,1,2,3]),my_digits):
    bins[i] += int(n)

我猜...有时只是打印出来

bins = [0,0,0,0] # four bins
num_bins = 4
for i,n in enumerate(my_digits):
    bins[i%num_bins] += int(n)
    if i % 100: print( bins ) # every 100 items print 

Answer 2

这将是 Haskell 中的完整实现

import Data.List.Split (chunksOf)
import Data.List
import Data.Char (digitToInt)

main :: IO ()
main = do digits <- map digitToInt <$> readFile "pifile.txt"
          let summator = foldl1' (zipWith (+)) . chunksOf 4
          print $ summator digits

我将在今天晚些时候更新此内容并提供一些解释。

更新@评论

main = do digits <- map digitToInt <$> readFile "pifile.txt"
              let summator = scanl1' (zipWith (+)) . chunksOf 4
              mapM_ print $ take 100 $ summator digits