Changeset 3231f3 in git for kernel/rintegers.cc

Timestamp:

Jun 9, 2009, 8:10:44 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

b82abb0dc3349df20acd8231f648b8ff51bc61b6

Parents:

f26ea00810f0c5a97f95995febb9ffcb0d72138e

Message:

*hannes: nrzIntMod


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

File:

• kernel/rintegers.cc (modified) (2 diffs)

kernel/rintegers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rintegers.cc,v 1.22 2009-05-22 13:18:12 Singular Exp $ */
+/* $Id: rintegers.cc,v 1.23 2009-06-09 18:10:44 Singular Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -222 +222 @@
 }
 
+number nrzIntMod (number a,number b)
+{
+  int_number erg = (int_number) omAllocBin(gmp_nrz_bin);
+  mpz_init(erg);
+  int_number r = (int_number) omAllocBin(gmp_nrz_bin);
+  mpz_init(r);
+  mpz_tdiv_qr(erg, r, (int_number) a, (int_number) b);
+  mpz_clear(erg);
+  return (number) r;
+}
+
 number  nrzInvers (number c)
 {