Changeset af7c47 in git for Singular/LIB/modular.lib

Timestamp:

Sep 7, 2016, 2:21:21 PM (8 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a88bbe6011f0f3b0eec150334d2c6243aa1f57ad

Parents:

78321f7f1ef646d795a532545c8159f388de4136

Message:

fix: sort the indices returned by deleteUnluckyPrimes()

File:

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

Singular/LIB/modular.lib

@@ -40 +40 @@
 ";
 
+LIB "general.lib";
 LIB "resources.lib";
 LIB "tasks.lib";
@@ -157 +158 @@
         // delete unlucky primes
         indices = deleteUnluckyPrimes(modresults);
+        indices = sort(indices)[1];
+        for (i = size(indices); i > 1; i--) {
+            if (indices[i] == indices[i-1]) {
+                indices = delete(indices, i);
+            }
+        }
         for (i = size(indices); i > 0; i--) {
             modresults = delete(modresults, indices[i]);