lua

commit 4fbb2531b3e60094e760e30fffbd9c8b2d67a238
parent 59f8e6fb7710e46539fb9bf63131b45012bf86ef
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed, 30 Dec 1998 19:23:05 -0200

don´t need the "+1", the "%" is enough to garantee r<1.

Diffstat:
M
lmathlib.c
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lmathlib.c b/lmathlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lmathlib.c,v 1.12 1998/12/28 13:44:54 roberto Exp roberto $
+** $Id: lmathlib.c,v 1.13 1998/12/30 17:22:17 roberto Exp roberto $
 ** Lua standard mathematical library
 ** See Copyright Notice in lua.h
 */
@@ -154,9 +154,9 @@ static void math_max (void)
 
 
 static void math_random (void) {
-  /* the '%' is needed because on some systems (SunOS!) "rand()" may
-     return a value bigger than RAND_MAX... */
-  double r = (double)(rand()%RAND_MAX) / ((double)RAND_MAX+1.0);
+  /* the '%' avoids the (rare) case of r==1, and is needed also because on
+     some systems (SunOS!) "rand()" may return a value bigger than RAND_MAX */
+  double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX;
   int l = luaL_opt_int(1, 0);
   if (l == 0)
     lua_pushnumber(r);