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

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

예를 들어, 주어진

출력은

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

R , 42 바이트

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

온라인으로 사용해보십시오!

소요 AA와 matrix1 기반의 인덱스 o.

MATL , 15 13 바이트

t3$)&Gw&St3$)

입력 u후 A.

출력은 B다음 C세퍼레이터없이 어떠한 모호성이 없다.

온라인으로 사용해보십시오!

설명

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

옥타브 , 33 바이트

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

온라인으로 사용해보십시오!

오류를 수정하고 여러 바이트를 저장 한 Luis 에게 감사 합니다!

기본 인덱싱은 를 취소하는 순열과 같은 벡터 를 정의하여 두 작업 모두에서 작동합니다 . 즉, 이면 의 첫 번째 요소 는 2입니다. 1은 의 두 번째 위치에 있기 때문 입니다. 이는 Octave의 정렬 기능으로 수행됩니다.$v$$u$$u = ( 3, 1, 2 )$$v$$u$

numpy가있는 Python 3 , 51 45 바이트

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

온라인으로 사용해보십시오!

@xnor 덕분에 -6 바이트

이 함수는 numpy행렬과 $0$ 에서 $n-1$ 사이의 값을 갖는 순열 벡터의 두 가지 인수 를 사용합니다 .

Wolfram Language (Mathematica) , 30 바이트

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

온라인으로 사용해보십시오!

로 입력하십시오 f[A][u].

PowerShell , 78 73 71 바이트

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

온라인으로 사용해보십시오 .

젤리 , 13 바이트

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

온라인으로 사용해보십시오!

J , 19 바이트

(]/:~"1/:)"_ 1],:/:

온라인으로 사용해보십시오!

• 주요 동사 ]/:~"1/:
  • 오른쪽 /:은 오른쪽 arg (지정된 순서)를 정렬하는 순서에 따라 왼쪽 arg (매트릭스)를 정렬합니다. 행을 정렬합니다.
  • 이제 /:~"1지정된 순서에 따라 결과가 다시 정렬 됩니다 ]. 그러나 이번에는 순위 1을 기준으로 정렬합니다. 즉, 각 행을 정렬하므로 열을 정렬하는 효과가 있습니다.
• ],:/:우리는 명시된 순서 ]와 지정된 순서 의 등급 을 모두 사용하여 위의 내용을 적용 합니다 /:. 이것은 우리가 원하는 두 가지 결과를 제공합니다.

자바 스크립트 (Node.js) , 77 70 68 바이트

a=>g=(u,v=[])=>[u.map((i,x)=>u.map(j=>a[i][j],v[i]=x)),v&&g(v,0)[0]]

온라인으로 사용해보십시오!

APL (Dyalog Extended) , 12 바이트 ^SBCS

$u$$A$$C$$B$

⌷∘⎕¨⍋¨⍛⍮⍨⍮⍨⎕

온라인으로 사용해보십시오!

⎕$u$[3,1,2]

⍮⍨ 병치-셀카; [[3,1,2],[3,1,2]]

⍋¨ 각각의 순열-반전; [[2,3,1],[2,3,1]]
⍛ 그런 다음
⍮⍨ 그 자체와 병치[[[2,3,1],[2,3,1]],[[3,1,2],[3,1,2]]]

⌷
∘
⎕ $A$
¨

J , 17 16 15 14 바이트

@Jonah 덕분에 -1

