select文

%?- 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];

タグ:

+ タグ編集
  • タグ:

このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー利用規約 が適用されます。

最終更新:2012年09月05日 17:47