Bạn được cung cấp một ma trận ma trận và một danh sách (hoặc vectơ) có độ dài chứa các số đến (hoặc đến ). Nhiệm vụ của bạn là sắp xếp lại các cột và hàng của ma trận theo thứ tự được chỉ định trong .$n \times n$$A$$u$$n$$1$$n$$0$$n-1$A u$A$$u$

Nghĩa là, bạn sẽ xây dựng một ma trận nơi yếu tố -thứ là yếu tố -thứ của . Bạn cũng nên xuất ra nghịch đảo của hành động này; nghĩa là, phần tử (i, j) của sẽ kết thúc tại vị trí trong ma trận .$B$$(i,j)$$(u(i),u(j))$$A$$A$$(u(i),u(j))$$C$

Ví dụ: đã cho

đầu ra phải là

Bạn có thể nhận đầu vào và đầu ra thông qua bất kỳ phương thức I / O mặc định nào. Bạn không phải chỉ định ma trận nào là hoặc , miễn là bạn xuất cả hai. Bạn có thể giả sử chỉ chứa các số nguyên dương và bạn có thể sử dụng lập chỉ mục dựa trên 1- hoặc 0 cho . Bạn phải hỗ trợ ma trận tối thiểu bằng .$B$$C$$A$$u$$64 \times 64$

Thí dụ

===== 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 byte

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

Hãy thử trực tuyến!

Mất Anhư một matrixchỉ số và 1-based o.

MATL , 15 13 byte

t3$)&Gw&St3$)

Đầu vào u, sau đó A.

Đầu ra B, sau đó Ckhông có dấu phân cách, vì không có sự mơ hồ.

Hãy thử trực tuyến!

Giải trình

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

Octave , 33 byte

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

Hãy thử trực tuyến!

Cảm ơn Luis đã sửa lỗi và lưu một vài byte!

Lập chỉ mục cơ bản hoạt động ở đây cho cả hai nhiệm vụ, bằng cách xác định một vectơ bằng với hoán vị hoàn tác . Nghĩa là, nếu thì phần tử đầu tiên của là 2, vì 1 nằm ở vị trí thứ hai của . Điều này được thực hiện với chức năng sắp xếp của Octave .$v$$u$$u = ( 3, 1, 2 )$$v$$u$

Python 3 với numpy, 51 45 byte

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

Hãy thử trực tuyến!

-6 byte nhờ @xnor

Hàm lấy hai đối số: numpyma trận và vectơ hoán vị có các giá trị từ $0$ đến $n-1$ .

Ngôn ngữ Wolfram (Mathicala) , 30 byte

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

Hãy thử trực tuyến!

Đầu vào như f[A][u].

PowerShell , 78 73 71 byte

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

Hãy thử trực tuyến .

Thạch , 13 byte

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

Hãy thử trực tuyến!

J , 19 byte

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

Hãy thử trực tuyến!

• Động từ chính ]/:~"1/:
  • Bên phải hầu hết /:sắp xếp arg bên trái (ma trận) theo thứ tự sẽ sắp xếp arg bên phải (thứ tự được chỉ định). Điều này sắp xếp hàng.
  • Bây giờ kết quả đó được sắp xếp /:~"1lại theo thứ tự được chỉ định ]. Nhưng lần này chúng tôi sắp xếp với thứ hạng 1, tức là chúng tôi sắp xếp từng hàng, có tác dụng sắp xếp các cột.
• ],:/:Chúng tôi áp dụng cách trên bằng cách sử dụng cả thứ tự được chỉ định ]và xếp loại của đơn hàng được chỉ định /:. Điều này cho chúng tôi 2 kết quả mà chúng tôi muốn.

JavaScript (Node.js) , 77 70 68 byte

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

Hãy thử trực tuyến!

APL (Dyalog Extended) , 12 byte ^SBCS

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

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

Hãy thử trực tuyến!

⎕$u$[3,1,2]

⍮⍨ juxtap vị trí-selfie; [[3,1,2],[3,1,2]]

⍋¨ hoán vị-nghịch đảo của mỗi; [[2,3,1],[2,3,1]]
⍛ sau đó
⍮⍨ juxtapose với chính nó[[[2,3,1],[2,3,1]],[[3,1,2],[3,1,2]]]

⌷
∘
⎕ $A$
¨

J , 17 16 15 14 byte

-1 cảm ơn @Jonah

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

Hãy thử trực tuyến!

Than , 24 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Chỉ số 0. Lưu ý: Không gian lưu trữ. Giải trình:

    η                       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

Kotlin , 213 byte

{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(" "))}

Hãy thử trực tuyến!

APL + THẮNG, 21 byte

Nhắc nhở đầu vào của u theo sau là a. Đầu ra b ngay lập tức trên đỉnh c không có dấu phân cách:

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

Hãy thử trực tuyến! Lịch sự của Dyalog Classic

Perl 5 , 79 byte

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

Hãy thử trực tuyến!

Thạch ,  12 11  13 byte

+2 :( để sửa các trường hợp khi B = C

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

Một liên kết dyadic chấp nhận một danh sách các danh sách, A( nbởi n), ở bên trái và một danh sách các nsố nguyên đầu tiên bên phải u, trong đó đưa ra một danh sách các danh sách , [B, C].

Hãy thử trực tuyến!

Làm sao?

ṭþ`œị¥@Ƭị@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 byte

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

iasc trả về các chỉ mục để sắp xếp đối số của nó.

Sạch sẽ , 91 byte

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

Hãy thử trực tuyến!

Xác định $ :: {{a}} [Int] -> [{{a}}](được sử dụng với a = Int) lấy một mảng các mảng và một danh sách các chỉ số dựa trên zero, trả về một danh sách các mảng chứa B và C.

Python 3 , 91 byte

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))]]]

Hãy thử trực tuyến!

Lấy tham số dưới dạng danh sách 2D và 1D và trả về danh sách chứa hai danh sách 2D B và C. Tôi không chắc có cách nào sạch hơn để thực hiện tất cả các vòng lặp không.

C ++ (gcc) , 148 142 byte

#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];}

Hãy thử trực tuyến!

Nhờ đề xuất @ceilingcat để sử dụng #import <queue> thay vì <vector> mà bí ẩn mang đến std :: vector