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

大司南

修改了一下。呵呵

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
    

复制代码

大司南

哈哈，马虎了。。。