Tantangan Anda hari ini adalah mengambil string multiline, dan menampilkan kuadrat terbesar yang terkandung dalam string yang mencakup sudut kiri atas.

String persegi adalah tempat:

• Setiap baris memiliki jumlah karakter yang sama
• Jumlah karakter pada setiap baris sama dengan jumlah baris.

Pertimbangkan kemungkinan input string berikut:

abcde
fgh
asdf
foobar

Kotak terbesar yang dapat Anda ambil dari itu yang mencakup karakter pertama ( adi sudut kiri atas) adalah ini:

abc
fgh
asd

Tidak mungkin ada persegi panjang sisi 4, karena baris kedua tidak cukup panjang. Sekarang pertimbangkan input potensial ini:

a
bcd
edf
ghi

Alun-alun terbesar di sini adalah adil a. Kotak 3x3 yang terbentuk di bagian bawah tidak mengandung karakter pertama, dan tidak masuk hitungan.

Berikut beberapa kasus uji lagi:

a

a

abc
def
gh

ab
de

ab
cd

ab
cd

abcde
fghij
klm
no

abc
fgh
klm

a
b

a

Anda mungkin memerlukan input untuk dibatasi oleh LF, CR, atau CRLF pilihan Anda.

Karakter baris baru tidak dianggap sebagai bagian dari panjang garis.

Anda mungkin memerlukan ada atau tidak menjadi baris baru di input, yang tidak dihitung sebagai baris tambahan.

Input adalah string atau array char 1D; ini bukan daftar string.

Anda dapat menganggap input tidak kosong dan semua baris tidak kosong, dan hanya berisi ASCII yang dapat dicetak, termasuk spasi dan baris baru (untuk pembatas baris) tetapi tidak tab.

Ini adalah kode-golf , byte terkecil menang!

Brachylog , 11 byte

ṇ⊇ᵐẹa₀ṁcᵐ~ṇ

Cobalah online!

Penjelasan

ṇ             Split on linebreaks
 ⊇ᵐ           Take a subset of each line
   ẹ          Split the lines into list of chars
    a₀        Take a prefix of this list of lists of chars
      ṁ       It is a square matrix
       cᵐ     Concatenate the list of chars back into strings
         ~ṇ   Join the strings with linebreaks

Sekam , 13 byte

►oΛ≈S+TzṀ↑Nḣ¶

Cobalah online!

Penjelasan

