একটি স্ট্রিং থেকে একটি স্কোয়ার খোদাই করুন

21

আজ আপনার চ্যালেঞ্জটি হ'ল একাধিক স্ট্রিং নেওয়া এবং উপরের বাম কোণে স্ট্রিংয়ের মধ্যে থাকা বৃহত্তম স্কোয়ারটি আউটপুট।

একটি বর্গাকার স্ট্রিং এক যেখানে:

  • প্রতিটি লাইনে একই সংখ্যক অক্ষর রয়েছে
  • প্রতিটি লাইনে অক্ষরের সংখ্যা লাইন সংখ্যার সমান।

নিম্নলিখিত সম্ভাব্য ইনপুট স্ট্রিংটি বিবেচনা করুন:

abcde
fgh
asdf
foobar

আপনি এটি থেকে যে বৃহত্তম বর্গটি নিতে পারেন এটিতে প্রথম অক্ষর ( aশীর্ষ বাম কোণে) অন্তর্ভুক্ত এটি হ'ল:

abc
fgh
asd

পাশের দৈর্ঘ্যের 4 এর বর্গক্ষেত্র হতে পারে না, কারণ দ্বিতীয় লাইন যথেষ্ট দীর্ঘ নয়। এখন এই সম্ভাব্য ইনপুটটি বিবেচনা করুন:

a
bcd
edf
ghi

সবচেয়ে বড় বর্গক্ষেত্র এখানে ঠিক হয় a। নীচে গঠিত 3x3 বর্গটিতে খুব প্রথম অক্ষর থাকে না এবং এটি গণনা করে না।

এখানে আরও কয়েকটি পরীক্ষার মামলা রয়েছে:

a

a

abc
def
gh

ab
de

ab
cd

ab
cd

abcde
fghij
klm
no

abc
fgh
klm

a
b

a

আপনার নিজের পছন্দ অনুসারে এলএফ, সিআর বা সিআরএলএফ দ্বারা সীমানার জন্য ইনপুট লাগতে পারে।

নতুন লাইন অক্ষর (গুলি) রেখার দৈর্ঘ্যের অংশ হিসাবে বিবেচিত হয় না।

আপনাকে ইনপুটটিতে একটি অনুচরীন নতুন লাইন থাকতে হবে বা নাও থাকতে পারে, যা কোনও অতিরিক্ত লাইন হিসাবে গণনা করে না।

ইনপুটটি স্ট্রিং বা 1 ডি চর অ্যারে; এটি স্ট্রিংগুলির তালিকা নয়।

আপনি ধরে নিতে পারেন ইনপুটটি খালি নয় এবং সমস্ত লাইন খালি নয় এবং এটি কেবলমাত্র মুদ্রণযোগ্য এএসসিআইআই রয়েছে যার মধ্যে ফাঁকা স্থান এবং নিউলাইনগুলি (লাইন ডিলিমিটারের জন্য) তবে ট্যাবগুলি নয়।

এটি কোড-গল্ফ , সবচেয়ে কম বাইট জয়!

code-golf  string 
— পাভেল
সূত্র
— পাভেল
5
একটি আকর্ষণীয় চ্যালেঞ্জের জন্য +1, কঠোর আই / ও -1
— ডেনিস
@ ডেনিসের প্রতিটি সমাধান ব্যবহার করার প্রয়োজন হয় .split('\n')না তাই কিছু লোক কেন এটি বিনামূল্যে পেতে হবে তা আমি দেখতে পাচ্ছি না।
— পাভেল
2
বিরক্তিকর বয়লারপ্লেটের জন্য বাইট যুক্ত করার বিষয়ে এটি (কেবল) নয়। কিছু প্রাক (যেমন পুনরাবৃত্ত ফাংশন) প্রাক বা পোস্টপ্রোসেসিং যদি থাকে তবে সম্পূর্ণ অযৌক্তিক হয়ে যায়।
— ডেনিস
@ ডেনিস আমি এটির মতো ভাবিনি। আপনার কি মনে হয় এখনই আমার এটিকে পরিবর্তন করা উচিত, না খুব দেরি হয়ে গেছে?
— পাভেল

