このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/962
#  対象 
#  ABCこの間に文字列があったりなかったりDEF 
#   
#  結果 
#  DEF 
#   
#  "ABC"よりも後続にある(最初の)"DEF"だけを対象としたいです 
#  戻り読み条件が、長さ一定でなくてもOKならばできるのですが・・・ 
# 
# 

'"ABC"よりも後続にある(最初の)"DEF"だけを対象としたいです。戻り読み条件が、長さ一定でなくてもOKならばできるのですが・・・ '(_文字列,_前文字列,'DEF',_後文字列) :-
        atom_chars(_文字列,Chars),
        append(L1,['A','B','C'|R1],Chars),
        append(L2,['D','E','F'|R2],R1),
        append(L1,['A','B','C'|L2],Chars1),
        atom_chars(_前文字列,Chars1),
        atom_chars(_後文字列,R2).