Changeset 6676a2 in git


Ignore:
Timestamp:
Sep 21, 2006, 6:00:10 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    rb96d71 r6676a2  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.408 2006-08-10 12:51:38 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.409 2006-09-21 16:00:10 Singular Exp $ */
    55
    66/*
     
    19411941  res->rtyp=INT_CMD;
    19421942  res->data=(char *)p0;
     1943  return FALSE;
     1944}
     1945static BOOLEAN jjGCD_BI(leftv res, leftv u, leftv v)
     1946{
     1947  number a=(number) u->Data();
     1948  number b=(number) v->Data();
     1949  if (nlIsZero(a))
     1950  {
     1951    if (nlIsZero(b)) res->data=(char *)nlInit(1);
     1952    else             res->data=(char *)nlCopy(b);
     1953  }
     1954  else
     1955  {
     1956    if (nlIsZero(b))  res->data=(char *)nlCopy(a);
     1957    else res->data=(char *)nlGcd(a, b, NULL);
     1958  }
    19431959  return FALSE;
    19441960}
     
    30143030,{jjGCD_I,     GCD_CMD,        INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
    30153031,{jjGCD_N,     GCD_CMD,        NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
     3032,{jjGCD_BI,    GCD_CMD,        BIGINT_CMD,     BIGINT_CMD, BIGINT_CMD ALLOW_PLURAL}
    30163033#if defined(HAVE_FACTORY) && defined(HAVE_LIBFAC_P)
    30173034,{jjGCD_P,     GCD_CMD,        POLY_CMD,       POLY_CMD,   POLY_CMD NO_PLURAL}
Note: See TracChangeset for help on using the changeset viewer.