উত্তর:

5

ব্র্যাচল্যাগ , 11 বাইট

ṇ⊇ᵐẹa₀ṁcᵐ~ṇ

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

ṇ             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
— Fatalize
সূত্র
সংক্ষিপ্ততম সমাধানে ভাল কাজ (এখনও অবধি), ব্র্যাচিয়েলগ নিশ্চিতভাবে স্কোয়ার পছন্দ করে, তাই না?
— পাভেল
@ পাভেল ṁবিল্ট- ইনটি আসলে বেশ কার্যকর!
— 16:44 এ ফ্যাটালাইজ করুন
7

হুশ , 13 বাইট

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

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

►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.
— Zgarb
সূত্র
1
এটি এমনকি একটি প্রোগ্রামিং ভাষাও কী - আপনি সবেমাত্র কিছু অস্পষ্ট ইউনিকোড অক্ষর আটকে দিয়েছেন! ;)
— টার্নিপ
1
@ পেটার গল্ফিংয়ের ভাষায় আপনাকে স্বাগতম, নির্দিষ্ট কিছু কাজ করার জন্য যতটা সম্ভব বাইট ব্যবহার করার জন্য বিশেষভাবে তৈরি করা হয়েছে। এর একটি অংশে একটি কাস্টম কোড পৃষ্ঠা থাকা উচিত, যাতে স্বাভাবিক 95 মুদ্রণযোগ্য ASCII এর পরিবর্তে প্রতিটি সম্ভাব্য বাইটের জন্য একটি চরিত্র থাকে। তবে চিন্তা করবেন না, আরও অনেক সুস্পষ্ট গল্ফ ভাষা রয়েছে; উদাহরণস্বরূপ আমার এমএটিএল এন্ট্রি [/ / নির্লজ্জ স্ব-প্রচার]
— সানচিইস
5

জিএনইউ সেড , 106 + 1 94 + 2 = 96 বাইট

-rzপতাকাগুলির জন্য +2 বাইট । ব্যবহার অমুদ্রণীয় অক্ষর NUL এবং Bel, হিসাবে দেখানো @এবং# এখানে এখানে হয়েছে। এক্সএক্সডি ডাম্পের জন্য নীচে দেখুন।

আমাকে পথ নিচে পাঠানোর জন্য @seshoumara ধন্যবাদ -z।

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

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এটি পাঠ্যটিতে দুটি কার্সার সন্নিবেশ করে কাজ করে - একটি লাইন ধরে ধাপে ধাপে এবং একটিতে কলামের ধাপে। কার্সারগুলি যথাক্রমে NUL (0x00) এবং BEL (0x07) দ্বারা প্রতিনিধিত্ব করা হয়, তবে নীচের উদাহরণগুলিতে আমি ব্যবহার করব @এবং #। ধরুন আমাদের কাছে এই ইনপুট রয়েছে:

abcde
fgh
asdf
foobar

বিএল কার্সার 0 র্থ কলামের আগে এবং বিএল কার্সার 0 র্থ লাইনের আগে sertedোকানো হয় (এখানে আমি কলামগুলি সুসংগঠনের জন্য প্রান্তরেখায় রেখেছি; কিন্তু বাস্তবে কোনও বাম প্যাডিং নেই):

#@abcde
 @fgh
 @asdf
 @foobar

একটি লুপে, কার্সারগুলি একটি অক্ষরকে যথাক্রমে ডান দিকে এবং একটি লাইন নীচে সরানো হয়:

 a@bcde
#f@gh
 a@sdf
 f@oobar
 ab@cde
 fg@h
#as@df
 fo@obar
 abc@de
 fgh@
 asd@f
#foo@bar

প্রতিটি পুনরাবৃত্তির পরে, এটি দুটি শর্ত পরীক্ষা করে:

  1. লাইন কার্সার সহ লাইনে, একটি কলাম কার্সার এবং কলাম কার্সার ডানদিকে যেতে পারে?
  2. লাইন কার্সারের আগের লাইনে, প্রতিটি কলামের কার্সার ডানদিকে যেতে পারে?

