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

'文字列の中に文字xが離散して10個以上であるか(連続している部分は数えない)'(_文字列) :-
        '文字列の中に文字が離散してn個以上であるか(連続している部分は数えない)'(x,10,_文字列).

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