10/01/31 19:32:39
>>530
% Prolog (その一)
空白を含む文字列の空白を取り除いて解析する(_文字列,_項) :-
文字列から空白を取り除く(_文字列,_空白を取り除かれた文字列),
文字列を解析して項を生成する(_空白を取り除いた文字列,_項).
文字列から空白を取り除く(_文字列,_空白を取り除かれた文字列) :-
atom_chars(_文字列,Chars),
ならびから空白要素を取り除く(Chars,_空白を取り除かれたならび),
atom_chars(_空白を取り除かれた文字列,_空白を取り除かれたならび).
ならびから空白要素を取り除く([],[]) :- !.
ならびから空白要素を取り除く([' '|R1],R2) :-
ならびから空白要素を取り除く(R1,R2),!.
ならびから空白要素を取り除く([A|R1],[A|R2]) :-
ならびから空白要素を取り除く(R1,R2),!.
文字列を解析して項を生成する(_文字列,_項) :- atom_to_term(_文字列,_項,_).