উভয় শর্ত যদি মিথ্যা হয় তবে লুপটি শেষ হয়। স্ক্রিপ্ট @প্রতিটি লাইনের পরে #এবং প্যাটার্ন স্পেসের পরে সমস্ত কিছু মুছে ফেলা সমাপ্ত করে ।

এক্সএক্সডি ডাম্প

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
— জর্ডন
সূত্র
আপনি প্রথম লুপটি এ, মুছে ফেলতে পারেন কারণ বিবৃতিতে বলা হয়েছে আপনাকে স্ট্রিং হিসাবে ইনপুটটি পড়তে হবে, সুতরাং আপনি "লাইন 1 line nline2 \ nline3" পেতে পারেন। অন্যান্য উত্তরগুলি এটিও করেছিল। এটি 100 এর নিচে গণনা পাওয়া উচিত
— seshoumara
@seshoumara অন্যান্য উত্তর line1\nline2\nline3কোথায় \nআছে \x5C\x6E? কোনটি?
— জর্ডান
আপনি আমাকে একটি লিঙ্ক দিতে পারেন? (যে কোনও উত্তরের নীচে "ভাগ করুন" এ ক্লিক করুন)) বা কোনও টিআইওতে আমাকে দেখান আপনার অর্থ কী? পাইথন এবং পিএইচপি এর সমস্ত উত্তরগুলিতে আমি দেখতে পাই \nএকটি নতুন লাইন চরিত্র হিসাবে ব্যাখ্যা করা ( \x0Aনা, \x5C\x6E) এবং আমি সিডকে একটি একক লাইন হিসাবে নতুন লাইনের অক্ষরগুলির সাথে ইনপুট নেওয়ার কোনও উপায় খুঁজে পাই না।
— জর্দান
@ সশৌমারা হাহ, কিছুই নয়, সবেমাত্র -zপতাকাটির কথা মনে পড়ে গেল । ধন্যবাদ!
— জর্দান
4

পাইথন 2 , 81 বাইট

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

এটি অনলাইন চেষ্টা করুন!

একটি আকর্ষণীয় পদ্ধতি, তবে 2 বাইট দীর্ঘ।

পাইথন 2 , 83 বাইট

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

এটি অনলাইন চেষ্টা করুন!

— xnor
সূত্র
1
inputশুধু একটি লাইন পড়ে না ?
— পাভেল
@ পাভেল, আপনি যদি অনলাইন উদাহরণটি দেখে থাকেন তবে দেখতে পাবেন যে এটি ইনপুটটিকে এক-লাইনের স্ট্রিং রাখতে সুস্পষ্ট নিউলাইন অক্ষর ব্যবহার করছে। সম্ভবত এই পদ্ধতিটি বেছে নেওয়া কারণ raw_input()আরও বাইট যুক্ত হবে।
— জাভিয়ের দাস
4

জাভাস্ক্রিপ্ট (ES6), 77 বাইট

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

কোনটি না পাওয়া পর্যন্ত বৃহত্তর এবং বৃহত্তর বর্গক্ষেত্র সন্ধান করতে পুনরাবৃত্তভাবে একটি নিয়মিত ভাব প্রকাশ করে।

নিয়মিত প্রকাশটি এটি 3x3 স্কোয়ারের জন্য হবে:

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

ইনপুট একটি নতুন লাইন দিয়ে শেষ হবে আশা করা হয়, এবং আউটপুট একটি তালিকা।

ব্যাখ্যা:

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

স্নিপেট:

কোড স্নিপেট দেখান

— রিক হিচকক
সূত্র
3

আর , 84 83 81 76 বাইট

-5 বাইটস দিয়ে ডেনিসের পদ্ধতির সাথে পোর্টিং করেsum 

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

এটি অনলাইন চেষ্টা করুন!

