Changeset 6676a2 in git

Timestamp:

Sep 21, 2006, 6:00:10 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

d969cbd3cb8edfb0cbcbe677d8a75c40e79f4256

Parents:

b96d717a1574409f7b7af33bec521d3c3a10741f

Message:

*hannes: gcd for bigint


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

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.408 2006-08-10 12:51:38 Singular Exp $ */
+/* $Id: iparith.cc,v 1.409 2006-09-21 16:00:10 Singular Exp $ */
 
 /*
@@ -1941 +1941 @@
   res->rtyp=INT_CMD;
   res->data=(char *)p0;
+  return FALSE;
+}
+static BOOLEAN jjGCD_BI(leftv res, leftv u, leftv v)
+{
+  number a=(number) u->Data();
+  number b=(number) v->Data();
+  if (nlIsZero(a))
+  {
+    if (nlIsZero(b)) res->data=(char *)nlInit(1);
+    else             res->data=(char *)nlCopy(b);
+  }
+  else
+  {
+    if (nlIsZero(b))  res->data=(char *)nlCopy(a);
+    else res->data=(char *)nlGcd(a, b, NULL);
+  }
   return FALSE;
 }
@@ -3014 +3030 @@
 ,{jjGCD_I,     GCD_CMD,        INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
 ,{jjGCD_N,     GCD_CMD,        NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
+,{jjGCD_BI,    GCD_CMD,        BIGINT_CMD,     BIGINT_CMD, BIGINT_CMD ALLOW_PLURAL}
 #if defined(HAVE_FACTORY) && defined(HAVE_LIBFAC_P)
 ,{jjGCD_P,     GCD_CMD,        POLY_CMD,       POLY_CMD,   POLY_CMD NO_PLURAL}