Changeset d6e849 in git for Singular/LIB/homolog.lib

Timestamp:

Feb 22, 2008, 11:25:06 AM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

8078c8a05a777673a09af83fb19f5f3e9c1f24ff

Parents:

63e7d6c38be55bb8005c76c07ef7b771f43db0ee

Message:

hannes: binomial->bigint


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

File:

• Singular/LIB/homolog.lib (modified) (2 diffs)

Singular/LIB/homolog.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: homolog.lib,v 1.23 2007-06-06 12:39:51 Singular Exp $";
+version="$Id: homolog.lib,v 1.24 2008-02-22 10:25:06 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -1655 +1655 @@
 static proc binom_int(int n, int p)
 {
-  string s = binomial(n,p);
-  if (size(s) > 9) { return(-1); } // result too large for integer
-  execute("int a ="+s);
+  bigint s = binomial(n,p);
+  int a=int(s);
+  if ((s!=0)&&(a==0)) { return(-1); }
   return(a);
 }