このディレクトリの索引

%  
%  文字列の置換述語。最初に見つかった置換可能部分を置換する決定性述語。
% 
%  どこが置換された部分であるか、分かりにくいのが欠点です。
%  
%  最初のひとつだけ置換/6 は置換された部分の前文字列と後文字列を明示した。


最初のひとつだけ置換(_文字列,_置換対象文字列,_置換文字列,_置換された文字列) :-
        sub_atom(_文字列,Len1,Len2,Len3,_置換対象文字列),
        sub_atom(_文字列,0,Len1,_,S1),
        St is Len1+Len2,
        sub_atom(_文字列,St,Len3,_,S3),
        concat_atom([S1,_置換文字列,S3],_置換された文字列),!.


最初のひとつだけ置換(_文字列,_置換対象文字列,_前文字列,_置換文字列,_後文字列,_置換された文字列) :-
        sub_atom(_文字列,Len1,Len2,Len3,_置換対象文字列),
        sub_atom(_文字列,0,Len1,_,_前文字列),
        St is Len1+Len2,
        sub_atom(_文字列,St,Len3,_,_後文字列),
        concat_atom([_前文字列,_置換文字列,_後文字列],_置換された文字列),!.