このディレクトリの索引
cradle8810 くれいど 
#  [15回演習問題1.1.2]
#  第1引数に自然数、第2引数に自然数のリストが与えられたとき、
#  「第2引数のリストから第1引数の倍数を除いたリスト」が第3引数となる
#  述語remove_multi/3を定義せよ。 エラー処理は考えなくて良い。

remove_multi(_,[],[]) :- !.
remove_multi(N,[M|R1],L) :-
        0 is N mod M,
        remove_multi(N,R1,L).
remove_multi(N,[M|R1],[M|R2]) :-
        \+(0 is N mod M),
        remove_multi(N,R1,R2).