Köşeden dikdörtgen bir dizi yeniden oluşturun

30

Bir zamanlar güzel bir dikdörtgen dizi vardı. Çok simetrikti, ama ne yazık ki parçalandı ve şimdi sadece sol üst köşeye sahibim. Göreviniz orijinal diziyi yeniden oluşturmak olacak.

Programınız 2 boyutlu bir tamsayı dizisi alır. Ayrıştırma kolaylığı için, hepsinin 1 ile 9 arasında olduğunu varsayabilirsiniz. Göreviniz, dizinin sütunlarını, satırlarını ve her ikisini birden, sonuçtaki köşeleri birleştirmek ve elde edilen diziyi döndürmektir.

Dizi boyutlarının en az 1x1 olacağını varsayabilirsiniz.

Test durumları:

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

Bu kod golf , en az bayt kazanıyor!

code-golf  array-manipulation  matrix 
— Pavel
kaynak
1
Kömürün 10'un altında bunu yapabileceğine bahse girerim
— FantaC
1
@tbfninja chat.stackexchange.com/transcript/message/43184083#43184083, ancak farklı bir giriş biçiminde daha kısa olabilir.
— Pavel
@MagicOctopusUrn evet
— Pavel
2
@tfbninja ＷＳ⟦ι⟧‖Ｍ→↓belki de? Girişi okumak için 5 bayt ve yansıtmak için 4.
— Neil
4
Bunu yapan ╬(ya da benzer bir karakterle) bunu yapan bir lang olduğundan emin olduğumdan% 99 eminim sadece hangisini hatırlayamıyorum: c
— Rod

Yanıtlar:

1

Proton , 29 bayt

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

Çevrimiçi deneyin!

Yine de başka ilginç yaklaşımlar var:

Proton , 29 bayt

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

Çevrimiçi deneyin!

gProton, çünkü ayna alt işlevini satır içi tanımlayabilirsiniz . Yine de daha kısa değil.

Proton , 36 bayt

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

Çevrimiçi deneyin!

Bu (a=>zip(*(a+a[by-1])))*224 bayt olmalı , ancak zip işlevi tamamen bozuldu. Temel olarak, onu yansıtır ve sıkıştırır ve sonra bunu iki kez yaparsınız (işlevi birden çok kez uygulamak için bir işlevi pozitif bir tamsayı ile çarpabilirsiniz).

— HyperNeutrino
kaynak
5

Python 3, 38 bayt

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

Çevrimiçi deneyin!

Bir liste listesini alır ve bir liste listesini döndürür.

Açıklama: 

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
— pizzapants184
kaynak
5

Retina , 13 bayt

\%`$
$^$`
Vs`

Çevrimiçi deneyin!

açıklama

\%`$
$^$`

Her satırda ( %), satırın sonuyla ( ) eşleştirin ve tüm satırın ( ) $tersini ( $^) ekleyin $`ve sonucu satır sonlu bir besleme ( \) ile yazdırın . Bu, dikey eksen boyunca yansımayı yapar ve çıktının ilk yarısını yazdırır.

