목록의 각 요소에 대해

Question

저는 프롤로그를 처음 사용하는데 문제가 있습니다.

내가 좋아하는 번호 목록을 가지고 [7,88,10,11] 무엇을 내가하고 싶은 것입니다 :

for each element in [7,88,10,11] A 

     for each element in [88,10,11] B 
       for each element in [10,11] C 
         write(A-B-C). 

내가 원하는 모든 조합 목록 (3 개 요소의 순열).

감사합니다.

는

편집 : 목록은 예입니다, 실제 목록은 L입니다 :

list(L,J) :- findall(X,(task(X,K),K==J),L). 

그럼 내가 목록을 말했듯이 내가 반복하고 싶은 L.

Answer 1

실제 프롤로그 코드는 매우이다 당신은 SQL에 참여로 쉼표 연산자 생각할 수

?- forall((member(A, [7,88,10,11]), 
      member(B, [88,10,11]), 
      member(C, [10,11]) 
     ), writeln(A-B-C)). 

귀하의 설명과 유사 (선택 간단한 문법에 * A, B, C에서)

편집 : 물론 해당 코드는 이 아니며과 비슷합니다. 대신

?- forall(member(A, [7,88,10,11]), 
      forall(member(B, [88,10,11]), 
       forall(member(C, [10,11]), writeln(A-B-C)))). 

(희망 I 균형을 바로 괄호 ...)

편집해야합니다 죄송합니다, 나는 완전히 놓친 A, B, C 사이의 관계. 합니까

?- L = [7,88,10,11], 
    forall((select(A,L,L1), 
      select(B,L1,L2), 
      member(C,L2) 
     ), writeln(A-B-C)). 

더 잘 작동합니까?