出个题目:

labrun

这在大一学c语言时练过，我给出一个列出所有符合条件的质数，并求出最小和的awk代码。

1. BEGIN{for(i=1;i<=9;i++){
   
2.                 for(j=0;j<=9;j++){
   
3.                         num=i*10+j;
   
4.                         if((num%2==0)||(num%3==0)||(num%5==0)||(num%7==0))
   
5.                                 continue;
   
6.                         a[k++]=num;
   
7.                 }
   
8.         }
   
9.         for(x=1;x<=9;x++){
   
10.                 for(y=0;y<=9;y++){
    
11.                         for(z=0;z<=9;z++){
    
12.                                 num2=x*100+y*10+z;
    
13.                                 if((num2%2==0)||(num2%3==0)||(num2%5==0)||(num2%7==0))
    
14.                                         continue;
    
15.                                 b[t++]=num2;
    
16.                         }
    
17.                 }
    
18.         }
    
19. 
    
20.         min=2200;
    
21. 
    
22.         for(l=0;l<k-1;l++){
    
23.                 for(m=l+1;m<k;m++){
    
24.                         for(n=0;n<t-1;n++){
    
25.                                 for(p=n+1;p<t;p++){
    
26.                                         result=a[l]a[m]b[n]b[p];
    
27.                                         if(result~/1/&&result~/2/&&result~/3/&&result~/4/&&result~/5/&&result~/6/&&result~/7/&&result~/8/&&result~/9/&&result~/0/){
    
28.                                                 print a[l],a[m],b[n],b[p] ;
    
29.                                                 if(min>a[l]+a[m]+b[n]+b[p]){
    
30.                                                         min=a[l]+a[m]+b[n]+b[p];       
    
31.                                                         ok1=a[l];ok2=a[m];ok3=b[n];ok4=b[p];
    
32.                                                 }
    
33.                                         }
    
34.                                 }
    
35.                         }
    
36.                 }
    
37.         }
    
38. 
    
39.         print "##############\n the min is :"min"="ok1"+"ok2"+"ok3"+"ok4
    
40. }

复制代码

labrun

