Changeset 5812c69 in git for Singular/LIB/primdec.lib

Timestamp:

Sep 24, 1998, 11:59:51 AM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

56c52a7879fbc6de62cefba1da86b2edf2aadd4c

Parents:

073d2edeb03013a5c6ed0913687b024305a1427d

Message:

cosmetic changes


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

File:

• Singular/LIB/primdec.lib (modified) (4 diffs)

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.25 1998-08-05 11:12:32 Singular Exp $
+// $Id: primdec.lib,v 1.26 1998-09-24 09:59:51 Singular Exp $
 ////////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                                //
@@ -11 +11 @@
 ////////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.25 1998-08-05 11:12:32 Singular Exp $";
+version="$Id: primdec.lib,v 1.26 1998-09-24 09:59:51 Singular Exp $";
 info="
 LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION
@@ -383 +383 @@
    if(size(k1)==size(k2))
    {
-      for(j=1;j<=size(k1);j++)
+      for(j=size(k1);j>0;j--)
       {
          if(leadexp(k1[j])!=leadexp(k2[j]))
@@ -401 +401 @@
    if(size(k1)==size(k2))
    {
-      for(j=1;j<=size(k1);j++)
+      for(j=size(k1);j>0;j--)
       {
          if(leadexp(k1[j])!=leadexp(k2[j]))