select文


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

%?- select(X,[1,2,3],Y).
select([],[],[]):- fail.
select(A,[A|L1],L1).
select(X,[A|L1],[A|L2]):-
		select(X,L1,L2).
 
%?-select(X,[1,2,3],Y).
%X       = 1,
%Y       = [2,3];
%X       = 2,
%Y       = [1,3];
%X       = 3,
%Y       = [1,2];