rfivet
/
uemacs
mirror of https://github.com/rfivet/uemacs.git
1
0
Fork 0
Code Releases Activity

Avoid 176719 periodicity of &rnd 0.

This commit is contained in:
Renaud 2015-10-22 16:57:56 +08:00
parent 9b1c5f48a2
commit 83b4028c95
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
eval.c
View File

@ -537,11 +537,11 @@ static char *gtfun( char *fname) {
retstr = result ;
break ;
case UFRND | MONAMIC:
sz = abs( atoi( arg1)) ;
sz = atoi( arg1) ;
if( sz == 0)
sz = ernd() ;
else
sz = ernd() % sz + 1 ;
sz = ernd() % abs( sz) + 1 ;
retstr = i_to_a( sz) ;
break ;
@ -1323,8 +1323,9 @@ int abs(int x)
* returns a random integer
*/
static int ernd( void) {
seed = abs(seed * 1721 + 10007);
return seed;
seed = seed * 1721 + 10007 ;
seed &= ~(1 << 31) ; /* abs() introduces 176719 periodicity */
return seed ;
}
/*