このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258320456/104
#  以下の5行の文字列のいずれかをランダムに返すプログラムを書きなさい 
#  あいうえお 
#  かきくけこ 
#  さしすせそ 
#  たちつてと 
#  なにぬねの 
#   

'5行の文字列のいずれかをランダムに返す'(_5行の文字列,_文字列) :-
        list(_5行の文字列),
        N is (random mod 5) + 1,
        list_nth(N,_5行の文字列,_文字列),!.

'5行の文字列のいずれかをランダムに返す'(_5行の文字列,_文字列) :-
        atom(_5行の文字列),
        split(_5行の文字列,['\n'],L),
        '5行の文字列のいずれかをランダムに返す'(L,_文字列),!.