いろんな言語で宿題スレ

いろんな言語で宿題ス ..

153:デフォルトの名無しさん
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).

次ページ