Changeset 2ae57f in git

Timestamp:

Jun 27, 2011, 2:49:19 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

4986481fc1e216c927221c4ebffb8cf0cdbe2a77

Parents:

f0767093994fab690dbf3086af5fafdae097638d

Message:

do not use crypto.lib

git-svn-id: file:///usr/local/Singular/svn/trunk@14307 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/primdecint.lib (modified) (6 diffs)

Singular/LIB/primdecint.lib

@@ -25 +25 @@
 ";
 
-LIB "crypto.lib";
+LIB "primdec.lib";
 
 ////////////////////////////////////////////////////////////////////////////////
@@ -407 +407 @@
       number q=imap(R,q);
       //=== computes the primes occuring in a generator of I intersect Z
-      list L=PollardRho(q,5000,1);
+      //list L=PollardRho(q,5000,1);
+      list L=primefactors(q)[1];
       for(i=1;i<=size(L);i++)
       {
@@ -545 +546 @@
       number q=imap(R,q);
       //=== computes the primes occuring in a generator of I intersect Z
-      list L=PollardRho(q,5000,1);
+      //list L=PollardRho(q,5000,1);
+      list L=primefactors(q)[1];
       for(i=1;i<=size(L);i++)
       {
@@ -636 +638 @@
       number q=imap(R,q);
       //=== computes the primes occuring in a generator of I intersect Z
-      list L=PollardRho(q,5000,1);
+      //list L=PollardRho(q,5000,1);
+      list L=primefactors(q)[1];
       for(i=1;i<=size(L);i++)
       {
@@ -743 +746 @@
       number s;
       //=== computes the primes occuring in a generator of I intersect Z
-      list L=PollardRho(q,5000,1);
+      //list L=PollardRho(q,5000,1);
+      list L=primefactors(q)[1];
       list Le;
       for(i=1;i<=size(L);i++)
@@ -972 +976 @@
    ring Rhelp=0,x,dp;
    number h=imap(R,h);
-   list L=PollardRho(h,5000,1);
+   //list L=PollardRho(h,5000,1);
+   list L=primefactors(h)[1];
    for(i=1;i<=size(L);i++){L[i]=int(L[i]);}
    setring R;