このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1387257592/263
#  ●Regular Expressionの使用環境  
#  Javascript 
#   
#  ●検索か置換か?  
#  置換 
#   
#  ●説明 
#  '1'を含まないABCからDEFまでを削除したいです 
#   
#  ●対象データ 
#  ABC 
#  1 
#  DEF 
#   
#  ABC 
#  2 
#  DEF 
#   
#  ABC 
#  3 
#  DEF 
#   
#  ●希望する結果 
#  ABC 
#  1 
#  DEF 
# 
# 

'''1''を含まないABCからDEFまでを削除したいです'(_文字列,_希望する結果) :-
        atom_char(_文字列,_文字ならび),
        '''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までをならびから削除したいです'(_文字ならび,L),
        atomic_list_concat(L,_希望する結果).

'''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までをならびから削除したいです'([],[]).
'''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までをならびから削除したいです'(_文字ならび,L) :-
        '''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までを'(_文字列,L3),
        '''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までをならびから削除したいです'(L3,L),!.
'''1''を含まないABCからDEFまでを削除したいです'([A|R1],[A|R2]) :-
        '''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までをならびから削除したいです'(R1,R2).

'''1''を含まない''A'',''B'',''C''から''D'',''E'',''F''までを'(_文字列,L3) :-
        append(['A','B','C'|L2],['D','E','F'|L3],_文字ならび),
        \+(append(_,['A','B','C'|_],L2)),
        \+(append(_,['D','E','F'|_],L2)),
        \+(append(_,['1'|_],L2)),!.