넌 스퀘어 주어진 행렬 하고리스트 (또는 벡터) 길이 숫자 함유 통해 (또는 내지 ). 당신의 작업은 열 순서를 변경하는 것입니다 및 행렬의 행 지정된 순서에 따라 .n × n

$n \times n$에이

$A$유

$u$엔

$n$1

$1$엔

$n$0

$0$n – 1

$n-1$에이

$A$유

$u$

되었으므로 매트릭스 구성 것이다 여기서, 번째 요소는 인 의 번째 요소 . 또한이 동작의 역을 출력해야합니다. 즉,의 (i, j) 번째 원소 위치에서 끝날 것이다 새로운 행렬에서 .비

$B$( i , j )

$(i,j)$( u ( i ) , u ( j ) )

$(u(i),u(j))$에이

$A$에이

$A$( u ( i ) , u ( j ) )

$(u(i),u(j))$기음

$C$

예를 들어, 주어진

$$A = \begin{bmatrix} 11 &12& 13 \\ 21& 22& 23 \\ 31& 32& 33 \end{bmatrix},\quad u=\begin{bmatrix}3 & 1 & 2\end{bmatrix}$$

출력은

$$B = \begin{bmatrix}33 & 31 & 32 \\ 13 & 11 & 12 \\ 23 & 21 & 22 \end{bmatrix},\quad C= \begin{bmatrix}22 & 23 & 21 \\32 & 33 & 31 \\ 12 & 13 & 11 \end{bmatrix}$$

기본 I / O 방법을 통해 입력 및 출력을 수행 할 수 있습니다. 둘 다 출력하는 한 또는 C 인 행렬을 지정할 필요가 없습니다 . A 에 양의 정수만 포함 한다고 가정 하고 u에 1 또는 0 기반 색인을 사용할 수 있습니다 . 최소한 크기 64 \ times 64 까지의 행렬을 지원해야합니다 .비

$B$기음

$C$에이

$A$유

$u$64 × 64

$64 \times 64$

예

===== Input =====
A =
 35     1     6    26    19    24
  3    32     7    21    23    25
 31     9     2    22    27    20
  8    28    33    17    10    15
 30     5    34    12    14    16
  4    36    29    13    18    11
u=
  3 5 6 1 4 2

==== Output =====
B =
  2    27    20    31    22     9
 34    14    16    30    12     5
 29    18    11     4    13    36
  6    19    24    35    26     1
 33    10    15     8    17    28
  7    23    25     3    21    32
C =
 17    15     8    10    28    33
 13    11     4    18    36    29
 26    24    35    19     1     6
 12    16    30    14     5    34
 21    25     3    23    32     7
 22    20    31    27     9     2

답변

function(A,o)list(A[o,o],A[I<-order(o),I])

t3$)&Gw&St3$)

t     % Take input u implicitly. Duplicate u
3$)   % Take input A implicitly. Index A with u as row and column indices
&G    % Push the two inputs again: u, A
w     % Swap
&S    % Push indices that would make u sorted. Call that v
t     % Duplicate v
3$)   % Index A with v as row as column indices. Display implcitly

@(A,u){A(u,u) A([~,v]=sort(u),v)}

lambda m,p:[m[x][:,x]for x in(p,p.argsort())]

ii[[#,#]]&/@{#,Ordering@#}&

($A,$u=$args)|%{$A[$u]|%{''+$_[$u]}
$u=1..$u.count|%{$u.indexof($_-1)}}

ŒJṁ⁸ịⱮ⁹,Ụ¤œị⁸