09/06/26 19:49:43
>>299 違ったみたい。どこが違ってたか捜してみて下さい。
% Prolog
phon(_フォネティックコードファイル,_文字列) :-
assertz_フォネティックコード(_フォネティックコードファイル),
atom_chars(_文字列,Chars),
phon_1(Chars,XL),
phon_2(XL).
phon_1([],[]) :- !.
phon_1([A,B|R1],[C,' '|R2]) :-
フォネティックコード(A,C),
フォネティックコード(B,_),
phon_1([B|R1],R2).
phon_1([A,B|R1],[C,' '|R2]) :-
フォネティックコード(A,C),
not(フォネティックコード(B,_)),
phon_1([B|R1],R2).
phon_1([A,B|R1],[A,' '|R2]) :-
not(フォネティックコード(A,_)),
フォネティックコード(B,_),
phon_1([B|R1],R2).
phon_1([A,B|R1],[A|R2]) :-
not(フォネティックコード(A,_)),
not(フォネティックコード(B,_)),
phon_1([B|R1],R2).
phon_2([]).
phon_2([A|R]) :-
write(A),
phon_2(R).