09/06/26 19:17:51
>>298
% Prolog
phon(_フォネティックコードファイル,_文字列) :-
assertz_フォネティックコード(_フォネティックコードファイル),
sub_atom(_文字列,_,1,_,A),
フォネティックコード(A,B),
write_formatted('%t ',[B]),
fail;
true.
assertz_フォネティックコード(_フォネティックコードファイル) :-
abolish(フォネティックコード/2),
get_lines(_フォネティックコード,Lines),
member(Line,Lines),
split(Line,[','],[A,B]),
assertz((フォネティックコード(A,B) :- !)),
fail;
assertz((フォネティックコード(A,A))).