09/06/11 23:20:50
>>151
% Prolog (1/2)
文字列から切り出した単語の行表示(_文字列) :-
文字列から単語の切り出し(_文字列,_単語ならび),
wrln(_単語ならび).
文字列から単語の切り出し(_文字列,_単語ならび) :-
atom_chars(_文字列,_文字ならび),
文字ならびを区切り文字により分割する(_文字ならび,L),
単語ならびに変換(,_単語ならび).
文字ならびを区切り文字により分割する([A|R1],R2) :-
区切り文字(A),
文字ならびを区切り文字により分割する(R1,R2),!.
文字ならびを区切り文字により分割する(_文字ならび,[L1|R]) :-
append(L1,[A|L2],_文字ならび),
区切り文字(A),
文字ならびを区切り文字により分割する(L2,R),!.
文字ならびを区切り文字により分割する(_,[]) :- !.