このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/224
#  「あいうえおABC+F481ABC+F485かきくけこABC+F7A5さしすせそABC+F3F0ABC+F39EたちつてとABC+F65AなにぬねのABC+F485ABC+F7A5はひふへほABC+F7A5ABC+F39Eまみむめも」 
#   
#  上記の中に、「ABC+16進数x2回」がいくつ含まれているかをPHPの正規表現で表すにはどうかけばよろしいでしょうか? 
#  ご鞭撻よろしくお願いいたします。 
#   

'文字列の中に「ABC+16進数x2回」がいくつ含まれているか'(_文字列,_いくつ) :-
        atom_chars(_文字列,Chars),
        'ならびの中に「ABC+16進数x2回」がいくつ含まれているか'(Chars,[],Ln),
        length(Ln,_いくつ).

'ならびの中に「ABC+16進数x2回」がいくつ含まれているか'([],Ln,Ln) :- !.
'ならびの中に「ABC+16進数x2回」がいくつ含まれているか'(['A','B','C','+',X1,X2,X3,X4|R1],Ln1,Ln) :-
        すべて16進数文字([X1,X2,X3,X4]),
        'ならびの中に「ABC+16進数x2回」がいくつ含まれているか'(Ln,R1,[_|Ln1]).
'ならびの中に「ABC+16進数x2回」がいくつ含まれているか'([_|R1],Ln1,Ln) :-
        'ならびの中に「ABC+16進数x2回」がいくつ含まれているか'(R1,Ln1,Ln).

すべて16進数文字([]) :- !.
すべて16進数文字([A|R]) :-
        member(A,['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F']),
        すべて16進数文字(R).

先頭から16進数文字ならび([],[],[]) :- !.
先頭から16進数文字ならび([A|R1],[A|R2],R) :-
        member(A,['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F']),
        先頭から16進数文字ならび(R1,R2,R),!.
先頭から16進数文字ならび(L,[],L).

'16進数表示文字ならび'(['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F']).