18/08/11 23:25:22.68 6O5oY3+c.net
再起呼び出しプログラムの復習中。
del(X,[X|L],L).
del(X,[Y|L],[Y|Z]) :- del(X,L,Z).
?- del(H,[H,O,M,A,N,鉤],X).
X = [O, M, A, N, 鉤] .
?- del(裏口,X,[寄付,シリツ,医大,入試,合格,入学,学生,バカ]),writeln(X),fail.
[裏口,寄付,シリツ,医大,入試,合格,入学,学生,バカ]
[寄付,裏口,シリツ,医大,入試,合格,入学,学生,バカ]
[寄付,シリツ,裏口,医大,入試,合格,入学,学生,バカ]
[寄付,シリツ,医大,裏口,入試,合格,入学,学生,バカ]
[寄付,シリツ,医大,入試,裏口,合格,入学,学生,バカ]
[寄付,シリツ,医大,入試,合格,裏口,入学,学生,バカ]
[寄付,シリツ,医大,入試,合格,入学,裏口,学生,バカ]
[寄付,シリツ,医大,入試,合格,入学,学生,裏口,バカ]
[寄付,シリツ,医大,入試,合格,入学,学生,バカ,裏口]