1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

random.c: rb_random_ulong_limited

Browse Source 
* random.c (rb_random_ulong_limited): new function to return a random
  value from 0 upto limit as unsigned long, simillary to
  rb_genrand_ulong_limited but with arbitrary RNG object.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@37125 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2012-10-09 08:59:03 +00:00
parent dd83dd6bda
commit 7f8e558464
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
Tue Oct 9 17:59:00 2012 Nobuyoshi Nakada <nobu@ruby-lang.org>
* random.c (rb_random_ulong_limited): new function to return a random
value from 0 upto limit as unsigned long, simillary to
rb_genrand_ulong_limited but with arbitrary RNG object.
Tue Oct 9 17:13:27 2012 Nobuyoshi Nakada <nobu@ruby-lang.org> Tue Oct 9 17:13:27 2012 Nobuyoshi Nakada <nobu@ruby-lang.org>
* process.c (rb_execarg_addopt, rb_execarg_run_options): add :uid and * process.c (rb_execarg_addopt, rb_execarg_run_options): add :uid and

1
include/ruby/intern.h
View File

@ -610,6 +610,7 @@ VALUE rb_random_bytes(VALUE rnd, long n);
VALUE rb_random_int(VALUE rnd, VALUE max); VALUE rb_random_int(VALUE rnd, VALUE max);
unsigned int rb_random_int32(VALUE rnd); unsigned int rb_random_int32(VALUE rnd);
double rb_random_real(VALUE rnd); double rb_random_real(VALUE rnd);
unsigned long rb_random_ulong_limited(VALUE rnd, unsigned long limit);
unsigned long rb_genrand_ulong_limited(unsigned long i); unsigned long rb_genrand_ulong_limited(unsigned long i);
/* re.c */ /* re.c */
#define rb_memcmp memcmp #define rb_memcmp memcmp

16
random.c
View File

@ -943,6 +943,22 @@ rb_random_real(VALUE obj)
return genrand_real(&rnd->mt); return genrand_real(&rnd->mt);
} }
unsigned long
rb_random_ulong_limited(VALUE obj, unsigned long limit)
{
rb_random_t *rnd = try_get_rnd(obj);
if (!rnd) {
VALUE lim = ULONG2NUM(limit);
VALUE v = rb_funcall2(obj, id_rand, 1, &lim);
unsigned long r = NUM2ULONG(v);
if (r > limit) {
rb_raise(rb_eRangeError, "random number too big %ld", r);
}
return r;
}
return limited_rand(&rnd->mt, limit);
}
/* /*
* call-seq: prng.bytes(size) -> a_string * call-seq: prng.bytes(size) -> a_string
* *