shithub: femtolisp

ref: a69ae5ed2a33e8d1a62391e57347285228ba4054
dir: /3rd/mp/mpinvert.c/

View raw version
#include "platform.h"
#include "mp.h"

// use extended gcd to find the multiplicative inverse
// res = b**-1 mod m
void
mpinvert(mpint *b, mpint *m, mpint *res)
{
	mpint *v;

	v = mpnew(0);
	mpextendedgcd(b, m, v, res, nil);
	if(mpcmp(v, mpone) != 0){
		fprintf(stderr, "mpinvert: impossible\n");
		exit(2);
	}
	mpfree(v);
	mpmod(res, m, res);
}