あなたが正方形与えられる行列、リスト（またはベクトル）長さの数を含む介して（またはを介して）。タスクは、指定された順序に従って行列列と行を並べ替えることです。$n \times n$$A$$u$$n$$1$$n$$0$$n-1$$A$$u$

つまり、あなたがマトリックス構築物であろう番目の要素である番目の要素。このアクションの逆も出力する必要があります。つまり、の（i、j）番目の要素位置してしまう新しい行列にC。$B$$(i,j)$$(u(i),u(j))$$A$$A$$(u(i),u(j))$$C$

たとえば、

出力は

デフォルトのI / Oメソッドのいずれかを介して入力および出力を取得できます。両方を出力する限り、どちらの行列が$B$または$C$であるかを指定する必要はありません。$A$は正の整数のみが含まれていると想定でき、$u$は1または0ベースのインデックスを使用できます。少なくともサイズ$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])

オンラインでお試しください！

かかるAようにmatrixと1ベースのインデックス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に感謝します！

ここでは、uを元に戻す順列に等しいベクトル$v$定義することにより、両方のタスクで基本的なインデックス付けが機能します。場合すなわち、uは= （3 、1 、2 ）その後の最初の要素vが 1の第二の位置にあるので、2であるU。これは、Octaveのソート機能で実現されます。$u$$u = ( 3, 1, 2 )$$v$$u$

Pythonの3 numpyのと、51の 45バイト

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

オンラインでお試しください！

@xnorのおかげで-6バイト

関数は2つの引数を取る：numpyマトリックスと置換ベクトルは、の値を有する$0$まで$n-1$。

Wolfram言語（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/:
  • 右側/:は、右側の引数を並べ替える順序（指定された順序）に従って、左側の引数（行列）を並べ替えます。これにより行がソートされます。
  • その結果/:~"1は、指定された順序に従って再びソートされます]。しかし、今回はランク1でソートしています。つまり、各行をソートしています。これは列をソートする効果があります。
• ],:/:指定された順序と指定された順序]のグレードアップの両方を使用して上記を適用します/:。これにより、必要な2つの結果が得られます。

JavaScript（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$ and then $A$. Prints $C$ next to $B$, separated by two spaces

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

Try it online!

⎕ prompt for $u$; [3,1,2]

⍮⍨ juxtaposition-selfie; [[3,1,2],[3,1,2]]

⍋¨ permutation-inversion of each; [[2,3,1],[2,3,1]]
⍛ then
⍮⍨ juxtapose with itself [[[2,3,1],[2,3,1]],[[3,1,2],[3,1,2]]]

⌷ reorder
∘ the value of
⎕ $A$ as inputted
¨ using each pair as a set of orders, one order per axis

J, 17 16 15 14 bytes

-1 thanks to @Jonah

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

Try it online!

Charcoal, 24 bytes

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

Try it online! Link is to verbose version of code. 0-indexed. Note: Trailing space. Explanation:

    η                       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 bytes

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

Try it online!

APL+WIN, 21 bytes

Prompts for input of u followed by a. Outputs b immediately over the top of c with no separator:

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

Try it online! Courtesy of Dyalog Classic

Perl 5, 79 bytes

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

Try it online!

Jelly,  12 11  13 bytes

+2 :( to fix cases when B = C

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

A dyadic Link accepting a list of lists, A (n by n), on the left and a list of the first n integers on the right, u, which yields a list of lists of lists, [B, C].

Try it online!

How?

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

オンラインでお試しください！

配列の配列とゼロベースのインデックスのリストを取り、BおよびCを含む配列の配列のリストを返すことを定義します$ :: {{a}} [Int] -> [{{a}}]（で使用しますa = Int）。

Python 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リストとして取得し、2つの2DリストBおよびCを含むリストを返します。すべてのforループを実行するよりクリーンな方法があるかどうかはわかりません。

C ++（gcc）、148 142バイト

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

オンラインでお試しください！

不思議なことにstd :: vectorをもたらす<vector>の代わりに#import <queue>を使用する@ceilingcatの提案に感謝します。