将PARI程序转换为C ++

时间:2016-08-08 12:41:58

标签: c++ pari oeis

我在OEIS中找到了sequence of interest,我想在C ++中为我正在编写的编程竞赛解决方案生成相同的序列。

然而,我遇到了一个障碍,了解序列页面中给出的程序是如何工作的。

以下是页面中给出的程序 -

(PARI) test(n)= {m=n; forprime(p=2, 5, while(m%p==0, m=m/p));                                         
return(m==1)} for(n=1, 500, if(test(n), print1(n", ")))
(PARI) a(n)=local(m); if(n<1, 0, n=a(n-1); 
            until(if(m=n, forprime(p=2, 5, while(m%p==0, m/=p)); m==1), n++); n)
(PARI) list(lim)={
lim\=1;
my(v=List(), s, t);
for(i=0, log(lim+.5)\log(5),
    t=5^i;
    for(j=0, log(lim\t+.5)\log(3),
        s=t*3^j;
        while(s <= lim,
            listput(v, s);
            s <<= 1;
        )
    )
);
vecsort(Vec(v))
};

我发现了PARI是什么,但我无法将此程序转换为C ++。任何帮助我在C ++中生成相同序列的建议都会非常感激。

我尝试使用以下代码片段在C ++中生成序列。但是我认为我在网络IDE中进行了一些测试后失去了一些数字。

for(int i = 0; i < 16; i++)
{
    for(int j = 0; j < 15; j++)
    {
        for(int k = 0; k < 12; k++)
        {
            std::cout<<pow(2,i)*pow(3,j)*pow(5,k)<<std::endl;
        }
    }
}

我选择16,15和12作为限制,否则结果值会溢出长变量类型。

1 个答案:

答案 0 :(得分:1)

这里有三个程序,每个程序都有不同的用途。

首先检查数字是否为5平滑。它只是分为2,3和5,直到它不能再这样做,然后测试剩下的是什么。

第二个生成第5个平滑数字。它使用与第一个相同的想法,测试范围内的每个数字。这是非常低效的!

第三个生成所有5个平滑数字,直到给定的界限。

我会假设第三个是你想要的,因为它似乎最适合你的情况。 (这也有助于我成为该计划的作者。)

#include <iostream>
#include <vector>
#include <algorithm>

int main(void);
std::vector<long> smooth(long lim);

int main(void) {
    long lim = 1000;
    std::vector<long> v = smooth(lim);
    std::cout << "5-smooth numbers up to " << lim << ": ";
    for (std::vector<long>::iterator it = v.begin(); it != v.end(); it++) {
        std::cout << *it << ", ";
    }
    std::cout << "\n";
    return 0;
}

std::vector<long> smooth(long lim) {
    std::vector<long> v = {};
    for (long t = 1; t <= lim; t*=5) {
        for (long s = t; s <= lim; s*=3) {
            for (long n = s; n <= lim; n*=2) {
                v.push_back(n);
            }
        }
    }
    std::sort(v.begin(), v.end());
    return v;
}

当然,这不是逐行转换;例如,我没有使用对数,因为精确的对数并不像PARI那样内置于C ++。它非常快,它可以在几分之一秒内找到所有5个平滑数字,最高可达1,844,674,407,370,955,161(在64位机器上最高)。