sorry那个BEGIN{没有被包含在代码里。
运行如下：
$awk -f zs.awk

1. 23 41 589 607
   
2. 23 41 607 859
   
3. 23 47 589 601
   
4. 23 47 601 859
   
5. 23 59 481 607
   
6. 23 59 487 601
   
7. 23 59 607 841
   
8. 23 61 407 589
   
9. 23 61 407 859
   
10. 23 61 409 587
    
11. 23 61 409 857
    
12. 23 61 457 809
    
13. 23 61 487 509
    
14. 23 61 547 809
    
15. 23 67 401 589
    
16. 23 67 401 859
    
17. 23 67 409 851
    
18. 23 67 451 809
    
19. 23 67 481 509
    
20. 23 67 509 841
    
21. 23 67 541 809
    
22. 23 89 451 607
    
23. 23 89 457 601
    
24. 23 89 541 607
    
25. 23 89 547 601
    
26. 29 41 583 607
    
27. 29 41 607 853
    
28. 29 43 587 601
    
29. 29 43 601 857
    
30. 29 43 607 851
    
31. 29 47 583 601
    
32. 29 47 601 853
    
33. 29 53 481 607
    
34. 29 53 487 601
    
35. 29 53 607 841
    
36. 29 61 403 587
    
37. 29 61 403 857
    
38. 29 61 407 583
    
39. 29 61 407 853
    
40. 29 61 457 803
    
41. 29 61 487 503
    
42. 29 61 547 803
    
43. 29 67 401 583
    
44. 29 67 401 853
    
45. 29 67 403 851
    
46. 29 67 451 803
    
47. 29 67 481 503
    
48. 29 67 503 841
    
49. 29 67 541 803
    
50. 29 83 451 607
    
51. 29 83 457 601
    
52. 29 83 541 607
    
53. 29 83 547 601
    
54. 41 53 289 607
    
55. 41 53 607 829
    
56. 41 59 283 607
    
57. 41 59 607 823
    
58. 41 67 209 583
    
59. 41 67 209 853
    
60. 41 67 253 809
    
61. 41 67 283 509
    
62. 41 67 289 503
    
63. 41 67 503 829
    
64. 41 67 509 823
    
65. 41 67 523 809
    
66. 41 67 529 803
    
67. 41 83 529 607
    
68. 41 89 253 607
    
69. 41 89 523 607
    
70. 43 59 281 607
    
71. 43 59 601 827
    
72. 43 59 607 821
    
73. 43 61 209 587
    
74. 43 61 209 857
    
75. 43 61 257 809
    
76. 43 61 509 827
    
77. 43 61 527 809
    
78. 43 67 209 851
    
79. 43 67 251 809
    
80. 43 67 281 509
    
81. 43 67 509 821
    
82. 43 67 521 809
    
83. 43 89 251 607
    
84. 43 89 257 601
    
85. 43 89 521 607
    
86. 43 89 527 601
    
87. 47 53 289 601
    
88. 47 53 601 829
    
89. 47 59 283 601
    
90. 47 59 601 823
    
91. 47 61 209 583
    
92. 47 61 209 853
    
93. 47 61 253 809
    
94. 47 61 283 509
    
95. 47 61 289 503
    
96. 47 61 503 829
    
97. 47 61 509 823
    
98. 47 61 523 809
    
99. 47 61 529 803
    
100. 47 83 529 601
     
101. 47 89 253 601
     
102. 47 89 523 601
     
103. 53 61 209 487
     
104. 53 61 247 809
     
105. 53 61 289 407
     
106. 53 61 407 829
     
107. 53 61 409 827
     
108. 53 67 209 481
     
109. 53 67 209 841
     
110. 53 67 241 809
     
111. 53 67 281 409
     
112. 53 67 289 401
     
113. 53 67 401 829
     
114. 53 67 409 821
     
115. 53 67 421 809
     
116. 53 89 241 607
     
117. 53 89 247 601
     
118. 53 89 421 607
     
119. 59 61 247 803
     
120. 59 61 283 407
     
121. 59 61 403 827
     
122. 59 61 407 823
     
123. 59 67 241 803
     
124. 59 67 281 403
     
125. 59 67 283 401
     
126. 59 67 401 823
     
127. 59 67 403 821
     
128. 59 67 421 803
     
129. 59 83 241 607
     
130. 59 83 247 601
     
131. 59 83 421 607
     
132. 61 83 209 457
     
133. 61 83 209 547
     
134. 61 83 247 509
     
135. 61 83 257 409
     
136. 61 83 407 529
     
137. 61 83 409 527
     
138. 61 89 247 503
     
139. 61 89 253 407
     
140. 61 89 257 403
     
141. 61 89 403 527
     
142. 61 89 407 523
     
143. 67 83 209 451
     
144. 67 83 209 541
     
145. 67 83 241 509
     
146. 67 83 251 409
     
147. 67 83 401 529
     
148. 67 83 409 521
     
149. 67 83 421 509
     
150. 67 89 241 503
     
151. 67 89 251 403
     
152. 67 89 253 401
     
153. 67 89 401 523
     
154. 67 89 403 521
     
155. 67 89 421 503
     
156. ##############
     
157. the min is :810=53+61+209+487

复制代码

admirer

[quote]原帖由 "labrun"][/quote 发表：

好！

bjgirl

[quote]原帖由 "labrun"][/quote 发表：


excellent 收藏,精华!

r2007

难怪搞程序的牛人都是数学出身，这话一点儿也不假。
该是补习的时候了。
哈哈，数据结构和离散居然还躺在那儿，补习ing...
ZZZ...

nkoldbug

good  labrun
虽然质数判断的不够全面
hehe  收藏

Y_

用 'factor' 来判断质数比较全面, 但速度可能会慢一点.

bjgirl

[quote]原帖由 "Y_"]用 'factor' 来判断质数比较全面, 但速度可能会慢一点.[/quote 发表：

极好的方法!

nkoldbug

[quote]原帖由 "bjgirl"]极好的方法![/quote 发表：


hehe
怎么判断呀
教教偶

bjgirl

原帖由 "nkoldbug" 发表：


hehe
怎么判断呀
教教偶

挠头ing...