このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1340383120/314
#  tで始まる文字列を文頭のthe[スペース]を無視して検索する場合 
#  ^t[^h]|^th[^e]|^the tが思いついたけど、もっといい正規表現ありますか? 
#   
#  環境はActive Perl5で否定演算子!は使えません 
# 
# 

'tで始まる文字列を文頭のthe[スペース]を無視して検索する'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,0,4,R,'the '),!,
        sub_atom(_文字列,4,R,0,_文字列_1),
        sub_atom(_文字列_1,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[t|R_2],L3),
        \+(member(' ',R_2)),
        \+(member('\n',R_2)),
        (L3 = [],L3 = [' '|_]).
'tで始まる文字列を文頭のthe[スペース]を無視して検索する'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,[t|R_2],L3),
        \+(member(' ',R_2)),
        \+(member('\n',R_2)),
        (L3 = [],L3 = [' '|_]).