Как я могу быстро сложить все числа в файле?

134

У меня есть файл, который содержит несколько тысяч номеров, каждый на своей собственной строке:

34
42
11
6
2
99
...

Я хочу написать script, который будет печатать сумму всех чисел в файле. У меня есть решение, но оно не очень эффективно. (Требуется несколько минут для запуска.) Я ищу более эффективное решение. Любые предложения?

  • 5
    Каким было ваше медленное решение? Может быть, мы можем помочь вам понять, что было медленным в этом. :)
  • 3
    @ Brian D Foy, я слишком смущен, чтобы опубликовать это. Я знаю, почему это медленно. Это потому, что я вызываю «cat filename | head -n 1», чтобы получить верхнее число, добавляю его к промежуточному итогу и вызываю «cat filename | tail ...», чтобы удалить верхнюю строку для следующей итерации ... I есть много, чтобы узнать о программировании !!!
Показать ещё 4 комментария
Теги:
awk

25 ответов

83
Лучший ответ

Для однострочного Perl это в основном то же самое, что решение awk в Ayman Hourieh отвечает:

 % perl -nle '$sum += $_ } END { print $sum'

Если вам интересно, что делают однострочные Perl, вы можете их отделить:

 %  perl -MO=Deparse -nle '$sum += $_ } END { print $sum'

Результат - более подробная версия программы, в форме, которую никто не мог бы написать самостоятельно:

BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    $sum += $_;
}
sub END {
    print $sum;
}
-e syntax OK

Просто для хихиканья, я попробовал это с файлом, содержащим 1 000 000 номеров (в диапазоне 0-9 999). На моем Mac Pro он возвращается практически мгновенно. Это слишком плохо, потому что я надеялся, что использование mmap будет очень быстрым, но в то же время:

use 5.010;
use File::Map qw(map_file);

map_file my $map, $ARGV[0];

$sum += $1 while $map =~ m/(\d+)/g;

say $sum;
  • 4
    Вау, это показывает глубокое понимание того, какой код -nle фактически оборачивает строку, которую вы ему даете. Сначала я думал, что вы не должны публиковать сообщения в состоянии алкогольного опьянения, но потом я заметил, кто вы, и вспомнил некоторые другие ваши ответы на Perl :-)
  • 0
    -n и -p просто помещают символы в аргументе -e, чтобы вы могли использовать эти символы для чего угодно. У нас много однострочников, которые делают интересные вещи с этим в Эффективном программировании на Perl (которое скоро появится на полках).
Показать ещё 4 комментария
284

Вы можете использовать awk:

awk '{ sum += $1 } END { print sum }' file
  • 1
    Превышена программа: максимальное количество размеров полей: 32767
  • 19
    Простой и не требует Perl. Это лучший ответ.
Показать ещё 2 комментария
66

Просто для удовольствия, давайте сравним его:

$ for ((i=0; i<1000000; i++)) ; do echo $RANDOM; done > random_numbers

$ time perl -nle '$sum += $_ } END { print $sum' random_numbers
16379866392

real    0m0.226s
user    0m0.219s
sys     0m0.002s

$ time awk '{ sum += $1 } END { print sum }' random_numbers
16379866392

real    0m0.311s
user    0m0.304s
sys     0m0.005s

$ time { { tr "\n" + < random_numbers ; echo 0; } | bc; }
16379866392

real    0m0.445s
user    0m0.438s
sys     0m0.024s

$ time { s=0;while read l; do s=$((s+$l));done<random_numbers;echo $s; }
16379866392

real    0m9.309s
user    0m8.404s
sys     0m0.887s

$ time { s=0;while read l; do ((s+=l));done<random_numbers;echo $s; }
16379866392

real    0m7.191s
user    0m6.402s
sys     0m0.776s

$ time { sed ':a;N;s/\n/+/;ta' random_numbers|bc; }
^C

real    4m53.413s
user    4m52.584s
sys 0m0.052s

Я прервал седельный ход через 5 минут

  • 14
    +1: для того, чтобы придумать кучу решений и сравнить их.
  • 0
    time cat random_numbers | paste -sd + | bc -l real 0m0.317s пользователь 0m0.310s sys 0m0.013s
Показать ещё 2 комментария
62

Ни одно из решений до сих пор не использует paste. Здесь один:

paste -sd+ filename | bc

В качестве примера вычислим Σn, где 1 <= n <= 100000:

$ seq 100000 | paste -sd+ | bc -l
5000050000

(Для любознательных seq n будет печатать последовательность чисел от 1 до n с учетом положительного числа n.)

  • 1
    Очень хорошо! И легко запомнить
  • 2
    очень Unix стиль решения =)
Показать ещё 1 комментарий
13

Это работает:

{ tr '\n' +; echo 0; } < file.txt | bc
  • 0
    в чем причина добавления echo 0 после tr ?
  • 1
    Из tr вас заканчивается + : 1+2+3+4+ Это было бы синтаксической ошибкой для bc . Так эхо 0 чтобы исправить синтаксис: 1+2+3+4+0
9

Другой вариант - использовать jq:

$ seq 10|jq -s add
55

-s (--slurp) считывает входные строки в массив.

7

Это прямая Bash:

sum=0
while read -r line
do
    (( sum += line ))
done < file
echo $sum
  • 2
    это будет работать до тех пор, пока нет десятичных
6

Здесь еще один однострочный

( echo 0 ; sed 's/$/ +/' foo ; echo p ) | dc

