1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92
|
/* parifact.cc: integer factorization using libpari, interface via strings */
//////////////////////////////////////////////////////////////////////////
//
// Copyright 1990-2012 John Cremona
//
// This file is part of the eclib package.
//
// eclib is free software; you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by the
// Free Software Foundation; either version 2 of the License, or (at your
// option) any later version.
//
// eclib is distributed in the hope that it will be useful, but WITHOUT
// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
// FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
// for more details.
//
// You should have received a copy of the GNU General Public License
// along with eclib; if not, write to the Free Software Foundation,
// Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
//
//////////////////////////////////////////////////////////////////////////
#include <eclib/parifact.h>
#include <eclib/interface.h> // for getenv_with_default
#include <pari/pari.h>
//#define DEBUG_GPFACT
#include <iostream>
string
factor(const string n)
{
if (!avma) {
long pari_size = strtol(getenv_with_default("PARI_SIZE", "4000000").c_str(), NULL, 0);
if (pari_size==0) // e.g. syntax error in the environment variable PARI_SIZE
pari_size = 4000000;
#ifdef DEBUG_GPFACT
std::cout<<"calling pari_init with pari_size = "<<pari_size<<endl;
#endif
// the first parameter is the maximum stack size in bytes
// the second parameter is the maximum precomputed prime
pari_init(pari_size, 1000000);
}
#ifdef DEBUG_GPFACT
std::cout<<"factor called with "<<n<<endl;
#endif
pari_sp av=avma; // store pari stack pointer
GEN x = strtoi(n.c_str());
setsigne(x,1);
x = gel(Z_factor(x),1);
settyp(x,t_VEC);
string ans(GENtostr(x));
#ifdef DEBUG_GPFACT
std::cout<<"factor returns "<<ans<<endl;
#endif
avma=av; // restore pari stackpointer
return ans;
}
int
is_prime(const string p)
{
if (!avma) {
long pari_size = strtol(getenv_with_default("PARI_SIZE", "1000000000").c_str(), NULL, 0);
#ifdef DEBUG_GPFACT
std::cout<<"calling pari_init with pari_size = "<<pari_size<<endl;
#endif
if (pari_size==0) // e.g. syntax error in the environment variable PARI_SIZE
pari_size = 1000000000;
// the first parameter is the maximum stack size in bytes
// the second parameter is the maximum precomputed prime
pari_init(pari_size, 1000000);
}
pari_sp av=avma; // store pari stack pointer
#ifdef DEBUG_GPFACT
std::cout<<"is_prime called with "<<p<<"..."<<flush;
#endif
int ans = (isprime((GEN)strtoi(p.c_str()))==1);
#ifdef DEBUG_GPFACT
std::cout<<"and returns "<<ans<<std::endl;
#endif
avma=av; // restore pari stackpointer
return ans;
}
|