このディレクトリの索引
#  
#  先頭の連続した文字を別の文字列に置換した文字列
#  

先頭の連続した文字を別の文字列に置換した文字列(_文字列,_別の文字列,_置換した文字列) :-
        先頭の連続した文字を(_文字列,_先頭文字,_先頭の連続した文字数),
        別の文字列に置換した文字列(_文字列,_先頭の連続した文字数,_別の文字列,_置換した文字列).

先頭の連続した文字を(_文字列,_先頭文字,_先頭の連続した文字数) :-
        sub_atom(_文字列,0,1,_,_先頭文字),
        sub_atom(_文字列,_先頭の連続した文字数,1,_,_先頭文字とは異なる文字),
        \+(_先頭文字 = _先頭文字とは異なる文字),!.

別の文字列に置換した文字列(_文字列,_先頭の連続した文字数,_別の文字列,_置換した文字列) :-
        sub_atom(_文字列,_先頭の連続した文字数,_,0,_残り文字列),
        atomic_list_concat([_別の文字列,_残り文字列],_置換した文字列),!.