ฉันเคยมีอาร์เรย์เป็นรูปสี่เหลี่ยมผืนผ้าที่สวยงาม มันค่อนข้างสมมาตร แต่โชคไม่ดีที่มันพังทลายและตอนนี้ฉันมีมุมซ้ายบนเท่านั้น งานของคุณคือการสร้างอาร์เรย์เดิมขึ้นมาใหม่

โปรแกรมของคุณจะได้รับอาร์เรย์จำนวนเต็มสองมิติ เพื่อความสะดวกในการวิเคราะห์คุณอาจคิดว่ามันอยู่ระหว่าง 1 ถึง 9 งานของคุณคือการกลับคอลัมน์ของแถว, แถวของมันและทั้งสองกลับเข้าที่มุมผลลัพธ์และกลับอาร์เรย์ผลลัพธ์

คุณสามารถสันนิษฐานได้ว่าขนาดของอาร์เรย์จะมีอย่างน้อย 1x1

กรณีทดสอบ:

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

นี่คือcode-golf , ไบต์ที่น้อยที่สุดชนะ!

โปรตอน , 29 ไบต์

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

ลองออนไลน์!

มีวิธีที่น่าสนใจอื่น ๆ อีกสองสามประการดังนี้:

โปรตอน , 29 ไบต์

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

ลองออนไลน์!

คุณสามารถกำหนดฟังก์ชั่นย่อยของมิเรอร์gในบรรทัดได้เนื่องจาก Proton มันไม่ได้สั้นกว่า

โปรตอนขนาด 36 ไบต์

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

ลองออนไลน์!

นี่ควร(a=>zip(*(a+a[by-1])))*2เป็น 24 ไบต์ แต่ฟังก์ชันซิปเสียอย่างสมบูรณ์ โดยทั่วไปคุณสะท้อนและ zip แล้วทำสองครั้ง (คุณสามารถคูณฟังก์ชันด้วยจำนวนเต็มบวกเพื่อใช้ฟังก์ชันหลายครั้ง)

Canvas , 1 ไบต์

╬

ลองที่นี่!

ส่งออกเป็นสตริงหลายบรรทัด

Haskell, 25 24 ไบต์

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

ลองออนไลน์!

Python 3, 38 ไบต์

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

ลองออนไลน์!

ใช้รายการของรายการและส่งคืนรายการ

คำอธิบาย:

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 ไบต์

บังเอิญเอริคโพสต์รหัสเดียวกันแน่นอนในห้องสนทนาแกลบประมาณหนึ่งนาทีก่อนที่ฉันจะโพสต์นี้

‼oTS+↔

ลองออนไลน์!

เวอร์ชั่นที่น่ารำคาญ7 ไบต์ :

mS+↔S+↔

เรติน่า 13 ไบต์

\%`$
$^$`
Vs`

ลองออนไลน์!

คำอธิบาย

\%`$
$^$`

ในแต่ละบรรทัด ( %) จับคู่ส่วนท้ายของบรรทัด ( $) และใส่ย้อนกลับ ( $^) ของทั้งบรรทัด ( $`) และพิมพ์ผลลัพธ์ด้วยการป้อนบรรทัดต่อท้าย ( \) สิ่งนี้จะสะท้อนกลับไปตามแกนตั้งและพิมพ์ครึ่งแรกของเอาต์พุต

