このディレクトリの索引

'-N1からN2までの数字に一致させる'(_N1,_N2,_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,Len,_,S1,S2,S3,L1,L2,L3),
        \+((last(L1,A),数字または符号(A)),
        Len =< 4,
        \+((L3=[B|_],数字(B)),
        atom_to_term(S2,N,_),
        integer(N),
        N >= _N1,
        N =< _N2.

数字または符号(A) :-
        append(_,[A|_],['0','1','2','3','4','5','6','7','8','9','+','-']).