这个1到999999999的阵列，如何用perl实现？

seablue

1. 
   
2. /* Functions
   
3. * print lines as following, and total value of each line:
   
4. * 1+11+111+1111+11111+111111+1111111+11111111+111111111 =
   
5. * 2+22+222+2222+22222+222222+2222222+22222222+222222222 =
   
6. * 3+33+333+3333+33333+333333+3333333+33333333+333333333 =
   
7. * 4+44+444+4444+44444+444444+4444444+44444444+444444444 =
   
8. * 5+55+555+5555+55555+555555+5555555+55555555+555555555 =
   
9. * 6+66+666+6666+66666+666666+6666666+66666666+666666666 =
   
10. * 7+77+777+7777+77777+777777+7777777+77777777+777777777 =
    
11. * 8+88+888+8888+88888+888888+8888888+88888888+888888888 =
    
12. * 9+99+999+9999+99999+999999+9999999+99999999+999999999 =
    
13. *
    
14. *               Version 0.1.0
    
15. *    Copyright (C) seablue at linuxsir.cn
    
16. *                 2004-05-13
    
17. * gcc version 3.2.2 20030222 (Red Hat Linux 3.2.2-5)
    
18. */
    
19.                                                                                 
    
20. main()
    
21. {double t;
    
22. unsigned long s;
    
23. int i,k;
    
24.   for(i=1;i<10;i++)
    
25.       {for(s=0,t=0,k=0;k<9;k++)
    
26.          {s=i+10*s;
    
27.           t=s+t;
    
28.             if(k==8)printf("%ld = %11.0lf\n",s,t);
    
29.             else
    
30.             printf("%ld+",s);
    
31.          }
    
32.       }
    
33. }
    

复制代码

c的打印效果如下：

1. 
   
2. 1+11+111+1111+11111+111111+1111111+11111111+111111111 =   123456789
   
3. 2+22+222+2222+22222+222222+2222222+22222222+222222222 =   246913578
   
4. 3+33+333+3333+33333+333333+3333333+33333333+333333333 =   370370367
   
5. 4+44+444+4444+44444+444444+4444444+44444444+444444444 =   493827156
   
6. 5+55+555+5555+55555+555555+5555555+55555555+555555555 =   617283945
   
7. 6+66+666+6666+66666+666666+6666666+66666666+666666666 =   740740734
   
8. 7+77+777+7777+77777+777777+7777777+77777777+777777777 =   864197523
   
9. 8+88+888+8888+88888+888888+8888888+88888888+888888888 =   987654312
   
10. 9+99+999+9999+99999+999999+9999999+99999999+999999999 =  1111111101
    

复制代码

libinary

来个简单的(加点投机取巧，呵呵)

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. $s = "1+11+111+1111+11111+111111+1111111+11111111+111111111";
   
5. print "$s = ".eval($s)."\n";
   
6. foreach $c (2..9){
   
7.   $s =~ s/\d/$c/g;
   
8.   print "$s = ".eval($s)."\n";
   
9. }
   

复制代码

seablue

:thank
这么简洁？！！！
如果代码里面不允许出现：1+11+...+111111111呢？
:p

libinary

那就吧
$s = "1+11+111+1111+11111+111111+1111111+11111111+111111111";
换成：

1. 
   
2. $s = "1";
   
3. for($a = "11"; $a ne "1111111111"; $a .= "1"){
   
4.   $s .= "+$a";
   
5. }

复制代码

或者：

1. 
   
2. $s = "1+2+3+4+5+6+7+8+9";
   
3. $s =~ s/(\d)/1x$1/ge;

复制代码

呵呵，还有很多方法。

libinary

1. 
   
2. foreach(1..9){
   
3.   $s .= 1x$_."+";
   
4. }
   
5. chop $s;
   

复制代码

1. 
   
2. foreach(0..8){
   
3.   $a[$_] = 1x($_+1);
   
4. }
   
5. $s = join "+", @a;
   

复制代码

seablue

:p
如果要求总数的值右边对齐呢？
:thank了

BBDD

perl也有printf，用法和c几乎是一样的。

seablue

太谢谢BBDD了；改造一下发现 perl is very coooooool！

1. 
   
2. #!/usr/bin/perl -w
   
3.                                                                                 
   
4. $s = "1+2+3+4+5+6+7+8+9";
   
5. $s =~ s/(\d)/1x$1/ge;
   
6. 
   
7. printf ("$s = %11.0f\n",eval($s));
   
8. foreach $c ((2..9)){
   
9.   $s =~ s/\d/$c/g;
   
10.   printf ("$s = %11.0f\n",eval($s));
    
11. }
    

复制代码

输出结果和C的一模一样：

1. 
   
2. [linuxer@mydesktop c]$ perl 1-9.pl
   
3. 1+11+111+1111+11111+111111+1111111+11111111+111111111 =   123456789
   
4. 2+22+222+2222+22222+222222+2222222+22222222+222222222 =   246913578
   
5. 3+33+333+3333+33333+333333+3333333+33333333+333333333 =   370370367
   
6. 4+44+444+4444+44444+444444+4444444+44444444+444444444 =   493827156
   
7. 5+55+555+5555+55555+555555+5555555+55555555+555555555 =   617283945
   
8. 6+66+666+6666+66666+666666+6666666+66666666+666666666 =   740740734
   
9. 7+77+777+7777+77777+777777+7777777+77777777+777777777 =   864197523
   
10. 8+88+888+8888+88888+888888+8888888+88888888+888888888 =   987654312
    
11. 9+99+999+9999+99999+999999+9999999+99999999+999999999 =  1111111101
    

复制代码

小丑奇兵

哇塞，原来perl确实是强大耶。
看来得好好学学了！