このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/970
#  0か1かをランダムに出力する変数rndを作りたいのですが、以下のように記述し、ループを回すと 
#  ほとんど0しか出力されませんでした。どのようにすればこれより良い乱数が作れますか? 
#  rnd=(int)((double)rand() / ((double)RAND_MAX + 1) * 2); 
# 
# 

'0か1かをランダムに出力する'(_0か1) :-
        _0か1 is random mod 2.

%%%%%%%%%%%%%%%%%%%%%% repeatパターンだと %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'0か1かをランダムに出力する'(_0か1) :-
        _0か1 is random mod 2.
'0か1かをランダムに出力する'(_0か1) :- '0か1かをランダムに出力する'(_0か1).