实现"abcd*d=dcba"???

xiaojianredhat

use strict;
use warnings;

my $a;
my $b;
my $c;
my $d;


for ($a=0;$a<=9;$a++)
{ for ($b=0;$b<=9;$b++)
{ for ($c=0;$c<=9;$c++)
  { for ($d=0;$d<=9;$d++)
   {
      if(("$a != $b != $c != $d" && ("($a*1000+$b*100+$c*10+$d)*$d" == "$d*1000+$c*100+$b*10+$a")

       { print "$a $b $c $d\n"; }
     }
   }
  }
}
对吗?

deathcult

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my $num;
   
5. 
   
6. foreach $num(1000..9999)
   
7. {
   
8.         $num =~ /(\d){1}(\d){1}(\d){1}(\d){1}/;               
   
9.         if( ($num * $4) == ($4*1000 + $3*100 + $2*10 + $1) )
   
10.         {
    
11.                 print "$num\n";
    
12.         }
    
13. }
    

复制代码

xiaojianredhat

apile

$num = 1234;
@str=split(//,$num);
$reverseNum = join("",reverse(@str));
print "$reveseNum\n";

更簡化..

$str =1234;
$num= join("",reverse((split(//,$str))));
print $num,"\n";

寫錯了..我看錯了...:)
deathcult寫得很好..

xiaojianredhat

1. $num =~ /(\d){1}(\d){1}(\d){1}(\d){1}/;  

复制代码

模式重用时怎么办?
小括号???(应该在模式重用时用)
比如

1. $num =~ /(\d){1}(\W])(\d){1}(\d){1}/;

复制代码

匹配2.25
如果匹配2.25.32怎么办?(在上面代码的基础上)
[/quote]

rimrock

原帖由 deathcult 于 2004-2-9 10:36 发表
[code]
#!/usr/bin/perl

my $num;

foreach $num(1000..9999)
{
        $num =~ /(\d){1}(\d){1}(\d){1}(\d){1}/;               
        if( ($num * $4) == ($4*1000 + $3*100 + $2*10 + $1) )
        {
                print "$num\n" ...

有意思

orangetouch

perl -e 'map{print $_ if(!/(.).*\1/&&$_%10*$_==reverse)}(1000..9999)'

rimrock

原帖由 orangetouch 于 2006-1-21 16:03 发表
perl -e 'map{print $_ if(!/(.).*\1/&&$_%10*$_==reverse)}(1000..9999)'

不对呀

C:\>perl -e "map{print $_ if(!/(.).*\1/&&$_%10*$_==reverse)}(1000..9999)"
1089
C:\>

实际的结果应该是：
C:\>perl pl.pl
1001
1089
1111
1221
1331
1441
1551
1661
1771
1881
1991

C:\>

怒剑狂啸

C:\>perl -e "map{print $_ if(!/(.).*\1/&&$_%10*$_==reverse)}(1000..9999)"
1089

这个结果更严格些，表示a、b、 c、 d分别代表不同的数字，要想一样的话把&&前的匹配部分去掉就可以了。

大司南

修改了一下。呵呵

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my $num;
   
5. 
   
6. foreach $num(1000..9999)
   
7. {      
   
8.         $num =~ /(\d){1}(\d){1}(\d){1}(\d){1}/;
   
9.         $_=reverse($num);
   
10.         if( $_ =~ /$num/ ){
    
11.                print $num ."\n";
    
12.         }
    
13. }
    

复制代码

结果:

1. 
   
2. 1001
   
3. 1111
   
4. 1221
   
5. 1331
   
6. 1441
   
7. 1551
   
8. 1661
   
9. 1771
   
10. 1881
    
11. 1991
    
12. 2002
    
13. 2112
    
14. 2222
    
15. 2332
    
16. 2442
    
17. 2552
    
18. 2662
    
19. 2772
    
20. 2882
    
21. 2992
    
22. 3003
    
23. 3113
    
24. 3223
    
25. 3333
    
26. 3443
    
27. 3553
    
28. 3663
    
29. 3773
    
30. 3883
    
31. 3993
    
32. 4004
    
33. 4114
    
34. 4224
    
35. 4334
    
36. 4444
    
37. 4554
    
38. 4664
    
39. 4774
    
40. 4884
    
41. 4994
    
42. 5005
    
43. 5115
    
44. 5225
    
45. 5335
    
46. 5445
    
47. 5555
    
48. 5665
    
49. 5775
    
50. 5885
    
51. 5995
    
52. 6006
    
53. 6116
    
54. 6226
    
55. 6336
    
56. 6446
    
57. 6556
    
58. 6666
    
59. 6776
    
60. 6886
    
61. 6996
    
62. 7007
    
63. 7117
    
64. 7227
    
65. 7337
    
66. 7447
    
67. 7557
    
68. 7667
    
69. 7777
    
70. 7887
    
71. 7997
    
72. 8008
    
73. 8118
    
74. 8228
    
75. 8338
    
76. 8448
    
77. 8558
    
78. 8668
    
79. 8778
    
80. 8888
    
81. 8998
    
82. 9009
    
83. 9119
    
84. 9229
    
85. 9339
    
86. 9449
    
87. 9559
    
88. 9669
    
89. 9779
    
90. 9889
    
91. 9999
    

复制代码