Транспонированная матрица

@Coolaginnik · Регистрация: 05.03.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте! Помогите, пожалуйста, со следующей программкой:

Дан список, содержащий списки одинаковой длины (матрица). Построить транспонированную матрицу.

Аргументы: матрица(список);
транспонированная матрица (список).

Prolog

?- pred (([1,2,3],[1,5,6],[7,8,9]), x).
X = ([1,4,7],[2,5,8],[3,6,9])
yes
?-

@Coolaginnik · 22.11.2012, 22:24 **[ТС]**

Еще актуально, помогите, пожалуйста!

@Грымзик · 23.11.2012, 22:42

Без самостоятельных попыток написать программу не помогаю. Попробуйте написать предикат, который просто берет по первому элементу из каждого списка - строки матрицы, складывая их в новый список. А дальше помогу.

@Coolaginnik · 30.11.2012, 01:23 **[ТС]**

Prolog

a(E,R,Q):-
 [R|[]]=W,
 append(E,W,Q).
 
append([],V,V).
append([X|T],V,[X|Q]):-
 append(T,V,Q).
 
inverse([],[]).
inverse([X|T],Res):-
 inverse(T,Z),
 a(Z,X,Res).
 
n_list([],N,[]).
n_list([X|L],1,X).
n_list([Y|L],N,X):-
N1 is N-1,
n_list(L,N1,X).
 
 
nsto([],N,[]).
nsto(Mt,N,M2):-
Mt=[X1|T1],
n_list(X1,N,S2),
nsto(T1,N,M3),
a(M3,S2,M2).
 
length([],R,R).
length(L,Count,R):-
    CountN is Count + 1,
    L=[H|L1],
    length(L1,CountN,R).
 
matr(L,Count,X,X):-
    L=[H|L1],
    length(H,0,R),
    Count=:=R.
 
 
matr(L,Count,X,L2):-
    CountN is Count+1,
    nsto(L,CountN,L3),
    sinverse(L3,L5),
    append(L2,[L5],L4),
    matr(L,CountN,X,L4).

@Coolaginnik 0 / 0 / 0 Регистрация: 05.03.2012 Сообщений: 15
	22.11.2012, 22:24 [ТС]	2
	Еще актуально, помогите, пожалуйста! 0

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	23.11.2012, 22:42	3
	Без самостоятельных попыток написать программу не помогаю. Попробуйте написать предикат, который просто берет по первому элементу из каждого списка - строки матрицы, складывая их в новый список. А дальше помогу. 0

Опции темы