([{"1{)~(,:/:)

온라인으로 사용해보십시오!

숯 , 24 바이트

Ｅ⟦ηＥη⌕ηκ⟧Ｅθ⪫Ｅ觧θ§ιμ§ιξ 

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 인덱스가 0입니다. 참고 : 후행 공간. 설명:

    η                       Input `u`
   Ｅ                        Map over elements
     ⌕                      Index of
       κ                    Current index in
      η                     Input `u`
  η                         Input `u`
Ｅ⟦      ⟧                   Map over `u` and its inverse
          θ                 Input `A`
         Ｅ                  Map over elements
             θ              Input `A`
            Ｅ               Map over elements
                θ           Input `A`
               §            Indexed by
                  ι         Current vector
                 §          Indexed by
                   μ        Row index
              §             Indexed by
                     ι      Current vector
                    §       Indexed by
                      ξ     Column index
           ⪫                Join with spaces for readability
                            Implicitly print

코 틀린 , 213 바이트

{a:List<List<Int>>,u:List<Int>->val s=u.size
for(l in List(s){r->List(s){c->a[u[r]][u[c]]}})println(l.joinToString(" "))
for(l in List(s){r->List(s){c->a[u.indexOf(r)][u.indexOf(c)]}})println(l.joinToString(" "))}

온라인으로 사용해보십시오!

APL + WIN, 21 바이트

u를 입력하라는 프롬프트와 a가 차례로 표시됩니다. 구분 기호없이 c의 바로 위에 b를 출력합니다.

(a←⎕)[u;u←⎕]⋄a[⍋u;⍋u]

온라인으로 사용해보십시오! Dyalog Classic 제공

펄 5 , 79 바이트

sub{$[=1;($A,$u)=@_;@$v[@$u]=(1..@$u);map{$x=$_;[map[@$_[@$x]],@$A[@$x]]}$u,$v}

온라인으로 사용해보십시오!

젤리 ,  12 11  13 바이트

+2 : (B = C 인 경우 문제 해결

ṭþ`œị¥@Ƭị@2,0

왼쪽에있는 목록 목록 A( nby n)과 n오른쪽에있는 첫 번째 정수 목록을 허용하는 dyadic Link는 목록 목록 u을 생성합니다 [B, C].

온라인으로 사용해보십시오!

방법?

ṭþ`œị¥@Ƭị@2,0 - Link: A, u
       Ƭ      - collect up while the results are no longer unique, applying:
     ¥@       -   last two links as a dyad with swapped arguments:
  `           -     use left (u) as both arguments of:
 þ            -       outer product with:
ṭ             -         tack
   œị         -     multi-dimensional index into last result (starting with A)
                ...at the end of the Ƭ-loop we have [A,B,...,C]
                                                 or [A] if A=B=C
                                                 or [A,B] if B=C but A!=B
          2,0 - literal pair [2,0]
         @    - with swapped arguments:
        ị     -   index into (1-based & modular) -> [B,C]
                                                 or [A,A]=[B,C] if A=B=C
                                                 or [B,B]=[B,C] if B=C

q, 26 바이트

{Y:iasc y;(x[y;y];x[Y;Y])}

iasc 인수를 정렬하기 위해 색인을 리턴합니다.

클린 , 91 바이트

import StdEnv
$a u=map(\l={{a.[i,j]\\j<-l}\\i<-l})[u,[k\\i<-[0..]&_<-u,j<-u&k<-[0..]|j==i]]

온라인으로 사용해보십시오!

배열의 배열과 0부터 시작하는 인덱스 목록을 가져 와서 B와 C를 포함하는 배열의 배열 목록을 반환하도록 정의합니다 $ :: {{a}} [Int] -> [{{a}}](와 함께 사용 a = Int).

파이썬 3 , 91 바이트

lambda a,u:[[[a[y][x]for x in t]for y in t]for t in[u,[u.index(i)for i in range(len(u))]]]

온라인으로 사용해보십시오!

매개 변수를 2D 및 1D 목록으로 가져와 두 개의 2D 목록 B와 C가 포함 된 목록을 반환합니다. 모든 for 루프를 수행하는 더 확실한 방법이 있는지 확실하지 않습니다.

C ++ (gcc) , 148142 바이트

#import<queue>
#define q[o[i/z]*z+o[i%z]]
using V=std::vector<int>;int f(V m,V o,V&r,V&R,int z){int i=z*z;for(r=R=V(i);i--;r[i]=m q)R q=m[i];}

온라인으로 사용해보십시오!

@ceilingcat 제안 덕분에 신비롭게 std :: vector를 가져 오는 <vector> 대신 #import <queue>를 사용하는 것이 좋습니다