행렬을 만들고 각 행을 순열 변환

Question

0에서 N까지 순열을 만들 수 있습니다. 하지만 어떻게 행렬과 순열을 각각의 행 matrix(2,L)에서 만들 수 있습니다.

add(X,L,[X|L]). 
add(X,[L|H],[L|R]):- add(X,H,R). 

permut([],[]). 
permut([L|H],R):- permut(H,R1),add(L,R1,R). 

permutations(L,R):- findall(P,permut(L,P),R). 

do_list(N, L) :- do_list1(N, [], L). 

do_list1(0, L, L) :- !. 
do_list1(N, R, L) :- N > 0, 
       N1 is N-1, 
       do_list1(N1, [N|R], L). 

matrix(N,L):- 
    do_list(N,R), 
    permut(R,L). 

Answer 1

귀하의 요청에 대해 확실하지 않습니다. 다음은 내장형을 기반으로 한 가능한 대답입니다 ...

3 ?- [user]. 
|: matrix(N, Mat) :- length(Rows, N), maplist(numlist(1,N), Rows), maplist(permutation, Rows, Mat). 

% user://1 compiled 0.01 sec, 2 clauses 
true. 

4 ?- matrix(3, M). 
M = [[1, 2, 3], [1, 2, 3], [1, 2, 3]] ; 
M = [[1, 2, 3], [1, 2, 3], [1, 3, 2]] ; 
M = [[1, 2, 3], [1, 2, 3], [2, 1, 3]] ; 
M = [[1, 2, 3], [1, 2, 3], [2, 3, 1]] ; 
...