Получить матрицу, в которой меняются местами половины главной и побочной диагоналей

%Matrix
dataMatr4([[1,2,3,4],
      [5,6,7,8],
      [9,10,11,12],
      [13,14,15,16]]).
dataMatr5([[1,2,3,4,5],
      [6,7,8,9,10],
      [11,12,13,14,15],
      [16,17,18,19,20],
      [21,22,23,24,25]]).
 
%Result matrix
change(Ans):-
    dataMatr5(M),
    length(M,N),
    N mod 2=:=0,
    I is N//2,
    r(I,M,[],LUp,Down),
    colChange(1,N,LUp,Down,LUp1,Down1),
    r(I,Ans,[],LUp1,Down1).
change(Ans):-
    dataMatr5(M),
    length(M,N),
    I is N//2,
    J is 1,
    r(I,M,[],LUp,[Middle|Down]),
    colChange(J,N,LUp,Down,LUp1,Down1),
    r(I,Ans,[],LUp1,[Middle|Down1]).
 
%+I, +Matrix, +UpTail, -Upper, -Bottom
r(0,Down,LUp,LUp,Down).
r(I,[H|Tail],LUpTail,LUp,Down):-
    I1 is I-1,
    r(I1,Tail,[H|LUpTail],LUp,Down).
 
%+J, +Length, +Top part, +Bottom part, -New top, -New bottom
colChange(_,_,[],[],[],[]).
colChange(J,N,[A|LUp],[B|Down],[A1|LUp1],[B1|Down1]):-
    J1 is J-1,
    colChange(J1,N,LUp,Down,LUp1,Down1),
    exchange(J,A,B,A1,B1).
 
exchange(0,[HA|TailA],[HB|TailB],[HB|TailA],[HA|TailB]).
exchange(J,[HA|TailA],[HB|TailB],[HA|TailA1],[HB|TailB1]):-
    J1 is J-1,
    exchange(J1,TailA,TailB,TailA1,TailB1).

-module(m1).
-export([transform/1]).
 
transform(X)->change(X,1,(length(X) div 2)+1).
 
change(X,N,K) when N=:=K->X;
change([H|T],N,K)->[swap(H,N)|change(T,N+1,K)].
 
swap(H,N)->{First,Second}= get(H,N,length(H)-N+1,1),
  replace(H,N,length(H)-N+1,First,Second,1).
 
replace([_|T],N,M,F,S,I) when N=:=I ->[S|replace(T,N,M,F,S,I+1)];
replace([_|T],_N,M,F,_S,I) when M=:=I ->[F|T];
replace([H|T],N,M,F,S,I) ->[H|replace(T,N,M,F,S,I+1)].
 
get([H|_],_N,M,I) when M=:=I ->H;
get([H|T],N,M,I) when N=:=I ->{H, get(T,N,M,I+1)};
get([_|T],N,M,I)-> get(T,N,M,I+1).