09/07/08 04:06:06
>>393
% Prolog
乗算合同法による乱数発生(_初期値,Y,X) :-
乗算合同法(16087,_初期値,65535,Y,X).
乗算合同法(A,N,_法,N,X) :-
X is N / _法.
乗算合同法(A,N,_法,Y,X) :-
乗算合同法演算(A,N,_法,M),
乗算合同法(A,M,_法,Y,X).
乗算合同法演算(A,N,_法,M) :-
M is (A * N) mod _法.
09/07/08 04:06:06
>>393
% Prolog
乗算合同法による乱数発生(_初期値,Y,X) :-
乗算合同法(16087,_初期値,65535,Y,X).
乗算合同法(A,N,_法,N,X) :-
X is N / _法.
乗算合同法(A,N,_法,Y,X) :-
乗算合同法演算(A,N,_法,M),
乗算合同法(A,M,_法,Y,X).
乗算合同法演算(A,N,_法,M) :-
M is (A * N) mod _法.