このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/494
#  文字xが離散して10個以上であるか(一箇所でも連続してはいけない)

'文字列の中に文字xが離散して10個以上であるか(一箇所でも連続してはいけない)'(_文字列) :-
        '文字列の中に文字が離散してn個以上であるか(一箇所でも連続してはいけない)'(x,10,_文字列).

'文字列の中に文字が離散してn個以上であるか(一箇所でも連続してはいけない)'(_文字,_n個,_文字列) :-
        \+(sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[_文字,_文字],L3)),
        count(sub_atom(_文字列,_,1,_,_文字),Count),
        Count >= _n個,!.