Sie erhalten ein Quadrat Matrix und eine Liste (oder einen Vektor) der Länge mit den Zahlen bis (oder bis ). Ihre Aufgabe ist es, die Spalten und Zeilen der Matrix in der in angegebenen Reihenfolge neu anzuordnen .$n \times n$$A$$u$$n$$1$$n$$0$$n-1$A u$A$$u$

Das heißt, Sie konstruieren eine Matrix in der das -te Element das -te Element von . Sie sollten auch die Umkehrung dieser Aktion ausgeben. das heißt, das (i, j) -te Element von wird an der Position am Ende in einer neuen Matrix .$B$$(i,j)$$(u(i),u(j))$$A$$A$$(u(i),u(j))$$C$

Beispiel:

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

Die Ausgabe sollte

$$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}$$

Sie können Eingaben und Ausgaben über eine der Standard-E / A-Methoden vornehmen. Sie müssen nicht angeben, welche Matrix oder , solange Sie beide ausgeben. Sie können annehmen, dass nur positive ganze Zahlen enthält, und Sie können die 1- oder 0-basierte Indizierung für . Sie müssen Matrizen mit einer Größe von mindestens .$B$$C$$A$$u$$64 \times 64$

Beispiel

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

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

Probieren Sie es online!

Nimmt Aals matrixund 1-basierte Indizes o.

MATL , 15 13 Bytes

t3$)&Gw&St3$)

Eingänge u, dann A.

Ausgänge B, dann Cohne Trennzeichen, da keine Mehrdeutigkeit besteht.

Probieren Sie es online!

Erläuterung

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

Oktave , 33 Bytes

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

Probieren Sie es online!

Vielen Dank an Luis für die Korrektur eines Fehlers und das Speichern mehrerer Bytes!

Die grundlegende Indizierung funktioniert hier für beide Aufgaben, indem ein Vektor $v$ definiert wird , der der Permutation entspricht, die $u$ aufhebt . Das heißt, wenn $u = ( 3, 1, 2 )$ dann ist das erste Element von $v$ 2, da 1 in der zweiten Position von $u$ . Dies wird mit Oktaves erreicht Sortierfunktion.

Python 3 mit numpy, 51 45 Bytes

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

Probieren Sie es online!

-6 Bytes dank @xnor

Die Funktion akzeptiert zwei Argumente: eine numpyMatrix und einen Permutationsvektor mit Werten von $0$ bis $n-1$ .

Wolfram Language (Mathematica) , 30 Byte

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

Probieren Sie es online!

Eingabe als f[A][u].

PowerShell , 78 73 71 Bytes

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

Probieren Sie es online aus .

Jelly , 13 Bytes

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

Probieren Sie es online!

J , 19 Bytes

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

Probieren Sie es online!

• Hauptverb ]/:~"1/:
  • Das am weitesten rechts stehende Argument /:sortiert das linke Argument (Matrix) in der Reihenfolge, in der das rechte Argument (angegebene Reihenfolge) sortiert wird. Dies sortiert die Zeilen.
  • Nun wird das Ergebnis /:~"1wieder in der angegebenen Reihenfolge sortiert ]. Aber diesmal sortieren wir mit Rang 1, dh wir sortieren jede Zeile, wodurch Spalten sortiert werden.
• ],:/:Wir wenden das oben Genannte sowohl unter Verwendung der angegebenen Bestellung ]als auch der Bewertung der angegebenen Bestellung an /:. Dies gibt uns die 2 gewünschten Ergebnisse.

JavaScript (Node.js) , 77 70 68 Bytes

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

Probieren Sie es online!

APL (Dyalog Extended) , 12 Byte ^SBCS

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

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

Probieren Sie es online!

⎕$u$[3,1,2]

⍮⍨ Gegenüberstellung-Selfie; [[3,1,2],[3,1,2]]

⍋¨ Permutation-Inversion von jedem; [[2,3,1],[2,3,1]]
⍛ dann
⍮⍨ mit sich selbst gegenüberstellen[[[2,3,1],[2,3,1]],[[3,1,2],[3,1,2]]]

⌷
∘
⎕ $A$
¨

J , 17 16 15 14 Bytes

-1 danke an @Jonah

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

Probieren Sie es online!

Kohle , 24 Bytes

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

Probieren Sie es online! Link ist eine ausführliche Version des Codes. 0-indiziert. Hinweis: Leerzeichen am Ende. Erläuterung:

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

Probieren Sie es online!

APL + WIN, 21 Bytes

Fordert zur Eingabe von u auf, gefolgt von a. Gibt b direkt über c ohne Trennzeichen aus:

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

Probieren Sie es online! Mit freundlicher Genehmigung von Dyalog Classic

Perl 5 , 79 Bytes

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

Probieren Sie es online!

Jelly ,  12 11  13 Bytes

+2 :(, um Fälle zu beheben, in denen B = C ist

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

Ein dyadischer Link, der eine Liste von Listen A( nvon n) auf der linken Seite und eine Liste der ersten nganzen Zahlen auf der rechten Seite akzeptiert u, die eine Liste von Listen von Listen ergibt [B, C].

Probieren Sie es online!

Wie?

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

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

iasc Gibt Indizes zurück, um das Argument zu sortieren.

Sauber , 91 Bytes

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

Probieren Sie es online!

Definiert $ :: {{a}} [Int] -> [{{a}}](verwendet mit a = Int) das Aufnehmen eines Arrays von Arrays und einer Liste von nullbasierten Indizes und das Zurückgeben einer Liste von Arrays von Arrays, die B und C enthalten.

Python 3 , 91 Bytes

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

Probieren Sie es online!

Nimmt Parameter als 2D- und 1D-Liste und gibt eine Liste mit zwei 2D-Listen B und C zurück. Ich bin nicht sicher, ob es eine sauberere Möglichkeit gibt, alle for-Schleifen durchzuführen.

C ++ (GCC) , 148 142 Bytes

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

Probieren Sie es online!

Dank @ceilingcat Vorschlag, #import <queue> anstelle von <vector> zu verwenden, was auf mysteriöse Weise std :: vector bringt