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
近期评论