►oΛ≈S+TzṀ↑Nḣ¶  Implicit input, say "ab\nc".
            ¶  Split at newlines: ["ab","c"]
           ḣ   Take prefixes: [["ab"],["ab","c"]]
       z  N    Zip with [1,2,3..
        Ṁ↑     by taking that many characters from each row: [["a"],["ab","c"]]
►o             Find rightmost element that satisfies this:
  Λ            all strings in
    S+T        the list concatenated to its transpose
   ≈           have the same length: ["a"]
               Implicitly print separated by newlines.

GNU sed , 106 + 1 94 + 2 = 96 byte

+2 byte untuk -rzbendera. Menggunakan karakter yang tidak patut NUL dan BEL, ditampilkan sebagai @dan di #sini. Lihat di bawah untuk dump xxd.

Terima kasih kepada @seshoumara karena mengirim saya ke jalan menuju -z.

s/^/@/gm
s/.*/#&\n/
:B
s/@(.)/\1@/mg
s/#(.+\n)/\1#/m
/#.*@./M!b
/@\n.*#/!bB
:
s/@[^\n]*|#.*//g

Cobalah online!

Penjelasan

Ini berfungsi dengan memasukkan dua kursor ke dalam teks — satu untuk melangkahi garis dan satu untuk melangkahi kolom. Kursor diwakili oleh NUL (0x00) dan BEL (0x07), masing-masing, tetapi dalam contoh di bawah ini saya akan menggunakan @dan #. Misalkan kita memiliki input ini:

abcde
fgh
asdf
foobar

Kursor BEL disisipkan sebelum kolom ke-0 dan kursor BEL sebelum garis ke-0 (di sini saya telah menjaga kolom tetap selaras untuk keterbacaan; tetapi dalam kenyataannya tidak ada bantalan kiri):

#@abcde
 @fgh
 @asdf
 @foobar

Dalam satu lingkaran, kursor dipindahkan satu karakter ke kanan dan satu baris ke bawah, masing-masing:

 a@bcde
#f@gh
 a@sdf
 f@oobar

 ab@cde
 fg@h
#as@df
 fo@obar

 abc@de
 fgh@
 asd@f
#foo@bar

Setelah setiap iterasi, ia memeriksa dua kondisi:

1. Pada baris dengan kursor baris, apakah ada kursor kolom dan dapatkah kursor kolom bergerak ke kanan?
2. Pada baris sebelum kursor baris, dapatkah setiap kursor kolom bergerak ke kanan?

Jika salah satu kondisi salah, loop berakhir. Script selesai dengan menghapus semuanya setelahnya@ pada setiap baris dan semua setelah #dalam ruang pola.

dump xxd

00000000: 732f 5e2f 002f 676d 0a73 2f2e 2a2f 0726  s/^/./gm.s/.*/.&
00000010: 5c6e 2f0a 3a42 0a73 2f00 282e 292f 5c31  \n/.:B.s/.(.)/\1
00000020: 002f 6d67 0a73 2f07 282e 2b5c 6e29 2f5c  ./mg.s/.(.+\n)/\
00000030: 3107 2f6d 0a2f 072e 2a00 2e2f 4d21 620a  1./m./..*../M!b.
00000040: 2f00 5c6e 2e2a 072f 2162 420a 3a0a 732f  /.\n.*./!bB.:.s/
00000050: 005b 5e5c 6e5d 2a7c 072e 2a2f 2f67       .[^\n]*|..*//g

Python 2 , 81 byte

l=input().split('\n')
i=0
while zip(*l[:i+1])[i:]:i+=1
for x in l[:i]:print x[:i]

Cobalah online!

Metode yang menarik, tetapi 2 byte lebih lama.

Python 2 , 83 byte

l=input().split('\n')
while len(zip(*l))<len(l):l.pop()
for x in l:print x[:len(l)]

Cobalah online!

JavaScript (ES6), 77 byte

f=(s,i=1,m=s.match(`^${`(.{${i}}).*
`.repeat(i)}`))=>m?f(s,i+1)||m.slice(1):0

Secara rekursif menggunakan ekspresi reguler untuk mencari kotak yang lebih besar dan lebih besar sampai tidak ada yang ditemukan.

Ekspresi reguler adalah ini untuk kotak 3x3:

^(.{3}).*
(.{3}).*
(.{3}).*

Input diharapkan berakhir dengan baris baru, dan output adalah daftar.

Penjelasan:

f = (s,                                            //input
     i = 1,                                        //start searching for a 1x1 square
     m = s.match(`^${`(.{${i}}).*\n`.repeat(i)}`)  //match on the regex
    )=>
    m ? f(s, i+1)                   //if there's a match, recurse on the next-sized square
        || m.slice(1) :             //if there's not a next-sized square, return the match
        0                           //no match for this square, so stop recursing

Potongan:

f=(s,i=1,m=s.match(`^${`(.{${i}}).*
`.repeat(i)}`))=>m?f(s,i+1)||m.slice(1):0

console.log(f(`abcde\nfgh\nasdf\nfoobar`));
console.log(f(`a\nbcd\nedf\nghi\n`));
console.log(f(`a\n`));
console.log(f(`abc\ndef\ngh\n`));
console.log(f(`ab\ncd\n`));
console.log(f('abcde\nfghij\nklm\nno'));
console.log(f(`a\nb\n`));

Brachylog , 16 byte

ṇ{ẹa₀ᵐa₀ṁ}ᶠtcᵐ~ṇ

Cobalah online!

Perl 5 , 84 byte

chomp(@a=<>);map$.&&=y///c>$i,@a[0..$i]while$.&&$i++<$#a;say/(.{$i})/ for@a[0..$i-1]

Cobalah online!

Memenuhi "abcde\nfghij\nklm\nno"test case.

R , 84 83 81 76 byte

-5 byte porting pendekatan Dennis dengansum

cat(substr(x<-readLines(),1,m<-sum(cummin(nchar(x))>=seq(x)))[1:m],sep='\n')

Cobalah online!

membaca dari stdin, mencetak ke stdout tanpa baris baru.

Sedikit tidak berbulu:

x <- readLines()                    # read in input one line at a time;
                                    # saved as a vector of strings
minChar <- cummin(nchar(x))         # rolling minimum of all line lengths
lineNum <- seq(x)                   # line number
mins <- minChar>=lineNum            # the min between the line number and the line lengths
m <- sum(mins)                      # the sum of those is the size of the square
cat(substr(x,1,m)[1:m],sep='\n')    # print the first m characters of the first m lines,
                                    # and join with newlines

C (gcc) , 162 159 151 147 144 142 137 byte

Pasti ada pukulan untuk bermain golf di sini ...

i,l=9;char*p,s[9][8];main(t){for(p=s;~(*p=getchar());)p=*p<32?*p=0,l=(t=strlen(s+i))<l?t:l,s[++i]:p+1;for(i=0;i<l;puts(s+i++))s[i][l]=0;}

Cobalah online!

Jelly , 15 byte

L€«\‘>Jx@Z
ỴÇÇY

Cobalah online!

Bagaimana itu bekerja

ỴÇÇY        Main link. Argument: s (string)

Ỵ           Split s at linefeeds, yielding a string array.
 Ç          Apply the helper link.
  Ç         Apply the helper link again.
   Y        Join, separating by linefeeds.


L€«\‘>Jx@Z  Helper link. Argument: A (string array/2D character array)

L€          Compute the length of each row/line.
  «\        Take the cumulative minimum.
    ‘       Increment each minimum.
      J     Indices; yield [1, ..., len(A)].
     >      Perform elementwise comparison. If the output should have n lines, this
            yields an array of n ones and len(A)-n zeroes.
         Z  Zip/transpose A.
       x@   For each string t in the result to the right, repeat its characters as
            many times as indicated in the result to the left, discarding all but
            the first n characters.

Java 8, 150 byte

s->{String q[]=s.split("\n"),r="";int l=q[0].length(),i=0,t;for(;i<l;l=t<l?t:l)t=q[i++].length();for(i=0;i<l;)r+=q[i++].substring(0,l)+"\n";return r;}

Penjelasan:

Coba di sini.

s->{                          // Method with String as both parameter and return-type 
  String q[]=s.split("\n"),   //  Split the input on new-lines, and put it in an array
         r="";                //  Result-String, starting empty
  int l=q[0].length(),        //  Length of the lines, starting at the length of line 1
      i=0,                    //  Index-integer, starting at 0
      t;                      //  Temp integer
  for(;i<l;                   //  Loop (1) from 0 to `l` (exclusive)
      l=t<l?                  //    After every iteration: if `t` is smaller than `l`:
         t                    //     Change `l` to `t`
        :                     //    Else:
         l)                   //     Leave `l` the same
    t=q[i++].length();        //   Set `t` to the length of the current line
                              //  End of loop (1) (implicit / single-line body)
  for(i=0;i<l;                //  Loop (2) from 0 to `l` (the determined square dimension)
    r+=                       //   Append the result-String with:
       q[i++].substring(0,l)  //    The current row chopped at `l-1`
       +"\n"                  //    + a new-line
  );                          //  End of loop (2)
  return r;                   //  Return the result-String
}                             // End of method

MATL , 33 byte

10-~ft1)wdhqY<tn:vX<X>:GYbowt3$)c

