|
（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；}}}
| 