原创！使用shell计算从1加到100

xiaobaibbb

回复 53# davidbeckham921

1加到500万
    [root@centos perl]# time perl jia.pl
12500002500000

real    0m6.551s
user    0m0.501s
sys     0m5.961s

davidbeckham921

回复  davidbeckham921

1加到500万
    [root@centos perl]# time perl jia.pl
12500002500000

r ...
xiaobaibbb 发表于 2010-09-02 14:18

    3q！厉害，懂的命令多果然是好啊。学习了。jia.pl的脚本给晒晒呗呵呵！~~

xiaobaibbb

回复 62# davidbeckham921


    哪厉害了，用循环也行，但是有现成的模块哈  

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use List::Util qw[sum];
   
4. print my $t = sum(1..5000000);

复制代码

davidbeckham921

回复  davidbeckham921


    哪厉害了，用循环也行，但是有现成的模块哈
xiaobaibbb 发表于 2010-09-02 14:27

    不会用perl，慢慢学习吧。每天过来学习都感觉很惭愧，好多东西不会。闹心啊！~~

dove-young

用 elisp 试了一下，普通的写法是这样的

1. 
   
2. (defun addto (x)
   
3.   (if (= x 1) x (+ x (addto (- x 1))) )
   
4. )
   
5. 
   
6. (addto 100)
   
7. 5050

复制代码

但是好像不怎么好玩儿呀。

再玩儿好象就这个德性了。。。

1. Debugger entered--Lisp error: (error "Lisp nesting exceeds `max-lisp-eval-depth'")

复制代码

wild_li

路过,,只能看看了

wild_li

[root@test-WILD tmp]# for i in {1..100};do sum=`expr $sum + $i`;done;echo $sum
5050
还是用这种我喜欢

iteeqg

回复 1# chinaboywg

dddddd不过我觉得

echo $(($(seq -s+ 100)))

这个最方便

流浪蚂蚁

回复 1# chinaboywg


    echo $(($(($((1+100))*100))/2))

ylinn

看了各个楼层的帖子，我想起了茴香豆的茴字有五种写法