いろんな言語で宿題スレ第三編

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

536:デフォルトの名無しさん
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(_文字列,_項,_).

次ページ

続きを表示

1を表示