Суммируя цифры очень большого количества

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

И я хочу сделать это за все свои 100 тыс. Цифр

Но я хочу, чтобы добавить другой поворот на вершине этого

Я хочу, чтобы напечатать результаты после й количества циклов (от циклов я имею в виду один прогон, как в приведенном выше примере, присваивающие J, J1, J2, J3 с 3,1,4,1 будет 1-й цикл), а также конечный результат.

Я бы предпочел простой язык, таких как питон или Haskell

Answer 1

Это будет полная реализация в 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 

Ниже я расскажу об этом позже.

Update @Comments

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

Answer 2

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