このディレクトリの索引

英数文字を含まない日本語の文を抽出する(_文字列,_前文字列,_抽出文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_抽出文字列,_後文字列,L1,L2,L3),
        \+((last(L1,A),多バイト文字(A))),
        \+((L3=[B|_],他バイト文字(B))),
        すべて多バイト文字(L2).

すべて多バイト文字([]) :- !.
すべて多バイト文字([A|R]) :-
        char_code(A,Code),
        Code >= 256,
        すべて多バイト文字(R).