স্টিডিন থেকে পাঠায়, প্রিন্ট করে স্টেলআউটে কোনও পেছনের নিউলাইন ছাড়াই।

সামান্য শৃঙ্খলাবদ্ধ:

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

— : Giuseppe
সূত্র
3

সি (জিসিসি) , 162 159 151 147 144 142 137 বাইট

গল্ফ দূরে এখানে কিছু স্ট্রোক থাকতে হবে ...

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

এটি অনলাইন চেষ্টা করুন!

— cleblanc
সূত্র
পারি !=-1হতে >-1বা না getchar()আউটপুট মান বিয়োগ এক চেয়ে ছোট? এটা কি হতে পারে +1?
— জনাথন ফ্রেচ
সম্ভাব্য 158 বাইট ।
— জোনাথন ফ্রেচ
@ জোনাথানফ্রেচ আমি বিয়োগটি ~সনাক্ত করতে ব্যবহার করতে পারি ।
— ক্লাব্ল্যাঙ্ক
1
@ রিকহিচকক সর্বশেষতম গল্ফ সংস্করণে কাজ করতে পারে বলে মনে হচ্ছে।
— ক্লাব্ল্যাঙ্ক
2

জেলি , 15 বাইট

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

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

ỴÇÇ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.
— ডেনিস
সূত্র
2

জাভা 8, 150 বাইট

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

ব্যাখ্যা:

এখানে চেষ্টা করুন।

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
— কেভিন ক্রুইজসেন
সূত্র
2

এমএটিএল , 33 বাইট

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

এটি অনলাইন চেষ্টা করুন!

আমার স্পাইডি ইন্দ্রিয়টি আমাকে বলেছে যে সম্ভবত একটি সংক্ষিপ্ত পথ আছে (আমি প্রথম Yboথেকেই ডান দিয়ে কিছু ভাবছি ) ... শেষে একটি নতুন লাইন দরকার। (দ্রষ্টব্য: আমি এটিকে কিছুটা ইঞ্জিনিয়ার করেছি, কারণ এটি খালি রেখাগুলিও হ্যান্ডেল করবে, যা প্রয়োজন নেই see আমি দেখতে পাব যে আমি বাইকাউন্টটি হ্রাস করতে পারি কিনা, কারণ কোড গল্ফে এটি কোনও বৈশিষ্ট্য নয়, তবে একটি বাগ)

— Sanchises
সূত্র
1
@ পাভেল গুইস্পে অন্য সংস্করণটির কথা উল্লেখ করছিলেন, যা আমি পিছনে ফিরে এলাম কারণ এতে সত্যই একটি বাগ ছিল।
— সানচিইস
1

জাভাস্ক্রিপ্ট (ES6), 95 বাইট

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>
স্নিপেট প্রসারিত করুন

ইনপুটটিতে একটি ট্রিলিং নিউলাইন দরকার।

— নিল
সূত্র
1

এপিএল (ডায়ালগ) , 25 বাইট *

Tacit উপসর্গ ফাংশন। একটি ম্যাট্রিক্স প্রদান করে।

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

এটি অনলাইন চেষ্টা করুন!

এটি সত্যিকার অর্থে দুটি স্বতন্ত্র ফাংশনের একটি শীর্ষ, ⎕AV[3]∘≠⊆⊢যা বিশ্রী ইনপুট ফর্ম্যাট নিয়ে ↑↑⍨2⍴(⌊/≢,≢¨)কাজ করে এবং যা প্রকৃত আকর্ষণীয় কাজ করে।

⎕AV[3]∘≠ এলএফ (তৃতীয় উপাদান থেকে পার্থক্য একজন tomic ভী - অক্ষর সেট ECTOR)

⊆ পার্টিশন (সাবস্ট্রিংগুলি পূর্বসূরীর চেয়ে বড় মানের থেকে শুরু হয় এবং 0 সেটে ড্রপ হয়)

⊢ যুক্তি