Это предполагает, что числа являются целыми числами. Если вам нужны десятичные знаки, попробуйте

( echo 0 2k ; sed 's/$/ +/' foo ; echo p ) | dc

Отрегулируйте 2 на количество требуемых десятичных знаков.

3

Вот решение, использующее python с выражением генератора. Протестировано с миллионом номеров на моем старом грубом ноутбуке.

time python -c "import sys; print sum((float(l) for l in sys.stdin))" < file

real    0m0.619s
user    0m0.512s
sys     0m0.028s
  • 3
    Простое понимание списка с именованной функцией - хороший пример использования map() : map(float, sys.stdin)
3

Просто для удовольствия, давайте сделаем это с PDL, математическим движком в Perl-массиве!

perl -MPDL -E 'say rcols(shift)->sum' datafile

rcols считывает столбцы в матрицу (в этом случае 1D) и sum (сюрприз) суммирует весь элемент матрицы.

  • 0
    Как исправить Не удается найти файл PDL.pm в @INC (может потребоваться установить модуль PDL) (@INC содержит: / etc / perl /usr/local/lib/x86_64-linux-gnu/perl/5.22.1? )) в шутку конечно =)
  • 0
    Сначала вы должны установить PDL, это не собственный модуль Perl.
3
cat nums | perl -ne '$sum += $_ } { print $sum'

(так же, как ответ brian d foy, без "END" )

2

Я предпочитаю использовать GNU datamash для таких задач, потому что он более краткий и четкий, чем perl или awk. Например

datamash sum 1 < myfile

где 1 обозначает первый столбец данных.

  • 0
    Это не является стандартным компонентом, так как я не вижу его в моей установке Ubuntu. Хотелось бы увидеть его в тестах, хотя.
2

Я предпочитаю использовать R для этого:

$ R -e 'sum(scan("filename"))'
2
sed ':a;N;s/\n/+/;ta' file|bc
1

Более краткий:

# Ruby
ruby -e 'puts open("random_numbers").map(&:to_i).reduce(:+)'

# Python
python -c 'print(sum(int(l) for l in open("random_numbers")))'
1

С Ruby:

ruby -e "File.read('file.txt').split.inject(0){|mem, obj| mem += obj.to_f}"
  • 0
    Другой вариант (когда ввод из STDIN) - это ruby -e'p readlines.map(&:to_f).reduce(:+)' .
1
$ perl -MList::Util=sum -le 'print sum <>' nums.txt
1

Другое для удовольствия

sum=0;for i in $(cat file);do sum=$((sum+$i));done;echo $sum

или только bash

s=0;while read l; do s=$((s+$l));done<file;echo $s

Но решение awk, вероятно, лучше всего, поскольку оно является самым компактным.

1

Я не знаю, можете ли вы получить намного больше, чем это, учитывая, что вам нужно прочитать весь файл.

$sum = 0;
while(<>){
   $sum += $_;
}
print $sum;
  • 0
    что значит $ _?
  • 1
    Очень читабельно. Для перл. Но да, это должно быть что-то подобное ...
Показать ещё 3 комментария
0

Perl 6

say sum lines
~$ perl6 -e '.say for 0..1000000' > test.in

~$ perl6 -e 'say sum lines' < test.in
500000500000
0

Вы можете сделать это с помощью утилиты командной строки Alacon для Alasql.

Он работает с Node.js, поэтому вам нужно установить Node.js, а затем Alasql:

Для вычисления суммы из TXT файла вы можете использовать следующую команду:

> node alacon "SELECT VALUE SUM([0]) FROM TXT('mydata.txt')"
0

C всегда выигрывает скорость:

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char **argv) {
    ssize_t read;
    char *line = NULL;
    size_t len = 0;
    double sum = 0.0;

    while (read = getline(&line, &len, stdin) != -1) {
        sum += atof(line);
    }

    printf("%f", sum);
    return 0;
}

Сроки для номеров 1M (тот же самый механизм/вход, что и мой ответ python):

$ gcc sum.c -o sum && time ./sum < numbers 
5003371677.000000
real    0m0.188s
user    0m0.180s
sys     0m0.000s
  • 2
    Ты не понял
  • 1
    Лучший ответ! Лучшая скорость)
0

Здесь другое:

open(FIL, "a.txt");

my $sum = 0;
foreach( <FIL> ) {chomp; $sum += $_;}

close(FIL);

print "Sum = $sum\n";
0

Просто быть смешным:

cat f | tr "\n" "+" | perl -pne chop | R --vanilla --slave
  • 0
    В конце концов, этот файл умер с ошибкой: оценка вложена слишком глубоко: бесконечная рекурсия / параметры (выражения =)? " для моих тестов. Я бы подумал, что R может сделать все это сам.
  • 0
    Хаха, хорошее решение.
-2

Я не тестировал это, но он должен работать:

cat f | tr "\n" "+" | sed 's/+$/\n/' | bc

Возможно, вам придется добавить "\n" в строку перед bc (например, через echo), если bc не обрабатывает EOF и EOL...

  • 2
    Не работает bc выдает синтаксическую ошибку из-за завершающего «+» и отсутствия символа новой строки в конце. Это сработает и исключит бесполезное использование cat : { tr "\n" "+" | sed 's/+$/\n/'| bc; } < numbers2.txt или <numbers2.txt tr "\n" "+" | sed 's/+$/\n/'| bc
  • 0
    tr "\n" "+" <file | sed 's/+$/\n/' | bc

Ещё вопросы

Сообщество Overcoder
Наверх
Меню