Changeset 4370f3 in git for Singular/LIB/finvar.lib

Timestamp:

Oct 27, 2005, 11:09:53 AM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

8be787805d67e14362f85c9c5a4745f483a99fd9

Parents:

bea07fbf8ef85ffb8d94eb4d9150fa1875c0d5b7

Message:

*hannes: optimization


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

File:

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

Singular/LIB/finvar.lib

@@ -1 +1 @@
 // last change: 98/11/05
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: finvar.lib,v 1.38 2005-10-26 14:11:34 Singular Exp $"
+version="$Id: finvar.lib,v 1.39 2005-10-27 09:09:53 Singular Exp $"
 category="Invariant theory";
 info="
@@ -71 +71 @@
 ///////////////////////////////////////////////////////////////////////////////
 proc unique (list #)
-{ for (int i=1;i<size(#);i++)
-  { if (#[i]==#[size(#)])
-    { return(0);
-    }
+{ int s=size(#); def m=#[s];
+  for (int i=1;i<s;i++)
+  { if (#[i]==m)
+    { return(0); }
   }
   return(1);