diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix fixes to prandom

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2254 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-06-03 09:27:57 +00:00
parent 02497c1172
commit aa92d9628d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/prandom.yap
View File

@ -69,12 +69,12 @@ ranstart(N) :-
Incr is (8'154 << (Wsize - 9)) + 1, % per Knuth, v.2 p.78 Incr is (8'154 << (Wsize - 9)) + 1, % per Knuth, v.2 p.78
Mult is 8'3655, % OK for 16-18 Wsize Mult is 8'3655, % OK for 16-18 Wsize
Prev is Mult * (8 * N + 5) + Incr, Prev is Mult * (8 * N + 5) + Incr,
assert(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr). assert(ranState(Mult, Prev, Wsize, MaxInt, Incr) ).
rannum(Raw) :- rannum(Raw) :-
retract(ranState(Mult, Prev, Wsize, MaxInt, Incr)), retract(ranState(Mult, Prev, Wsize, MaxInt, Incr)),
Curr is Mult * Prev + Incr, Curr is Mult * Prev + Incr,
assert(ranState(Mult, Curr, Wsize, MaxInt, Incr), assert(ranState(Mult, Curr, Wsize, MaxInt, Incr)),
( Curr > 0, ( Curr > 0,
Raw is Curr Raw is Curr
; ;