いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

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

次ページ

続きを表示

1を表示