- 713 名前：デフォルトの名無しさん mailto:sage [2010/02/14(日) 08:43:03 ]
- >>710
% Prolog 非決定性にするには
'5行の文字列のいずれかをランダムに返す'(_文字列) :-
findall(S,文字列(S),L),
'5行の文字列のいずれかをランダムに返す'(L,_文字列).
'5行の文字列のいずれかをランダムに返す'(L,_文字列) :-
N is random mod 5 + 1,
list_nth(N,L,_文字列).
'5行の文字列のいずれかをランダムに返す'(L,_文字列) :-
'5行の文字列のいずれかをランダムに返す'(L,_文字列).
文字列(あいうえお).
文字列(かきくけこ).
文字列(さしすせそ).
文字列(たちつてと).
文字列(なにぬねの).
% ただし、
% ?- ..<Aゾーン>.. ,'5行の文字列のいずれかをランダムに返す'(_文字列), ..<Bゾーン>.. ,fail.
% のように使うと<Bゾーン>の記述によっては<Aゾーン>には決してバックトラックしないことに注意。