Vs`

Bu sadece 180 ° derece dönüşe eşdeğer olan dizinin tamamını veya bizim durumumuzda (yatay simetri nedeniyle) yatay eksen boyunca bir yansımayı tersine çevirir. Bu şekilde çalışır, normalde dizenin her bir çizgisiyle eşleşen Vvarsayılan (ters) varsayılan düzenli ifadedir (?m:^.*$). Bununla birlikte, eşleştirme satır öğelerini sde yapan tekli seçeneğini etkinleştiririz .ve bu nedenle bu varsayılan regex gerçekte tüm dizeyle eşleşir.

Bunun sonucu programın sonunda otomatik olarak yazdırılır, bu da çıktının ikinci yarısını bize verir.

— Martin Ender
kaynak
Bu bildiğim herhangi bir regex tadı gibi görünmüyor: P
— Pavel
@Pavel Çünkü Retina sadece regex değildir. :)
— Outgolfer Erik,
@Pavel bu kodun asıl regex olan tek kısmı $ilk satırdır. ;) Daha sonra bir açıklama ekleyeceğim.
— Martin Ender
5

05AB1E , 2 bayt

∞∊

Çevrimiçi deneyin!

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

Credit for Mr. Xcoder pointing out that arrays of string may count as 2D arrays and Pavel for confirming it.

— Magic Octopus Urn
kaynak
— Mr. Xcoder
For ease of parsing, you may assume they are all between 1 and 9 – So I think this is valid. Awaiting Pavel's confirmation, I guess
— Mr. Xcoder
@Mr.Xcoder that was what I had initially, then the TIO 2D arrays as input was weird... so had to come up with that header stuff.
— Magic Octopus Urn
A string is an array of characters, so a list of strings is still a 2d array. @Mr.Xcoder's solution is valid.
— Pavel
Coolio, works for me.
— Magic Octopus Urn
3

MATL, 5 bytes

,tPv!

Try it online!

Explanation:

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

— Giuseppe
kaynak
3

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

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

Try it online!

Because Array.prototype.reverse() reverses the array in place, I have to make a shallow copy somewhere first. A=>(j=x=>[...x,...x.reverse()])(A).map(j) does not work.

— Shieru Asakoto
kaynak
3

J, 12 bytes

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

Try it online!

Explanation

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

awk, 88 bytes

{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]}
— mmuntag
kaynak
3
Welcome to PPCG! Nice first answer :)
— HyperNeutrino
2

Triangularity, 31 bytes

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

Try it online!

Explanation

Removing the characters that make up for the padding, here is what the program does:

)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.
— Mr. Xcoder
kaynak
2

APL+WIN, 11 bytes

Prompts for a 2d array of integers.

m⍪⊖m←m,⌽m←⎕
— Graham
kaynak
2

Stax, 5 bytes

:mm:m

Run and debug it online

:m means mirror, which is input.concat(reverse(input)). m, in this context means output each line after applying...

So, mirror the array of rows, and then mirror each row and output.

— recursive
kaynak
2

Japt, 6 bytes

mê1 ê1

Try it here

Explanation

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

Ruby, 35 bytes

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

Try it online!

A lambda accepting a 2D array and returning a 2D array. It's straightforward, but here's the ungolfed version anyway:

->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
}
— benj2240
kaynak
2

Java 8, 140 131 bytes

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

Explanation:

Try it online.

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
— Kevin Cruijssen
kaynak
2

J, 11 bytes

Anonymous tacit prefix function.

|:@(,|.)^:2

Try it online!

|: transpose

@(…) the result of:

 , the argument followed by

 |. its reverse

^:2 and all this done twice

— Adám
kaynak
2

SNOBOL4 (CSNOBOL4), 119 113 bytes

	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

Try it online!

Takes input as strings on STDIN, without spaces. This only works because the digits are 1-9 and would fail otherwise.

— Giuseppe
kaynak
I can see why people don't use this language anymore. This is so weird.
— Pavel
1
@Pavel SNOBOL is truly a terrible language to work with. this is a more modern C implementation of it which has additional builtin functions like REVERSE; the original only supported integer arithmetic as well, as far as I can tell.
— Giuseppe
2

C (gcc), 114 111 bytes

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

Try it online!

C (gcc), 109 bytes (abusing ease of parsing)

  • Thanks to Kevin Cruijssen for suggesting to only allow one-digit input integers; saved two bytes.
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);}

Try it online!

— Jonathan Frech
kaynak
You can save 3 bytes by inverting the loops. for(i=h+h;i-->0;puts(""))for(j=w+w;j-->0;)
— Kevin Cruijssen
Does not fulfill spec; prints the array, rather than returning it.
"For ease of parsing, you may assume they are all between 1 and 9.", so you can remove the comma in the printf("%d" for an additional -1 byte.
— Kevin Cruijssen
@Rogem I would say printing the array falls under accepted i/o.
— Jonathan Frech
1
@KevinCruijssen Thanks a lot; using the ease of parsing I managed to shave off another byte.
— Jonathan Frech
2

Charcoal, 5 bytes

θ‖Ｃ→↓

Try it online!

Thanks to ASCII-only for a better input format.

— Erik the Outgolfer
kaynak
I wonder if this input format is valid, since I'm afraid Charcoal can't handle input otherwise. If it isn't, I'll happily delete this answer.
— Erik the Outgolfer
This is valid I/o.
— Pavel
@Pavel I just wondered because you had said that "Your program will receive a 2 dimensional array of integers", while a string is 1-dimensional (and no, the outer [] don't exactly make it 2D).
— Erik the Outgolfer
@ASCII-only Charcoal really needs a better I/O method...
— Neil
@Neil He didn't get pinged here, but I pinged him over TNB. :)
— Erik the Outgolfer
2

Add++, 30 bytes

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

Try it online!

The footer simply transforms the nested array into the format in the question. Defines a function f, which expects a matrix (nested array) as an argument.

— caird coinheringaahing
kaynak
1

Julia 0.6, 55 49 bytes

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

Try it online!

~(i) is a function to create slice from i down to 1.
So ~end gives the slice end:-1:1

!(x) is the function to do the rebuilding of the array.

— Lyndon White
kaynak
1

V, 12 bytes

yGæGPÎy$æ_|P

Try it online!

Explanation:

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
— DJMcMayhem
kaynak
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.