Add random(QQ)

Macaulay2 · Sep 21, 2024 · 6f5e7ef · 6f5e7ef
1 parent 5c31d32
commit 6f5e7ef
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/M2/Macaulay2/m2/reals.m2 b/M2/Macaulay2/m2/reals.m2
@@ -249,6 +249,9 @@ RR'.random = opts -> R -> rawRandomRRUniform R.precision
 CC'.random = opts -> C -> rawRandomCC C.precision
 random RingFamily := opts -> R -> random(default R,opts)
 
+random QQ := QQ => opts -> x -> rawFareyApproximation(
+    random numeric x, opts.Height)
+
 -- algebraic operations and functions
 
 RR.isBasic = CC.isBasic = RRi.isBasic = true