From 7ccb7a8a9b8f10d30fd8fca01e849dcad354a855 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 3 Nov 2024 16:10:03 -0500
Subject: Use an RNG parameter for array:random(), array:shuffle(),
 array:shuffled()

---
 stdlib/integers.c | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'stdlib/integers.c')

diff --git a/stdlib/integers.c b/stdlib/integers.c
index f604aa53..8d305daf 100644
--- a/stdlib/integers.c
+++ b/stdlib/integers.c
@@ -440,14 +440,16 @@ public const TypeInfo_t Int$info = {
         } \
         return bit_array; \
     } \
+    public c_type KindOfInt ## $full_random(void) { \
+        c_type r; \
+        arc4random_buf(&r, sizeof(r)); \
+        return r; \
+    } \
     public c_type KindOfInt ## $random(c_type min, c_type max) { \
         if (min > max) fail("Random minimum value (%ld) is larger than the maximum value (%ld)", min, max); \
         if (min == max) return min; \
-        if (min == min_val && max == max_val) { \
-            c_type r; \
-            arc4random_buf(&r, sizeof(r)); \
-            return r; \
-        } \
+        if (min == min_val && max == max_val) \
+            return KindOfInt ## $full_random(); \
         uint64_t range = (uint64_t)max - (uint64_t)min + 1; \
         uint64_t min_r = -range % range; \
         uint64_t r; \
-- 
cgit v1.2.3