いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

394:デフォルトの名無しさん
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 _法.

次ページ

続きを表示

1を表示