09/06/11 23:21:52
>>151
% Prolog (2/2)
区切り文字(' ').
区切り文字('\n').
区切り文字('.').
区切り文字(',').
単語ならびに変換([]) :- !.
単語ならびに変換([L|R1],[_単語|R2]) :-
concat_atom(L,_単語),
単語ならびに変換(R1,2).
wrln([]) :- !.
wrln([A|R]) :-
write_formatted('%t\n',[A]),
wrln(R).
09/06/11 23:21:52
>>151
% Prolog (2/2)
区切り文字(' ').
区切り文字('\n').
区切り文字('.').
区切り文字(',').
単語ならびに変換([]) :- !.
単語ならびに変換([L|R1],[_単語|R2]) :-
concat_atom(L,_単語),
単語ならびに変換(R1,2).
wrln([]) :- !.
wrln([A|R]) :-
write_formatted('%t\n',[A]),
wrln(R).