このウィキへの参加申請についてはこちらをご覧ください
%?- 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の プライバシーポリシー と 利用規約 が適用されます。