Cobalah online!

Perasaan spidey saya memberi tahu saya bahwa mungkin ada cara yang lebih pendek (saya memikirkan sesuatu dengan Ybobenar sejak awal) ... Membutuhkan baris baru di akhir. (Catatan: Saya sedikit over-engineered, karena ini akan menangani garis kosong juga, yang tidak diperlukan. Saya akan melihat apakah saya dapat mengurangi bytecount, karena dalam kode golf, ini bukan fitur, tetapi bug)

Python 2 , 132 byte

def f(s):s=s.split("\n");return["\n".join([l[:j+1]for l in s[:j+1]])for j,v in enumerate(s[0])if all(len(l)>j for l in s[:j+1])][-1]

Cobalah online!

Python 2 , 103 byte

def f(i):
 i=i.split('\n');x=0
 while all(v[x:]for v in i[:x+1])*i[x:]:x+=1
 for v in i[:x]:print v[:x]

Cobalah online!

JavaScript (ES6), 95 byte

f=
s=>(g=s=>s.slice(0,a.findIndex((e,i)=>a.some((s,j)=>j<=i&!s[i]))))(a=s.split`
`).map(g).join`
`

<textarea oninput=o.textContent=f(this.value+`\n`)></textarea><pre id=o>

Membutuhkan jalur baru yang tertinggal dalam input.

