nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

"random" accepts an 'n' to return between 1 and 'n'.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1997-07-30 19:15:18 -03:00
parent 0892f0e5b7
commit caa987faad
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mathlib.c
View File

@@ -3,7 +3,7 @@
** Mathematics library to LUA
*/
char *rcs_mathlib="$Id: mathlib.c,v 1.24 1997/06/09 17:30:10 roberto Exp roberto $";
char *rcs_mathlib="$Id: mathlib.c,v 1.25 1997/06/19 18:03:04 roberto Exp roberto $";
#include <stdlib.h>
#include <math.h>
@@ -171,7 +171,11 @@ static void math_rad (void)
static void math_random (void)
{
lua_pushnumber((double)(rand()%RAND_MAX) / (double)RAND_MAX);
double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX;
if (lua_getparam(1) == LUA_NOOBJECT)
lua_pushnumber(r);
else
lua_pushnumber((int)(r*luaL_check_number(1)) + 1);
}
static void math_randomseed (void)