このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/176
#  言語:JAVA 
#  次の例文で、[    ]の部分にひらがなの「ぺ」が27回続く場合にのみマッチする正規表現 
#   
#    ゆうていみやおうきむこうほりいゆうじとりやまあきら[    ] 
#   
#  処理対象文字 
#  ゆうていみやおうきむこうほりいゆうじとりやまあきらぺぺぺぺぺぺぺぺぺぺぺぺ 
#  ゆうていみやおうきむこうほりいゆうじとりやまあきらぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺ 
#  ゆうていみやおうきむこうほりいゆうじとりやまあきらぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺ 
#   
#  実行した正規表現 
#  .*ぺ{27} 
#   
#  実行結果 
#  ゆうていみやおうきむこうほりいゆうじとりやまあきらぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺ 
#  ゆうていみやおうきむこうほりいゆうじとりやまあきらぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺぺ 
#   
#  何で27回以外の「ぺ」が出力されるのか訳ワカメちゃん 
# 
# 

'次の例文で、[    ]の部分にひらがなの「ぺ」が27回続く場合にのみマッチする正規表現'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        length(L2,27),
        all(L2,ペ),
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,L2,L3),
        \+(last(L1,ぺ)),
        \+(L3 = [ぺ|_]).