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


文字列の先頭から連続文字を切り出す(_文字列,_連続文字の文字列,_残り文字列) :-
        sub_atom(_文字列,0,1,_,_文字),
        文字列から連続文字を切り出す(_文字列,_文字,1,_連続文字の文字列,_残り文字列).

文字列から連続文字を切り出す(_文字列,_文字,_開始位置_1,_連続文字の文字列,_残り文字列) :-
        sub_atom(_文字列,_開始位置_1,1,_,_文字),
        文字列から連続文字を切り出す(_文字列,_文字,_開始位置_1,_,_連続文字の文字列,_残り文字列).


文字列から連続文字を切り出す(_文字列,_文字,_開始位置_1,_開始位置,_連続文字の文字列,_残り文字列) :-
        sub_atom(_文字列,_開始位置_1,1,_,_文字),
        _開始位置_2 is _開始位置_1 + 1,
        文字列から連続文字を切り出す(_文字列,_文字,_開始位置_2,_開始位置,_連続文字の文字列,_残り文字列),!.
文字列から連続文字を切り出す(_文字列,_,_開始位置,_開始位置,_連続文字の文字列,_残り文字列) :-
        sub_atom(_文字列,0,_開始位置,_残り文字数,_連続文字の文字列),
        sub_atom(_文字列,_,_残り文字数,0,_残り文字列).