このディレクトリの索引

ある指定した文字数で折り返す(_文字列,_指定した文字数,_文字列) :-
        atom_length(_文字列,_文字数),
        _文字数 =< _指定した文字数,!.
ある指定した文字数で折り返す(_文字列,_指定した文字数,_変換された文字列) :-
        sub_atom(_文字列,0,_指定した文字数,E,_副文字列_1),
        sub_atom(_文字列,_指定した文字数,_,0,_副文字列_2),
        ある指定した文字数で折り返す(_副文字列_2,_指定した文字数,_変換された文字列_2),
        atomic_list_concat([_副文字列_1,'\n',_変換された文字列_2],_変換された文字列).