Changeset 82280d in git for Singular

Timestamp:

Nov 12, 2009, 10:54:43 AM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

27bb97f5f06fab3d914b8889b6cabffbc4df28b6

Parents:

590f9892b373e02f15eb1e8ab30127dac15b384e

Message:

*hannes: descr. of primL (track 173)

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

File:

• Singular/LIB/crypto.lib (modified) (3 diffs)

Singular/LIB/crypto.lib

@@ -24 +24 @@
  Jacobi(a,n)                the generalized Legendre symbol of a and n
  primList(n)                the list of all primes <=n
- primL(q)                   all primes p_1,...,p_r such that q<p_1*...*p_r
+ primL(q)                   first primes p_1,...,p_r such that q<p_1*...*p_r
  intPart(x)                 the integral part of a rational number
  intRoot(m)                 the integral part of the square root of m
@@ -306 +306 @@
 proc primL(number q)
 "USAGE:  primL(q);
-RETURN: list of all primes p_1,...,p_r such that q<p_1*...*p_r
+RETURN: list of the first primes p_1,...,p_r such that q>p_1*...*p_(r-1)
+        and q<p_1*...*p_r
 EXAMPLE:example primL; shows an example
 "
@@ -318 +319 @@
    while(s<=q)
    {
-     i++;
+     i=i+2;
      j=1;
      while(j<=size(re))