(PARI)
\\注意:代码不生成序列,只检查匹配的PPT条目
genit(面积)={myMax=楼层(平方米(2*面积));i5=myMax;无休止=0;soln=列表();
而(i5>=2,dun=0;j=2.*myVal/i5;k=楼层(j);如果(j>k,dun=1);如果(dun<1,
c=平方(i5^2+k^2);w=楼层(c);如果(c>w,dun=1);如果(dun<1,如果(gcd(k,i5)>1,dun=1));
如果(dun<1,listput(soln,k);listput(soln,i5);listput(soln,w);列表排序(soln);
打印(“soln a,b,c=”,soln[1],“,soln[2],”,soln[3]);邓恩=2;断裂);
i5--;无止境++);如果(i5<=2&&dun<1,打印(“无解决方案”);如果(i5>2&&dun<2,
打印(“达到最大迭代限制”,无止境);打印(无休止);}
(C++)
#包括<iostream>
#包括<fstream
使用命名空间标准;
int main(){ifstream fin1,fin2;
int myValue,myValue2,ptr,fptr,i5,j5;
无符号长列表1[9999]={0};
无符号长列表2[999]={0};
无符号长尾数[31]={0};
ptr=1;
而(ptr<9999)
{fin1>>myValue;fin1.get();列表1[ptr]=myValue;
如果(ptr<999)
{fin2>>myValue2;fin2.get();列表2[ptr]=myValue2
ptr++;}
图1.关闭();图2.关闭();fptr=1;
对于(i5=1;i5<9990;i5++)
{用于(j5=1;j5<999;j5++){
if(列表1[i5]==列表2[j5])
{
fptr++;
如果(fptr>30){break;}
最终[fptr]=列表1[i5];
cout<<最终[fptr]<<“,”;
断裂;
}}如果(fptr>30){break;}}}