09/06/11 07:18:14
>>136 (4)だけです
% Prolog (正規表現との競争ということかな 少し負けるが・・)
% URLﾘﾝｸ(nojiriko.asia)
:- op(700,xfx,(=>)).
t136(Atom,X) :- 英語色日本語色ペアリストの作成(Atom,X).
英語色日本語色ペアリストの作成(Atom,X) :-
atom_chars(Atom,Chars),
文字ならびから英語色日本語色ペアリストの作成(Chars,X),!.
文字ならびから英語色日本語色ペアリストの作成([],[]).
文字ならびから英語色日本語色ペアリストの作成(L,[_英語色=>_日本語色|R]) :-
一語切り出す(L,L2,R1),
一語切り出す(R1,L3,R2),
atom_chars(_英語色色,L2),
atom_chars(_日本語色色,L3),
文字ならびから英語色日本語色ペアリストの作成(R2,R).
一語切り出す([],[],[]).
一語切り出す(['\t'|R1],[],R1).
一語切り出す([' '|R1],[],R1).
一語切り出す(['\n'|R1],[],R).
一語切り出す([A|R1],[A|R2],R) :-
一語切り出す(R1,R2,R).