Changeset a1417c in git for Singular/polys1.cc

Timestamp:

Apr 14, 1999, 8:32:06 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

f82470cd59711fa9be6dec30bf3b65ca1e6b067b

Parents:

81fb58d69996f43b36f242e32fa561907b220757

Message:

* hannes: polys1.cc: optimized pPower of binoms
          minor corrections to test files: Long/primitiv_l, Short/primitiv_s,..


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

File:

• Singular/polys1.cc (modified) (2 diffs)

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.19 1999-03-15 16:55:42 Singular Exp $ */
+/* $Id: polys1.cc,v 1.20 1999-04-14 18:32:00 Singular Exp $ */
 
 /*
@@ -491 +491 @@
         {
           rc = pNext(p);
-          if (rc != NULL)
-          {
-            int char_p=rChar(currRing);
-            if ((pNext(rc) != NULL)
-            || ((char_p>0) && (i>char_p)))
-            {
-              return pPow(p,i);
-            }
-            return pTwoMonPower(p,i);
-          }
-          return pMonPower(p,i);
+          if (rc == NULL)
+            return pMonPower(p,i);
+          /* else: binom */
+          int char_p=rChar(currRing);
+          if (pNext(rc) != NULL)
+            return pPow(p,i);
+          if ((char_p==0) || (i<=char_p))
+            return pTwoMonPower(p,i);
+          poly p_p=pTwoMonPower(pCopy(p),char_p);
+          return pMult(pPower(p,i-char_p),p_p);
         }
       /*end default:*/