标题: 【原创】快速输出任意多的互质（素）的勾股数 [打印本页]
作者: plp626 时间: 2009-10-15 14:48 标题: 【原创】快速输出任意多的互质（素）的勾股数
下面代码双击运行
@echo off&if not %1.==. call%*&exit/b:: Code By plp626
title 输出任意多的互质（素）的勾股数&echo 稍等...
set MAX=30 &rem ::1000的开平方为31.6，这里设定MAX为30，就已经遍历1000以内的勾股质数
set "_isprime=set #r=+&for /l %%a in (1 1 6)do if ^!#r^! neq 0 (set/a #r=#1%%#2,#1=#2,#2=#r) else set ans=!#1!"
for /f "delims=" %%a in ('%~s0 :rtnum^|sort')do echo.%%a
pause&exit/b
:rtnum
setlocal enabledelayedexpansion&set "s= "
for /l %%n in (1 1 %MAX%)do (set/a tp=%%n+1
for /l %%m in (!tp! 2 %MAX%)do (set #1=%%m&set #2=%%n&%_isprime%
if !ans! equ 1 (set/a mm=%%m*%%m,nn=%%n*%%n,a=mm-nn,b=2*%%m*%%n,c=mm+nn
set a=%s%!a!&set b=%s%!b!&set c=%s%!c!
if !a! lss !b! (echo !a:~-7! !b:~-7! !c:~-7!) else echo !b:~-7! !a:~-7! !c:~-7!
)))
[ Last edited by plp626 on 2009-10-15 at 15:02 ]title 输出任意多的互质（素）的勾股数&echo 稍等...
set MAX=30 &rem ::1000的开平方为31.6，这里设定MAX为30，就已经遍历1000以内的勾股质数
set "_isprime=set #r=+&for /l %%a in (1 1 6)do if ^!#r^! neq 0 (set/a #r=#1%%#2,#1=#2,#2=#r) else set ans=!#1!"
for /f "delims=" %%a in ('%~s0 :rtnum^|sort')do echo.%%a
pause&exit/b
:rtnum
setlocal enabledelayedexpansion&set "s= "
for /l %%n in (1 1 %MAX%)do (set/a tp=%%n+1
for /l %%m in (!tp! 2 %MAX%)do (set #1=%%m&set #2=%%n&%_isprime%
if !ans! equ 1 (set/a mm=%%m*%%m,nn=%%n*%%n,a=mm-nn,b=2*%%m*%%n,c=mm+nn
set a=%s%!a!&set b=%s%!b!&set c=%s%!c!
if !a! lss !b! (echo !a:~-7! !b:~-7! !c:~-7!) else echo !b:~-7! !a:~-7! !c:~-7!
)))
作者: plp626 时间: 2009-10-15 14:51
运行结果：
3 4 5
5 12 13
7 24 25
8 15 17
9 40 41
11 60 61
12 35 37
13 84 85
15 112 113
16 63 65
17 144 145
19 180 181
20 21 29
20 99 101
21 220 221
23 264 265
24 143 145
25 312 313
27 364 365
28 45 53
28 195 197
29 420 421
31 480 481
32 255 257
33 56 65
33 544 545
35 612 613
36 77 85
36 323 325
37 684 685
39 80 89
39 760 761
40 399 401
41 840 841
43 924 925
44 117 125
44 483 485
45 1012 1013
47 1104 1105
48 55 73
48 575 577
49 1200 1201
51 140 149
51 1300 1301
52 165 173
52 675 677
53 1404 1405
55 1512 1513
56 783 785
57 176 185
57 1624 1625
59 1740 1741
60 91 109
60 221 229
60 899 901
65 72 97
68 285 293
69 260 269
75 308 317
76 357 365
84 187 205
84 437 445
85 132 157
87 416 425
88 105 137
92 525 533
93 476 485
95 168 193
96 247 265
100 621 629
104 153 185
105 208 233
105 608 617
108 725 733
111 680 689
115 252 277
116 837 845
119 120 169
120 209 241
120 391 409
123 836 845
129 920 929
132 475 493
133 156 205
135 352 377
136 273 305
140 171 221
141 1100 1109
145 408 433
147 1196 1205
152 345 377
155 468 493
156 667 685
159 1400 1409
160 231 281
161 240 289
165 532 557
165 1508 1517
168 425 457
168 775 793
175 288 337
180 299 349
184 513 545
185 672 697
189 340 389
195 748 773
200 609 641
203 396 445
204 253 325
205 828 853
207 224 305
215 912 937
216 713 745
217 456 505
220 459 509
225 272 353
228 325 397
231 520 569
232 825 857
235 1092 1117
240 551 601
245 1188 1213
252 275 373
255 1288 1313
259 660 709
260 651 701
261 380 461
265 1392 1417
273 736 785
276 493 565
279 440 521
280 351 449
280 759 809
287 816 865
297 304 425
300 589 661
301 900 949
308 435 533
315 572 653
315 988 1037
319 360 481
329 1080 1129
333 644 725
336 377 505
336 527 625
341 420 541
348 805 877
357 1276 1325
364 627 725
368 465 593
369 800 881
371 1380 1429
385 552 673
387 884 965
396 403 565
400 561 689
407 624 745
420 851 949
423 1064 1145
429 460 629
429 700 821
432 665 793
441 1160 1241
451 780 901
455 528 697
464 777 905
468 595 757
473 864 985
481 600 769
495 952 1073
504 703 865
533 756 925
539 1140 1261
540 629 829
555 572 797
559 840 1009
580 741 941
585 928 1097
611 1020 1189
615 728 953
616 663 905
645 812 1037
660 779 1021
696 697 985
731 780 1069
作者: 523066680 时间: 2009-10-15 15:12
你丫这么猛，一晚上不见，干出这种事情，没说的。顶帖++分+跟进
还是不加分了，在我还没看懂之前，不乱加分。