Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
/* %% add_matrices(+Matrix, +Matrix, ?Matrix) is det % % Adds given matrices if their dimensions are equal. % Uses add_vectors/3 to perform addition on each row. add_matrices([], [], []). add_matrices([A|As], [B|Bs], [R|Rs]) :- add_vectors(A, B, R), add_matrices(As, Bs, Rs). % add_vectors(+List, +List, ?List) is det add_vectors([], [], []). add_vectors([A|As], [B|Bs], [R|Rs]) :- R is A + B, add_vectors(As, Bs, Rs). ?-add_vectors([1, 2, 3], [4, 5, 6],R),write(R). */ matrix("M",1,1,5). matrix("M",1,2,5). matrix("M",2,1,5). matrix("M",2,2,5). matrix("N",1,1,5). matrix("N",1,2,5). matrix("N",2,1,5). matrix("N",2,2,5). matrix_sum(sum_row,sum_column,value):- matrix("M",M_row,M_column,M_value), matrix("N",N_row,N_column,N_value), M_row is N_row, M_column is N_column, sum_value is M_value+N_value.