このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/336
#  http://ime.nu/何が来るかわからない.何が来るかわからない.test.com/何が来るかわからない 
#  http://ime.nu/何が来るかわからない.test.com/何が来るかわからない 
#   
#  上の2つともにマッチさせる正規表現は、どのように書くのでしょうか? 
#   

'http://ime.nu/何が来るかわからない.何が来るかわからない.test.com/何が来るかわからない http://ime.nu/何が来るかわからない.test.com/何が来るかわからない の2つともにマッチさせる'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,L2,[]),
        append([h,t,t,p,:,/,/,i,m,e,'.'n,u,/|R21],['.',t,e,s,t,/|R22],L2),
        適合パターン(R21).

適合パターン(L) :-
        \+(member('.',L)),!.
適合パターン(L) :-
        append(L0,['.'|R],L),
        \+(member('.',L0)),
        \+(member('.',R)).