forked from flintlib/flint
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathrand.c
44 lines (32 loc) · 973 Bytes
/
rand.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
/*
Copyright (C) 2020 Daniel Schultz
This file is part of FLINT.
FLINT is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License (LGPL) as published
by the Free Software Foundation; either version 2.1 of the License, or
(at your option) any later version. See <https://www.gnu.org/licenses/>.
*/
#include "fq.h"
void
fq_rand(fq_t rop, flint_rand_t state, const fq_ctx_t ctx)
{
const slong d = fq_ctx_degree(ctx);
slong i;
fmpz_poly_fit_length(rop, d);
for (i = 0; i < d; i++)
{
fmpz_randm(rop->coeffs + i, state, fq_ctx_prime(ctx));
}
_fmpz_poly_set_length(rop, d);
_fmpz_poly_normalise(rop);
}
void fq_rand_not_zero(fq_t rop, flint_rand_t state, const fq_ctx_t ctx)
{
int tries = 3;
do {
fq_rand(rop, state, ctx);
if (!fq_is_zero(rop, ctx))
return;
} while (--tries >= 0);
fq_one(rop, ctx);
}