Tôi đã từng có một mảng hình chữ nhật đẹp. Nó rất cân xứng, nhưng thật không may, nó đã sụp đổ và bây giờ tôi chỉ có góc trên cùng bên trái. Nhiệm vụ của bạn sẽ là xây dựng lại mảng ban đầu.

Chương trình của bạn sẽ nhận được một mảng số nguyên 2 chiều. Để dễ phân tích cú pháp, bạn có thể giả sử tất cả chúng đều nằm trong khoảng từ 1 đến 9. Nhiệm vụ của bạn là đảo ngược các cột của hàng, các hàng của nó và cả hai, ghép các góc kết quả lại với nhau và trả về mảng kết quả.

Bạn có thể giả sử kích thước mảng sẽ ít nhất là 1x1.

Các trường hợp thử nghiệm:

Input:
1 2 3
4 5 6

Output:
1 2 3 3 2 1
4 5 6 6 5 4
4 5 6 6 5 4
1 2 3 3 2 1

Input:
1

Output:
1 1
1 1

Input:
9
9
9

Output:
9 9
9 9
9 9
9 9
9 9
9 9

Đây là mã golf , ít byte thắng nhất!

Proton , 29 byte

a=>[b+b[by-1]for b:a+a[by-1]]

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

Có một vài cách tiếp cận thú vị khác:

Proton , 29 byte

a=>map(g,(g=x=>x+x[by-1])(a))

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

Bạn có thể định nghĩa hàm phụ gương gtrong dòng, vì Proton. Nó không ngắn hơn mặc dù.

Proton , 36 byte

(a=>[x[0]for x:zip(*(a+a[by-1]))])*2

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

Đây phải (a=>zip(*(a+a[by-1])))*2là 24 byte, nhưng chức năng zip bị hỏng hoàn toàn. Về cơ bản, bạn phản chiếu nó và zip, sau đó thực hiện hai lần (bạn có thể nhân một hàm với một số nguyên dương để áp dụng hàm nhiều lần).

Canvas , 1 byte

╬

Hãy thử nó ở đây!

Đầu ra dưới dạng một chuỗi nhiều dòng

Haskell, 25 24 byte

r=(++)<*>reverse
r.map r

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

Python 3, 38 byte

lambda a:[b+b[::-1]for b in a+a[::-1]]

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

Đưa ra một danh sách các danh sách và trả về một danh sách các danh sách.

Giải trình:

lambda a:                              # anonymous lambda function
                   for b in a+a[::-1]  # for each row in the array and the upside-down array
          b+b[::-1]                    # the row with its reverse appended
         [                           ] # return in a list

Husk ,  7  6 byte

Thật trùng hợp, Erik đã đăng cùng một mã chính xác trong phòng chat Husk khoảng một phút trước khi tôi đăng bài này.

‼oTS+↔

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

Phiên bản phổ biến, 7 byte :

mS+↔S+↔

Võng mạc , 13 byte

\%`$
$^$`
Vs`

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

Giải trình

\%`$
$^$`

Trên mỗi dòng ( %), khớp phần cuối của dòng ( $) và chèn đảo ngược ( $^) của toàn bộ dòng ( $`) và in kết quả bằng một dòng feedfeed ( \). Điều này thực hiện sự phản chiếu dọc theo trục dọc và in nửa đầu ra.

