perl模块_List::Util
1加2加3加4 … 加到100,试了一下还是perl最快
需要用到perl的List::Util模块.
- [root@centos perl]# more plus.pl
- #!/usr/bin/perl -w
- use strict;
- use List::Util qw[sum];
- my $t = sum(1..100);
- print "$t\n";
- [root@centos perl]# perl plus.pl
- 5050
shell取巧的方法也很简单,利用seq与sed和bc
seq生成数字,sed将空格替换为加号,通过管道传递给bc进行加法运算.
- [root@centos perl]# seq -s " " 100|sed 's/ /+/g'|bc
- 5050