2 files changed, 19 insertions, 0 deletions

diff --git a/src/util/random.c b/src/util/random.c
index c754677..860cff0 100644
--- a/src/util/random.c
+++ b/src/util/random.c
@@ -61,3 +61,15 @@ GEN random_int(unsigned long bits) {
 	GEN range = mkvec2(int2n(bits - 1), int2n(bits));
 	return gerepilecopy(ltop, genrand(range));
 }
+
+GEN random_field_element(GEN field) {
+	switch (typ(field)) {
+		case t_INT:
+			return mkintmod(genrand(field), field);
+		case t_FFELT:
+			return genrand(field);
+		default:
+			pari_err_TYPE("", field);
+			return NULL;
+	}
+}
diff --git a/src/util/random.h b/src/util/random.h
index f78f991..56e2efd 100644
--- a/src/util/random.h
+++ b/src/util/random.h
@@ -36,4 +36,11 @@ GEN random_prime(unsigned long bits);
  */
 GEN random_int(unsigned long bits);
 
+/**
+ * @brief
+ * @param field
+ * @return
+ */
+GEN random_field_element(GEN field);
+
 #endif  // ECGEN_RANDOM_H