Changeset 96f9be8 in git

Timestamp:

Sep 14, 2009, 11:06:09 AM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d5b180e0c68f700e7e5a884ae1c4b0015e6fd9a8

Parents:

d317a90d4242efb5169bc024c79fc9c4937bc022

Message:

* IsPrime tests divisibility by primes from factory: smallprimes (<=32749)
  If candidate is larger than 32749^2, we test now by all uneven
  numbers in 32749..sqrt(cand)


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.210 2009-09-01 08:05:36 seelisch Exp $ */
+/* $Id: ipshell.cc,v 1.211 2009-09-14 09:06:09 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -556 +556 @@
     if (j > end_p) return p;
   }
+#ifdef HAVE_FACTORY
+  if (i>=end_i)
+  {
+    while(j<=end_p)
+    {
+      j+=2;
+      if ((p%j) == 0)
+      {
+        if (p<=32751) return iiIsPrime0(p-2);
+        p-=2;
+        goto restart;
+      }
+    }
+  }
+#endif
   return p;
 }