10/02/14 08:27:31
>>710
% Prolog
'5行の文字列のいずれかをランダムに返す'(_文字列) :-
findall(S,文字列(S),L),
N is random mod 5 + 1,
list_nth(N,L,_文字列).
文字列(あいうえお).
文字列(かきくけこ).
文字列(さしすせそ).
文字列(たちつてと).
文字列(なにぬねの).
10/02/14 08:27:31
>>710
% Prolog
'5行の文字列のいずれかをランダムに返す'(_文字列) :-
findall(S,文字列(S),L),
N is random mod 5 + 1,
list_nth(N,L,_文字列).
文字列(あいうえお).
文字列(かきくけこ).
文字列(さしすせそ).
文字列(たちつてと).
文字列(なにぬねの).