このディレクトリの索引
#  @tsukada816:
#  Prologの実験中。appendとmemberを教えて、
#  リストから指定した要素を取り除くdeleteを作れと問題を出した。
#  

'Prologの実験中。appendとmemberを教えて、リストから指定した要素を取り除くdeleteを作れと問題を出した。'(_リスト,_取り除く要素リスト,_指定した要素を取り除いたリスト) :-
        delete(_リスト,_取り除く要素リスト,_指定した要素を取り除いたリスト).

delete([],_取り除く要素リスト,[]).
delete([_取り除く要素|_残りリスト],_取り除く要素リスト,_指定した要素を取り除いたリスト) :-
        member(_取り除く要素,_取り除く要素リスト),
        delete(_残りリスト,_取り除く要素リスト,_指定した要素を取り除いたリスト),!.
delete([_要素|_残りリスト],_取り除く要素リスト,[_要素|_指定した要素を取り除いたリスト]) :-
        delete(_残りリスト,_取り除く要素リスト,_指定した要素を取り除いたリスト).