Fix RandomMean

Villavu · Jan 4, 2025 · b46dbb5 · b46dbb5
1 parent aa51da0
commit b46dbb5
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/Source/simba.random.pas b/Source/simba.random.pas
@@ -198,10 +198,7 @@ function RandomRight(Lo, Hi: Int64): Int64;
 
 function RandomMean(Lo, Hi: Double): Double;
 begin
-  if (Random() < 0.50) then
-    Result := (Hi+Lo) / 2.0 + RandomLeft(0, (Hi-Lo) / 2)
-  else
-    Result := (Hi+Lo) / 2.0 - RandomLeft(0, (Hi-Lo) / 2);
+  Result := RandomMode(Lo + ((Hi-Lo) / 2), Lo, Hi);
 end;
 
 function RandomMean(Lo, Hi: Int64): Int64;