Changeset b154b3 in git

Timestamp:

Feb 22, 2008, 3:17:21 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

819c730631b3f8cdcc346354cd8473eb0a23956a

Parents:

9667879f6c3f848cdfbb5c6c0e9a14ea6e130e81

Message:

hannes: factorial -> bigint


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

File:

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

Singular/LIB/resolve.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: resolve.lib,v 1.9 2006-12-08 09:37:33 Singular Exp $";
+version="$Id: resolve.lib,v 1.10 2008-02-22 14:17:21 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -3109 +3109 @@
 //----------------------------------------------------------------------------
    int i,ch;
-   ch=char(basering);
-   int e=int(factorial(b,ch));
+   int e=int(factorial(b));
    ideal C;
    list L=DeltaList(BO);
@@ -3502 +3501 @@
    int i;
    int mon=1;
-   int ch=char(basering);
    for(i=1;i<=size(I);i++)
    {
@@ -3513 +3511 @@
    if((mon)&&(size(I)>3))
    {
-      int e=int(factorial(n,ch))/m;
+      int e=int(factorial(n))/m;
       ideal J=1;
       poly p=I[1];
@@ -3562 +3560 @@
 // Initialization  and sanity checks
 //---------------------------------------------------------------------------
-   int ch=char(basering);
    int i,k,dummy,errtype;
    int ma=size(BO[4]);
@@ -3601 +3598 @@
    }
    if(b>=6){return(0);}              // b is too big
-   int e=int(factorial(b,ch));       // b of Coeff-Ideal
+   int e=int(factorial(b));          // b of Coeff-Ideal
    if(e==0)
    {
-     ERROR( "// characteristic too small for forming b! .");
+     ERROR( "// integer size too small for forming b! .");
    }
    if(b==0)