このディレクトリの索引
#  
#  文字列の先頭から連続文字を切り出す
#  

文字列の先頭から同じ文字による文字列を切り出す(_文字列,_同じ文字の文字列,_残り文字列) :-
        sub_atom(_文字列,0,1,_,_文字),
        同じ文字による文字列の文字数を得る(_文字列,_文字,_文字数),
        sub_atom(_文字列,0,_文字数,R,_同じ文字の文字列),
        sub_atom(_文字列,_,R,0,_残り文字列).

同じ文字による文字列の文字数を得る(_文字列,_文字,_文字数) :-
        findall(_,(
                    sub_atom(_文字列,_,1,_,_文字_1),
                    (    \+(_文字_1 = _文字),!,fail;true)),
                L),
        length(L,_文字数).