Vs`

Điều này chỉ đảo ngược toàn bộ chuỗi, tương đương với xoay 180 độ hoặc trong trường hợp của chúng tôi (do tính đối xứng ngang) một phản xạ dọc theo trục ngang. Cách này hoạt động là Vregex mặc định (đảo ngược) (?m:^.*$), thường khớp với từng dòng của chuỗi. Tuy nhiên, chúng tôi kích hoạt tùy chọn singleline s, điều này cũng tạo ra các dòng .phù hợp và do đó regex mặc định này thực sự khớp với toàn bộ chuỗi.

Kết quả của việc này được in tự động vào cuối chương trình, cho chúng ta nửa sau của đầu ra.

05AB1E , 2 byte

∞∊

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

   # Input:Array of String | ['12','34']
---#-----------------------+------------------------------------------
∞  # Mirror horizontally.  | [12,34]       -> [1221,3443]
 ∊ # Mirror vertically.    | [1221,3443]   -> [1221\n3443\n3443\n1221]

Tín dụng cho ông Xcoder chỉ ra rằng các mảng chuỗi có thể được tính là mảng 2D và Pavel để xác nhận nó.

Thạch , 5 byte

m€0m0

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

MATL , 5 byte

,tPv!

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

Giải trình:

(implicit input)
,               # do twice:
 t              # dup top of stack
 P              # flip vertically
 v              # vertically concatenate
 !              # transpose
(implicit output)

Octave ,  33  29 byte

Cảm ơn @Giuseppe vì đã chơi golf bốn byte!

@(A)[B=[A;flip(A)] fliplr(B)]

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

JavaScript (Node.js) , 62 55 49 46 byte

A=>(j=x=>[...x,...[...x].reverse()])(A).map(j)

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

Bởi vì Array.prototype.reverse()đảo ngược mảng tại chỗ, tôi phải tạo một bản sao nông ở đâu đó trước. A=>(j=x=>[...x,...x.reverse()])(A).map(j)không hoạt động.

J , 12 byte

(,|.)@,.|."1

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

Giải trình

         |."1 - reverse each row
       ,.     - and stitch them to the input
 (   )@       - and 
  ,|.         - append the rows in reversed order        

ôi, 88 byte

{s="";for(i=NF;i>0;i--)s=" "$i s" "$i;a[FNR]=s;print s}END{for(i=NR;i>0;i--)print a[i]}

Hình tam giác , 31 byte

...)...
..IEM..
.DRs+}.
DRs+...

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

Giải trình

Loại bỏ các ký tự tạo nên phần đệm, đây là những gì chương trình thực hiện:

)IEMDRs+}DRs+ – Full program. Takes a matrix as a 2D list from STDIN.
)             – Push a 0 onto the stack.
 I            – Take the input at that index.
  E           – Evaluate it.
   M    }     – For each row...
    DR        – Duplicate and replace the second copy by its reverse.
      s+      – Swap and append.
         DR   – Duplicate the result and replace the second copy by its reverse.
           s+ – Swap and append.

R , 57 byte

function(m)rbind(N<-cbind(m,m[,ncol(m):1]),N[nrow(N):1,])

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

APL + THẮNG, 11 byte

Nhắc cho một mảng 2d số nguyên.

m⍪⊖m←m,⌽m←⎕

Stax , 5 byte

:mm:m

Chạy và gỡ lỗi trực tuyến

:mcó nghĩa là gương, đó là input.concat(reverse(input)). m, trong ngữ cảnh này có nghĩa là đầu ra mỗi dòng sau khi áp dụng ...

Vì vậy, phản chiếu mảng của các hàng, và sau đó phản chiếu từng hàng và đầu ra.

Japt , 6 byte

mê1 ê1

Hãy thử nó ở đây

Giải trình

           :Implicit input of 2D array
m          :Map
 ê1        :  Mirror sub array
    ê1     :Mirror main array

Toán học , 29 byte

(g=#~Join~Reverse@#&)@*Map[g]

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

SOGL V0.12 , 2 byte

-1 byte nhờ dzaima.

╬ø

Hãy thử nó ở đây!

APL (Dyalog Classic) , 7 byte

⍪∘⊖⍨⊢,⌽

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

Ruby , 35 byte

->a{r=->b{b+b.reverse}
r[a].map &r}

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

Một lambda chấp nhận một mảng 2D và trả về một mảng 2D. Thật đơn giản, nhưng dù sao đây cũng là phiên bản không có bản quyền:

->a{
  r=->b{ b+b.reverse } # r is a lambda that returns the argument and its reverse
  r[a].map &r          # Add the array's reverse, then add each row's reverse
}

Java 8, 140 131 byte

m->{String r="";for(int a=m.length,b=m[0].length,i=a+a,j;i-->0;r+="\n")for(j=b+b;j-->0;)r+=m[i<a?i:a+a+~i][j<b?j:b+b+~j];return r;}

Giải trình:

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

m->{                      // Method with integer-matrix parameter and String return-type
  String r="";            //  Result-String, starting empty
  for(int a=m.length,     //  Amount of rows of the input-matrix
          b=m[0].length,  //  Amount of columns of the input-matrix
          i=a+a,j;        //  Index integers
      i-->0;              //  Loop over double the rows
      r+="\n")            //    After every iteration: append a new-line to the result
     for(j=b+b;j-->0;)    //   Inner loop over double the columns
       r+=                //    Append the result with:
          m[i<a?          //     If `i` is smaller than the amount of rows
             i            //      Use `i` as index in the input-matrix
            :             //     Else:
             a+a+~i]      //      Use `a+a+i-1` as index instead
           [j<b?          //     If `j` is smaller than the amount of columns
             j            //      Use `j` as index in the input-matrix
            :             //     Else:
             b+b+~j];     //      Use `b+b+j-1` as index instead
  return r;}              //  Return the result-String

J , 11 byte

Chức năng tiền tố ẩn danh.

|:@(,|.)^:2

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

|: hoán vị

@(…) kết quả của:

 , cuộc tranh cãi theo sau

 |. nó đảo ngược

^:2 và tất cả điều này được thực hiện hai lần

SNOBOL4 (CSNOBOL4) , 119 113 byte

	T =TABLE()
I	X =X + 1
	I =INPUT	:F(D)
	OUTPUT =T<X> =I REVERSE(I)	:(I)
D	X =X - 1
	OUTPUT =GT(X) T<X>	:S(D)
END	

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

Lấy đầu vào dưới dạng chuỗi trên STDIN, không có khoảng trắng. Điều này chỉ hoạt động vì các chữ số được 1-9và sẽ thất bại.

C (gcc) , 114 111 byte

• Đã lưu ba byte nhờ Kevin Cruijssen ; đảo ngược các vòng lặp.

j,i;f(A,w,h)int*A;{for(i=h+h;i-->0;puts(""))for(j=w+w;j-->0;)printf("%d,",A[(i<h?i:h+h+~i)*w+(j<w?j:w+w+~j)]);}

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

C (gcc) , 109 byte (lạm dụng dễ phân tích cú pháp)

• Cảm ơn Kevin Cruijssen đã đề nghị chỉ cho phép số nguyên đầu vào một chữ số; lưu hai byte.

j,i;f(A,w,h)int*A;{for(i=h+h;i-->0;puts(""))for(j=w+w;j-->0;)putchar(A[(i<h?i:h+h+~i)*w+(j<w?j:w+w+~j)]+48);}

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

Than , 5 byte

θ‖Ｃ→↓

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

Cảm ơn ASCII - chỉ cho định dạng đầu vào tốt hơn.

Thêm ++ , 30 byte

D,f,@,bU€{r}B]{r}
D,r,@,dbR+

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

Chân trang chỉ đơn giản là biến mảng lồng nhau thành định dạng trong câu hỏi. Xác định một hàm f, dự kiến ​​một ma trận (mảng lồng nhau) làm đối số.

Julia 0,6 , 55 49 byte

~i=i:-1:1
!x=[x x[:,~end];x[~end,:] x[~end,~end]]

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

~(i)là một chức năng để tạo ra lát từ ixuống 1.
Vì vậy, ~endcho látend:-1:1

!(x) là chức năng để thực hiện việc xây dựng lại mảng.

V , 12 byte

yGæGPÎy$æ_|P

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

Giải trình:

yG              " Yank every line
  æG            " Reverse the order of the lines
    P           " Paste what we yanked
     Î          " On every line:
      y$        "   Yank the whole line
        æ_      "   Reverse the whole line
          |     "   Move to the beginning of the line
           P    "   Paste what we yanked