(… ) নিম্নলিখিত টিসিট ফাংশন প্রয়োগ করুন:

 2⍴(… ) নিম্নলিখিত দৈর্ঘ্য 2 পুনরায় আকার:

  ⌊/ সর্বনিম্ন

  ≢ স্ট্রিং সংখ্যা

  , অনুসরণ করেছে

  ≢¨ প্রতিটি স্ট্রিংয়ে অক্ষরের সংখ্যা

↑⍨ এ থেকে অনেকগুলি সারি এবং কলাম নিন

 ↑ স্ট্রিংগুলি একত্রে মিশ্রিত হয়ে একটি ম্যাট্রিক্স গঠন করে (স্পেসগুলির সাথে প্যাডিং)

* সঙ্গে ক্লাসিক ⎕ML( এম igration এল evel) 3(অনেক সিস্টেমে ডিফল্ট) এবং বদলে ⊂জন্য ⊆এবং ⊃বামদিকের জন্য ↑। Tio!

— আদম
সূত্র
এটি যদি ডায়ালগ ক্লাসিকের একই দৈর্ঘ্য হয় তবে আপনি সম্ভবত এটি ডায়ালগ ক্লাসিক হিসাবে বলতে পারেন এবং পাদটীকা ব্যবহার করবেন না।
— পাভেল
@ পাভেল উভয় ক্লাসিক এবং ⎕ML←3অবচিত হ'ল , তাই ভাষাটি সাধারণত দেখাবে বলেই ভাষাটি প্রদর্শন করব। প্রকৃতপক্ষে, আমার প্রায় সমস্ত ডায়ালগ এপিএল সমাধানগুলি ক্লাসিককে ধরে নেয় কারণ আমরা অক্ষরের পরিবর্তে বাইটগুলি গণনা করি, যদিও ইউনিকোড সংস্করণটি 256 টিরও কম অক্ষরের অর্থ নির্ধারণ করে।
— অ্যাডম
1

পিএইচপি, 123 বাইট

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

পিএইচপি 5.4, 5.5 বা 5.6 প্রয়োজন। splitসঙ্গে প্রতিস্থাপনexplode পরে পিএইচপি জন্য।

এটি দিয়ে চালান php -nr '<code> '<string>'
বা অনলাইনে চেষ্টা করুন । (নিশ্চিত করুন যে আপনি একটি স্যুইটিং পিএইচপি সংস্করণটি নির্বাচন করেছেন!)

— তিতাস
সূত্র
1

পার্ল 5, 60 +5 (-0777 পি) বাইট

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

এটি অনলাইনে চেষ্টা করুন

  • আউটপুট সম্পর্কিত ক্ষেত্রে ইনপুটটির শেষ লাইনটি একটি নতুন লাইন দিয়ে শেষ হতে হবে।
  • টানা দুটি নতুন লাইনের ক্ষেত্রে -00 বিকল্প -0777 দ্বারা পরিবর্তন করা যেতে পারে।
— নাহুয়েল ফৌইলুল
সূত্র
পরপর দুটি নতুন লাইন সম্ভব, সুতরাং আপনার প্রয়োজন হবে -0777। আমাদের কি করতে -00এবং -0777যাহাই হউক না কেন না।
— পাভেল
-0অষ্টাল বিন্যাসে রেকর্ড বিভাজক নির্দিষ্ট করা 777কোনও বিভাজনকারীকে নির্দেশ করার জন্য একটি বিশেষ মান, যাতে পুরো ফাইলটি পড়ে থাকে, 0"অনুচ্ছেদ মোড" নির্দেশ করার জন্য আরও একটি বিশেষ মান, বিভাজক একটানা 1 টিরও বেশি
— নিউলাইন
1

পার্ল 6 , 158 140 বাইট

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

এটি অনলাইন চেষ্টা করুন!

আমার প্রথম পার্ল 6 উত্তরের জন্য হুরয়। আমি আরও কমান্ড লাইন অপশন দিয়ে খেলব আমি আরও কিছুটা গল্ফ করতে পারি কিনা তা দেখার জন্য। সমস্ত সহায়তা বাইটস স্বাগত!

— লুক
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.