我正在寻找一个命令，它将接受(作为输入)多行文本，每行包含一个整数，并输出这些整数的和。
作为一点背景知识，我有一个日志文件，其中包括计时测量。通过grepping的相关行和一点sed重新格式化，我可以列出该文件中的所有时间。我想算出总数。我可以将这个中间输出输出到任何命令，以便进行最终求和。我过去一直使用expr，但除非它在RPN模式下运行，否则我不认为它会处理这个问题(即使这样也会很棘手)。
我怎样才能得到整数的和?
当前回答
下面是一个漂亮而干净的Raku(以前称为Perl 6)一行程序:
say [+] slurp.lines
我们可以这样使用它:
% seq 10 | raku -e "say [+] slurp.lines"
55
它是这样工作的:
不带任何参数的Slurp默认从标准输入读取;它返回一个字符串。在字符串上调用lines方法将返回字符串的行列表。
+周围的括号将+转换为一个约简元操作符，将列表缩减为一个值:列表中值的和。Say然后用换行符将其打印到标准输出。
需要注意的一点是，我们从未显式地将行转换为数字——raku足够聪明，可以为我们做到这一点。然而，这意味着我们的代码在输入绝对不是数字时中断:
% echo "1\n2\nnot a number" | raku -e "say [+] slurp.lines"
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏not a number' (indicated by ⏏)
in block <unit> at -e line 1
其他回答
纯粹而简短的敲打。
f=$(cat numbers.txt)
echo $(( ${f//$'\n'/+} ))
《球拍》中的一句俏皮话:
racket -e '(define (g) (define i (read)) (if (eof-object? i) empty (cons i (g)))) (foldr + 0 (g))' < numlist.txt
我的15美分:
$ cat file.txt | xargs | sed -e 's/\ /+/g' | bc
例子:
$ cat text
1
2
3
3
4
5
6
78
9
0
1
2
3
4
576
7
4444
$ cat text | xargs | sed -e 's/\ /+/g' | bc
5148
我知道这是一个老问题，但我很喜欢这个解决方案，愿意与大家分享。
% cat > numbers.txt
1
2
3
4
5
^D
% cat numbers.txt | perl -lpe '$c+=$_}{$_=$c'
15
如果有兴趣，我将解释它是如何工作的。
我对现有的答案做了一个快速的基准测试
只使用标准工具(不好意思像lua或rocket)， 都是真正的俏皮话， 能够添加大量的数字(1亿)，和 速度很快(我忽略了那些超过一分钟的)。
我总是把数字从1亿加到1亿，这在我的机器上可以在一分钟内完成几个解决方案。
以下是调查结果:
Python
:; seq 100000000 | python -c 'import sys; print sum(map(int, sys.stdin))'
5000000050000000
# 30s
:; seq 100000000 | python -c 'import sys; print sum(int(s) for s in sys.stdin)'
5000000050000000
# 38s
:; seq 100000000 | python3 -c 'import sys; print(sum(int(s) for s in sys.stdin))'
5000000050000000
# 27s
:; seq 100000000 | python3 -c 'import sys; print(sum(map(int, sys.stdin)))'
5000000050000000
# 22s
:; seq 100000000 | pypy -c 'import sys; print(sum(map(int, sys.stdin)))'
5000000050000000
# 11s
:; seq 100000000 | pypy -c 'import sys; print(sum(int(s) for s in sys.stdin))'
5000000050000000
# 11s
Awk
:; seq 100000000 | awk '{s+=$1} END {print s}'
5000000050000000
# 22s
膏& Bc
我的机器内存不足了。它适用于一半大小的输入(5000万个数字):
:; seq 50000000 | paste -s -d+ - | bc
1250000025000000
# 17s
:; seq 50000001 100000000 | paste -s -d+ - | bc
3750000025000000
# 18s
所以我猜1亿个数字大约需要35秒。
Perl
:; seq 100000000 | perl -lne '$x += $_; END { print $x; }'
5000000050000000
# 15s
:; seq 100000000 | perl -e 'map {$x += $_} <> and print $x'
5000000050000000
# 48s
Ruby
:; seq 100000000 | ruby -e "puts ARGF.map(&:to_i).inject(&:+)"
5000000050000000
# 30s
C
为了比较起见，我编译了C版本并进行了测试，只是为了了解基于工具的解决方案有多慢。
#include <stdio.h>
int main(int argc, char** argv) {
long sum = 0;
long i = 0;
while(scanf("%ld", &i) == 1) {
sum = sum + i;
}
printf("%ld\n", sum);
return 0;
}
:; seq 100000000 | ./a.out
5000000050000000
# 8s
结论
C当然是用8秒最快的，但Pypy解决方案只增加了很少的开销，约为11秒的30%。但是，公平地说，Pypy并不是完全标准的。大多数人只安装了CPython，它非常慢(22秒)，和流行的Awk解决方案一样快。
基于标准工具的最快解决方案是Perl(15秒)。
