KnowledgeHub
Questions
Tags
Users
Search
Alex Rivera
|
Logout
Edit Question
Title
Body
Is there a way to store the current state of the built in pseudo-random number generator in Perl so that when my program is run again, it can pick up the sequence from where it left off rather than starting with a new sequence? Right now, I am storing where I am as well as the initial seed and then throwing away the initial segment which I have already seen using something similar to: sub consume_upto_n { my ($seed, $n) = @_; $n = 1 unless defined $n and $n >= 1; srand $seed; rand for 1 .. $n - 1; return; } For example: srand 0x18; my @v = map { rand } 1 .. 5; Later: consume_upto_n(0x18, 3); my @z = map { rand } 3 .. 5; Then, $z[0] == $v[2] , $z[1] == $v[3] etc.
Tags (comma-separated)
Save Edits
Cancel