>>762
このほうがスタック効率と無駄なバックトラックを発生させずにすむ

del(_,[],[]):-!.
del(A,[A|R1],R2) :- !,del(A,R1,R2).
del(A,[B|R1],[B|R2]) :- del(A,R1,R2).