09/07/04 04:24:42
>>344 課題1
% Prolog
space(_文字列,_スペースを挿入された文字列) :-
atom_chars(_文字列,Chars),
concat_atom(Chars,' ',_スペースを挿入された文字列).
concat_atom([],_,'') :- !.
concat_atom([A],_,A) :- !.
concat_atom([A|R],S,X) :-
concat_atom(R,S,Y),
atom_concat(A,S,B),
atom_concat(B,Y,X).