このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/777
#  JavaScriptで 
#  aa1 
#  っていう文字列の塊を1セットで[a-z]{2}[0-9]と表します 
#  この文字列が 
#  fi1cs2bc3wr4 
#  ってう風に4回繰り返されている場合にヒットさせる正規表現はどうかくのでしょうか? 
#  ([a-z]{2}[0-9]){4}って感じで書いてみたんですけど(〜){数字}のケースって見たことないんですがどうでしょうか 
# 
# 

ある文字パターンが四回繰り返されているパターン(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,L2,L3),
        ある文字パターンが四回繰り返されている(L2).

ある文字パターンが四回繰り返されている(L) :-
        append(A,B,L1),
        append(L1,C,L2),
        append(L2,D,L).
        同一パターン([A,B,C,D],_).

同一パターン([],_) :- !.
同一パターン([A|R],N) :-
        パターン候補(A,1),
        同一パターン(R,N).

パターン候補(A,1) :-
        一文字目がアルファベット(A),
        二文字目がアルファベット(A),
        三文字目が数字(A).

一文字目が英文字(A) :-
        sub_atom(A,0,1,_,A1),
        英文字(A1),!.

二文字目が英文字(A) :-
        sub_atom(A,1,1,_,A2),
        英文字(A2),!.

三文字目が数字(A) :-
        sub_atom(A,2,1,_,A3),
        A3 @>= '0',
        A3 @=< '9',!.

英文字(A) :-
        A @>= 'a',
        A @=< 'z',!.
英文字(A) :-
        A @>= 'A',
        A @=< 'Z',!.