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

fix manual and message handling

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2253 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-06-03 09:24:28 +00:00
parent 8e6403794f
commit 02497c1172
4 changed files with 34 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
library/prandom.yap
View File

@@ -47,10 +47,12 @@
ranstart/0,
ranstart/1,
rannum/1,
rannunif/2]).
ranunif/2]).
:- initialization(ranstart).
:- dynamic ranState/5.
%
% vsc: dangerous code, to change.
%
@@ -67,13 +69,12 @@ ranstart(N) :-
Incr is (8'154 << (Wsize - 9)) + 1, % per Knuth, v.2 p.78
Mult is 8'3655, % OK for 16-18 Wsize
Prev is Mult * (8 * N + 5) + Incr,
recorda(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr), Ref).
assert(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr).
rannum(Raw) :-
recorded(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr), Oldref),
erase(Oldref),
retract(ranState(Mult, Prev, Wsize, MaxInt, Incr)),
Curr is Mult * Prev + Incr,
recorda(ranState, ranState(Mult, Curr, Wsize, MaxInt, Incr), Ref),
assert(ranState(Mult, Curr, Wsize, MaxInt, Incr),
( Curr > 0,
Raw is Curr
;
@@ -83,10 +84,9 @@ rannum(Raw) :-
ranunif(Range, Unif) :-
Range > 0,
recorded(ranState, ranState(Mult, Prev, Wsize, MaxInt, Incr), Oldref),
erase(Oldref),
retract( ranState(Mult, Prev, Wsize, MaxInt, Incr) ),
Curr is Mult * Prev + Incr,
recorda(ranState, ranState(Mult, Curr, Wsize, MaxInt, Incr), Ref),
assert(ranState(Mult, Curr, Wsize, MaxInt, Incr)),
( Curr > 0,
Raw is Curr
;