Bahasa Wolfram (Mathematica) , 81 byte

Column[For[i=1,d=c;MatrixQ[c=StringExtract[#,"\n"->;;i,""->2;;i+1]],i++];Row/@d]&

Cobalah online!

APL (Dyalog) , 25 byte *

Fungsi awalan Tacit. Mengembalikan matriks.

(↑↑⍨2⍴(⌊/≢,≢¨))⎕AV[3]∘≠⊆⊢

Cobalah online!

Ini benar-benar di atas dua fungsi independen, yaitu ⎕AV[3]∘≠⊆⊢yang berkaitan dengan format input canggung dan↑↑⍨2⍴(⌊/≢,≢¨) yang melakukan pekerjaan menarik yang sebenarnya.

⎕AV[3]∘≠ perbedaan dari LF (elemen ketiga dari A tomic V ector - set karakter)

⊆ partisi (substring dimulai pada nilai yang lebih besar dari pendahulunya dan turun pada 0s)

⊢ argumen

(... ) terapkan fungsi diam-diam berikut:

 2⍴(... ) bentuk ulang yang berikut ini untuk panjang 2:

  ⌊/ minimum

  ≢ jumlah string

  , diikuti oleh

  ≢¨ jumlah karakter dalam setiap string

↑⍨ ambil banyak baris dan kolom dari

 ↑ string dicampur bersama untuk membentuk matriks (padding dengan spasi)

^{* Dalam klasik dengan ⎕ML( M igration L Evel) 3(default pada banyak sistem) dan menggantikannya ⊂untuk ⊆dan ⊃untuk yang paling kiri ↑. Tio!}

PHP, 123 byte

for(;preg_match("#^(\S{".++$i."}.*
){"."$i}#",$s="$argv[1]
"););while($k<$i-1)echo substr(split("
",$s)[+$k++],0,$i-1),"
";

membutuhkan PHP 5.4, 5.5 atau 5.6. Ganti splitdenganexplode untuk nanti PHP.

Jalankan dengan php -nr '<code> '<string>'
atau coba online . (Pastikan Anda memilih versi PHP yang cocok!)

Haskell , 92 88 bytes

unlines.f.lines
f s|let t=take$until(all.(.l).(<=)<*>(`take`s))pred$l s=t<$>t s
l=length

Cobalah online!

Perl 5, 60 +5 (-0777p) byte

$.++while/^(.{$.}.*
){$.}/;$_=join"
",(/.{$.}/gm)[0..--$.-1]

Cobalah online

• Baris input terakhir harus diakhiri dengan baris baru jika itu milik output.
• Dalam hal dua baris baru berturut-turut -00 opsi dapat diubah oleh -0777.

Perl 6 , 158 140 byte

my$c;for ^(my@b=lines).elems {any(@b.head(++$c).map({.substr(0,$c).chars <$c}))&&$c--&&last;};say @b.head($c).map({.substr(0,$c)}).join("
")

Cobalah online!

Hore untuk jawaban Perl 6 pertama saya. Saya akan bermain-main dengan beberapa opsi baris perintah untuk melihat apakah saya bisa bermain golf ini sedikit lebih. Semua bantuan menghemat byte diterima!

Scala , 201 byte

type S=String
def c(s:S):S={val? =s split "\n"
var(z,q:Seq[S])=(Seq(?size,?(0).size).min,Nil)
while(1<2){?map(i=>{if(i.size>=z)q=q:+i.take(z)
if(q.size==z)return q mkString "\n"})
q=Nil;z-=1}
return""}

Cobalah online!

Pertama kali bermain golf dalam bahasa ini, jadi mungkin bukan yang terbaik.