version 1.12, 2019/03/17 02:48:13 |
version 1.13, 2019/03/18 07:00:33 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2018/engine/Q.c,v 1.11 2019/03/03 05:21:17 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/engine/Q.c,v 1.12 2019/03/17 02:48:13 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "gmp.h" |
#include "gmp.h" |
#include "base.h" |
#include "base.h" |
Line 515 void factorialz(unsigned int n,Z *nr) |
|
Line 515 void factorialz(unsigned int n,Z *nr) |
|
{ |
{ |
mpz_t a; |
mpz_t a; |
mpz_init(a); |
mpz_init(a); |
mpz_fac_ui(a,n); |
mpz_fac_ui(a,(unsigned long)n); |
MPZTOZ(a,*nr); |
MPZTOZ(a,*nr); |
} |
} |
|
|