このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/235
#  [1] 授業単元:プログラミング  
#  [2] 問題文: 
#  
#  ransuu関数は整数型の引数uを受け取ると1からuまでの乱数を返す。 
#  この関数を用いて、1から6までの乱数を100回発生させる。 
#  1から6までのそれぞれの数が発生した回数を出力しなさい。 
#  http://ime.nu/codepad.org/2MXb2oGy 
#  

ransuu(_u,_1からuまでの乱数) :-
        整数型の引数uを受け取ると1からuまでの乱数を返す(_u,_1からuまでの乱数).

整数型の引数uを受け取ると1からuまでの乱数を返す(_u,_1からuまでの乱数) :-
         _1からuまでの乱数 is random(_u) + 1.

'1から6までの乱数を100回発生させる。1から6までのそれぞれの数が発生した回数を出力しなさい。' :-
        '1から6までの乱数を100回発生させる'(L),
        for(1,N,6),
        count(member(N,L),_発生した回数),
        writef('乱数 %t 発生数 %t回\n',[N,_発生した回数]),
        N = 6.

'1から6までの乱数を100回発生させる'(L) :-
        findall(_1から6までの乱数,(
                    for(1,_,100),
                    ransuu(6,_1から6までの乱数)),
                L).