/* -*-c-*-
*
- * $Id: ec-test.c,v 1.1 2004/03/23 15:19:32 mdw Exp $
+ * $Id: ec-test.c,v 1.2 2004/03/27 00:04:46 mdw Exp $
*
* Code for testing elliptic-curve stuff
*
/*----- Revision history --------------------------------------------------*
*
* $Log: ec-test.c,v $
+ * Revision 1.2 2004/03/27 00:04:46 mdw
+ * Implement efficient reduction for pleasant-looking primes.
+ *
* Revision 1.1 2004/03/23 15:19:32 mdw
* Test elliptic curves more thoroughly.
*
int i;
static const char *fnames[] = {
- "prime", "binpoly", 0
+ "prime", "niceprime", "binpoly", 0
};
static const char *ecnames[] = {
"prime", "primeproj", "bin", "binproj", 0
switch (i = ckstring(&p, fnames), ckchar(&p, ':'), i) {
case 0: m = getmp(&p); f = field_prime(m); mp_drop(m); break;
- case 1: m = getmp(&p); f = field_binpoly(m); mp_drop(m); break;
+ case 1: m = getmp(&p); f = field_niceprime(m); mp_drop(m); break;
+ case 2: m = getmp(&p); f = field_binpoly(m); mp_drop(m); break;
default: abort();
}
ckchar(&p, '/');