Vs`

นี่แค่ย้อนกลับสตริงทั้งหมดซึ่งเทียบเท่ากับการหมุน 180 องศาหรือในกรณีของเรา (เนื่องจากสมมาตรแนวนอน) การสะท้อนตามแนวแกนนอน วิธีนี้ใช้งานได้คือVregex เริ่มต้นของ (ย้อนกลับ) (?m:^.*$)ซึ่งโดยทั่วไปจะจับคู่แต่ละบรรทัดของสตริง อย่างไรก็ตามเราเปิดใช้งานตัวเลือก singleline sซึ่งทำให้การ.จับคู่ linefeeds เป็นอย่างดีและทำให้ regex เริ่มต้นนี้ตรงกับสตริงทั้งหมด

ผลลัพธ์ของสิ่งนี้จะถูกพิมพ์โดยอัตโนมัติเมื่อสิ้นสุดโปรแกรมทำให้เราได้ผลลัพธ์ครึ่งหลัง

05AB1E , 2 ไบต์

∞∊

ลองออนไลน์!

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

เครดิตสำหรับนาย Xcoderชี้ให้เห็นว่าอาร์เรย์ของสตริงอาจนับเป็นอาร์เรย์ 2 มิติและพาเวลสำหรับการยืนยัน

เยลลี่ 5 ไบต์

m€0m0

ลองออนไลน์!

MATL , 5 ไบต์

,tPv!

ลองออนไลน์!

คำอธิบาย:

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

อ็อกเทฟ 33 33 ไบต์

ขอบคุณ @Giuseppe สำหรับการเล่นกอล์ฟสี่ไบต์!

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

ลองออนไลน์!

JavaScript (Node.js) , 62 55 49 46 ไบต์

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

ลองออนไลน์!

เนื่องจากArray.prototype.reverse()ย้อนกลับอาร์เรย์ในสถานที่ที่ฉันต้องทำสำเนาตื้น ๆ ที่แรก A=>(j=x=>[...x,...x.reverse()])(A).map(j)ไม่สำเร็จ.

J , 12 ไบต์

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

ลองออนไลน์!

คำอธิบาย

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

awk, 88 ไบต์

{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]}

รูปสามเหลี่ยม 31 ไบต์

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

ลองออนไลน์!

คำอธิบาย

การลบอักขระที่ใช้สำหรับการขยายนี่คือสิ่งที่โปรแกรมทำ:

)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 ไบต์

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

ลองออนไลน์!

APL + WIN, 11 ไบต์

พร้อมต์สำหรับอาร์เรย์จำนวนเต็ม 2d

m⍪⊖m←m,⌽m←⎕

Stax , 5 ไบต์

:mm:m

เรียกใช้และตรวจแก้จุดบกพร่องออนไลน์

:minput.concat(reverse(input))หมายถึงกระจกซึ่งเป็น mในบริบทนี้หมายถึงเอาต์พุตแต่ละบรรทัดหลังจากใช้ ...

ดังนั้นทำมิเรอร์อาร์เรย์ของแถวจากนั้นทำมิเรอร์แต่ละแถวและเอาต์พุต

Japtap , 6 ไบต์

mê1 ê1

ลองที่นี่

คำอธิบาย

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

Mathematica , 29 ไบต์

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

ลองออนไลน์!

SOGL V0.12 , 2 ไบต์

-1 ไบต์ขอบคุณ dzaima

╬ø

ลองที่นี่!

APL (Dyalog Classic)ขนาด 7 ไบต์

⍪∘⊖⍨⊢,⌽

ลองออนไลน์!

Ruby , 35 ไบต์

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

ลองออนไลน์!

แลมบ์ดายอมรับอาร์เรย์ 2D แล้วส่งกลับอาร์เรย์ 2D มันตรงไปตรงมา แต่นี่เป็นเวอร์ชั่นที่ไม่ดีต่อสุขภาพ:

->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 ไบต์

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

คำอธิบาย:

ลองออนไลน์

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 ไบต์

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ

|:@(,|.)^:2

ลองออนไลน์!

|: transpose

@(…) ผลลัพธ์ของ:

 , อาร์กิวเมนต์ตามมาด้วย

 |. มันกลับ

^:2 และทั้งหมดนี้ทำสองครั้ง

SNOBOL4 (CSNOBOL4) , 119 113 ไบต์

	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	

ลองออนไลน์!

รับอินพุตเป็นสตริงบน STDIN โดยไม่มีช่องว่าง ใช้งานได้เพียงเพราะตัวเลขเป็น1-9และจะล้มเหลวเป็นอย่างอื่น

C (gcc) , 114 111 bytes

• บันทึกสามไบต์ด้วยKevin Cruijssen ; กลับหัวกลับหาง

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

ลองออนไลน์!

C (gcc) , 109 ไบต์ (ใช้งานง่ายในการแยกวิเคราะห์)

• ขอบคุณKevin Cruijssen ที่แนะนำให้อนุญาตให้ใช้เฉพาะจำนวนเต็มจำนวนเต็มเท่านั้น บันทึกสองไบต์

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);}

ลองออนไลน์!

ถ่าน 5 ไบต์

θ‖Ｃ→↓

ลองออนไลน์!

ขอบคุณASCII-onlyสำหรับรูปแบบอินพุตที่ดีขึ้น

เพิ่ม ++ , 30 ไบต์

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

ลองออนไลน์!

ส่วนท้ายเพียงแปลงอาร์เรย์ที่ซ้อนกันเป็นรูปแบบในคำถาม กำหนดฟังก์ชั่นfซึ่งคาดว่าเมทริกซ์ (อาร์เรย์ที่ซ้อนกัน) เป็นอาร์กิวเมนต์

Julia 0.6 , 55 49 ไบต์

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

ลองออนไลน์!

~(i)เป็นฟังก์ชั่นในการสร้างชิ้นจากลงไปi ดังนั้นให้ชิ้น1
~endend:-1:1

!(x) เป็นฟังก์ชั่นในการสร้างอาร์เรย์ขึ้นใหม่

V , 12 ไบต์

yGæGPÎy$æ_|P

ลองออนไลน์!

คำอธิบาย:

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