মাঝের সন্ধান করুন প্রাণবন্ত


10

একটি খালি খালি স্ট্রিং দেওয়া হয়েছে, আপনি এক বা দুটি অক্ষর না পাওয়া পর্যন্ত প্রথম এবং শেষ অক্ষরগুলি সরিয়ে রাখুন।

উদাহরণস্বরূপ, যদি স্ট্রিংটি ছিল abcde, আপনার প্রোগ্রামটি মুদ্রণ করা উচিত:

abcde
 bcd
  c

তবে এটি যদি হয় তবে abcdefএটি দুটি অক্ষরে থামানো উচিত:

abcdef
 bcde
  cd

প্রতিটি লাইনের শেষে ট্রেলিং করা নিউলাইনগুলি এবং শেষ স্থানগুলি alচ্ছিক। আপনি যতটা চান বা নাও পেতে পারেন।

পরীক্ষার মামলা

ABCDEFGHIJKLMNOPQRSTUVWXYZ -> ABCDEFGHIJKLMNOPQRSTUVWXYZ
                               BCDEFGHIJKLMNOPQRSTUVWXY 
                                CDEFGHIJKLMNOPQRSTUVWX  
                                 DEFGHIJKLMNOPQRSTUVW   
                                  EFGHIJKLMNOPQRSTUV    
                                   FGHIJKLMNOPQRSTU     
                                    GHIJKLMNOPQRST      
                                     HIJKLMNOPQRS       
                                      IJKLMNOPQR        
                                       JKLMNOPQ         
                                        KLMNOP          
                                         LMNO           
                                          MN            

ABCDEFGHIJKLMNOPQRSTUVWXYZ! -> ABCDEFGHIJKLMNOPQRSTUVWXYZ!
                                BCDEFGHIJKLMNOPQRSTUVWXYZ 
                                 CDEFGHIJKLMNOPQRSTUVWXY  
                                  DEFGHIJKLMNOPQRSTUVWX   
                                   EFGHIJKLMNOPQRSTUVW    
                                    FGHIJKLMNOPQRSTUV     
                                     GHIJKLMNOPQRSTU      
                                      HIJKLMNOPQRST       
                                       IJKLMNOPQRS        
                                        JKLMNOPQR         
                                         KLMNOPQ          
                                          LMNOP           
                                           MNO            
                                            N             

A -> A

AB -> AB

মনে রাখবেন এটি , তাই বাইটের ক্ষুদ্রতম সংখ্যার কোডটি।


আউটপুট স্ট্রিং মুদ্রণের পরিবর্তে স্ট্রিংগুলির একটি তালিকা হতে পারে?
গ্রেগ মার্টিন

@ গ্রেগমার্টিন হ্যাঁ
অলিভার নি

1
আমাদের কি প্রতিটি লাইনে শীর্ষস্থানীয় স্থান থাকা দরকার?
ETH প্রোডাকশনগুলি

পছন্দ করুন
অলিভার নি

9
@ অলিভার এটি গুরুত্বপূর্ণ তথ্য, আপনার এটি পাঠ্যে অন্তর্ভুক্ত করা উচিত
লুইস মেন্ডো

উত্তর:



6

পাইথন, 45 বাইট

f=lambda s,p='\n ':s and s+p+f(s[1:-1],p+' ')

পুনরাবৃত্তভাবে স্ট্রিংটি আউটপুট করে, একটি নতুন লাইন, পরবর্তী লাইনের জন্য নেতৃস্থানীয় স্থানগুলি, উপসর্গের অতিরিক্ত স্থান সহ সংক্ষিপ্ত স্ট্রিংয়ের জন্য পুনরাবৃত্তির ফলাফল।

যদি একটি শীর্ষস্থানীয় নিউলাইন অনুমতি দেওয়া হয়, আমরা একটি বাইট সংরক্ষণ করতে পারি:

f=lambda s,p='\n':s and p+s+f(s[1:-1],p+' ')

একটি প্রোগ্রামের সাথে তুলনা করুন (পাইথন 2 এ 49 বাইট):

s=input();p=''
while s:print p+s;s=s[1:-1];p+=' '

6

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

সম্পাদনা: টর্নারি অপারেটরটিকে && এর সাথে প্রতিস্থাপিত করা হয়েছে, নতুন লাইনের সাথে প্রিফিক্সড প্যাডিং স্ট্রিং। একটি দুর্দান্ত পরামর্শের জন্য @ নিল ধন্যবাদ!

সম্পাদনা: পুনরাবৃত্তির অনুরোধের জন্য ফাংশনটির নাম অন্তর্ভুক্ত করা হয়েছে, আক্ষরিক নিউলাইন ব্যবহার করে একটি বাইট ছিনিয়ে নেওয়া হয়েছে

Golfed

R=(s,p=`
 `)=>s&&s+p+R(s.slice(1,-1),p+' ')

পরীক্ষা

R=(s,p=`
 `)=>s&&s+p+R(s.slice(1,-1),p+' ')

console.log(R("ABCDEFGHIJKLMNOPQRSTUVWXYZ"))

ABCDEFGHIJKLMNOPQRSTUVWXYZ
 BCDEFGHIJKLMNOPQRSTUVWXY
  CDEFGHIJKLMNOPQRSTUVWX
   DEFGHIJKLMNOPQRSTUVW
    EFGHIJKLMNOPQRSTUV
     FGHIJKLMNOPQRSTU
      GHIJKLMNOPQRST
       HIJKLMNOPQRS
        IJKLMNOPQR
         JKLMNOPQ
          KLMNOP
           LMNO
            MN

console.log(R("ABCDEFGHIJKLMNOPQRSTUVWXYZ!"))

ABCDEFGHIJKLMNOPQRSTUVWXYZ!
 BCDEFGHIJKLMNOPQRSTUVWXYZ
  CDEFGHIJKLMNOPQRSTUVWXY
   DEFGHIJKLMNOPQRSTUVWX
    EFGHIJKLMNOPQRSTUVW
     FGHIJKLMNOPQRSTUV
      GHIJKLMNOPQRSTU
       HIJKLMNOPQRST
        IJKLMNOPQRS
         JKLMNOPQR
          KLMNOPQ
           LMNOP
            MNO
             N

1
আমি লক্ষ্য করেছি যে @xnor pএকটি নতুন লাইন এবং একটি জায়গার সমান দিয়ে শুরু হয় ; সম্ভবত এটি আপনাকেও সহায়তা করতে পারে।
নিল

1
ওহ, এবং আপনি এর s&&পরিবর্তে ব্যবহার করতে পারেন s?...:''
নিল

4

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

def f(i,j=0):
 print' '*j+i
 if i:f(i[1:-1],j+1)

সরল রিকার্সিভ ফাংশন যা স্ট্রিংটি অদৃশ্য না হওয়া অবধি কমিয়ে দেয়।

F ('স্ট্রিং') হিসাবে কল করুন

আউটপুট

string
 trin
  ri

4

পার্ল, 31 বাইট

30 বাইট কোড + -pপতাকা।

s/( *)\S(.+).$/$& 
 $1$2/&&redo

এটি চালানোর জন্য:

perl -pE 's/( *)\S(.+).$/$&
 $1$2/&&redo' <<< "abcdef"

ব্যাখ্যা : প্রথম এবং শেষ চরিত্রটির সাথে \Sএবং এর .$সাথে সঙ্গতিপূর্ণ এবং প্রতিবার যুক্ত হওয়ার পরে আমরা একটি চরিত্রকে প্রথম থেকে মুছে ফেলি যা (.+)মাঝখানে এবং ( *)পিছনের স্থানগুলির সাথে যুক্ত। সুতরাং রেজেক্স শুরু থেকে একটি চরিত্রকে সরিয়ে দেয়, শেষ থেকে একটি করে এবং প্রতিবার একটি করে শীর্ষস্থানীয় স্থান যুক্ত করে।


4

Brainfuck , 67 বাইট

>>,[.>,]<[>++++++++++.<[-]<[<]>[-]++++++++[-<++++>]<[<]>[.>]>[.>]<]

এটি সমস্ত ব্রেইনফাক স্বাদে কাজ করা উচিত।

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

অবরুদ্ধ কোড:

# Print and read input_string into memory
>>,[.>,]<
while input_string is not empty [
    # Print newline
    >+++++ +++++.<
    # Remove last character
    [-]
    # GOTO start of input_string
    <[<]>
    # Remove first character
    [-]
    # Add space to space_buffer
    +++++ +++[-<++++>]
    # GOTO start of space_buffer
    <[<]>
    # Print space_buffer
    [.>]
    # Print input_string
    >[.>]
<]

এখানে কাটাতে কিছু বাইট থাকা উচিত; আমি সম্প্রতি সম্প্রতি ব্রেইনফাক ব্যবহার শুরু করেছি, সুতরাং আমার পয়েন্টার চলাচল সম্ভবত খুব অদক্ষ।


2

MATL , 9 বাইট

tg!*YRPRc

এটি পিছনে স্থান এবং নিউলাইনগুলি উত্পাদন করে।

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

ব্যাখ্যা

t      % Input string implicitly. Duplicate
g!     % Convert to logical and transpose: gives a column vector of ones
*      % Multiply with broadcast. This gives a square matrix with the string's
       % ASCII codes on each row
YR     % Lower triangular part: make elements above the diagonal 0
P      % Flip vertically
R      % Upper triangular part: make elements below the diagonal 0
c      % Convert to char. Implicitly display, with char 0 shown as space

2

ব্যাচ, 92 বাইট

@set/ps=
@set t=
:g
@echo %t%%s%
@set t= %t%
@set s=%s:~1,-1%
@if not "%s%"=="" goto g

STDIN এ ইনপুট নেয়।


2

সি, 73 বাইট

f(char*s){char*b=s,*e=s+strlen(s)-1;while(e-b>-1)puts(s),*b++=32,*e--=0;}

Ungolfed:

f(char*s) {
  char *b=s,
       *e=s+strlen(s)-1;
  while (e-b>-1)
    puts(s),
    *b++=32,
    *e--=0;
}

ব্যবহার:

main(){
  char a[] = "abcde";
  f(a);
}



2

হাস্কেল, 47 43 বাইট

f s@(a:b:c)=s:map(' ':)(f.init$b:c)
f s=[s]

আইডিয়নে চেষ্টা করে দেখুন । আউটপুট হল স্ট্রিংগুলির একটি তালিকা যা চ্যালেঞ্জের মন্তব্যে অনুমোদিত হয়েছিল। মুদ্রণ করতে, ন্যায়বিচারের (putStr.unlines.f)পরিবর্তে চালান f

সম্পাদনা করুন: পিছনে সাদা স্থান অনুমোদিত কিনা তা দেখে 4 টি বাইট সংরক্ষিত।

Prelude> (putStr.unlines.f)"codegolf"
codegolf
 odegol
  dego
   eg
               --(trailing whitespace)

2

পার্ল 6 , 42 বাইট

for get,{S/\w(.*)./ $0/}.../\s..?$/ {.put}

সম্প্রসারিত:

for

  # generate the sequence
  get,       # get a line from the input

  {          # bare block lambda with implicit parameter 「$_」
             # used to produce the rest of the sequence

    S/       # replace
      \w     # a word character ( to be removed )
      (      # set 「$0」
        .*   # any number of any characters
      )
      .      # any character ( to be removed )
    / $0/    # append a space

  }

  ...        # repeat that until

  /          # match
    \s       # whitespace
    .        # any character
    .?       # optional any character
    $        # end of string
  /

{
  .put       # print $_ with trailing newline
}

1

জিএনইউ 24 বাইটস সেড করেছে

এর জন্য +2 অন্তর্ভুক্ত -rn

:
p
s/[^ ](.+)./ \1/
t

মুদ্রণ করে, স্থান সহ প্রথম অ-স্থান অক্ষরকে প্রতিস্থাপন করে এবং কিছুই পরিবর্তন না হওয়া অবধি শেষ চরিত্রটিকে মুছুন।



0

সি ++ 14, 117 বাইট

auto f(auto s){decltype(s)r;auto b=s.begin();auto e=s.rbegin();while(e.base()-b>0)r+=s+"\n",*b++=32,*e++=0;return r;}

ধরে নিই ইনপুট sহ'ল std::stringএবং অ্যানিমেটেড পাঠ্য ফেরত দেয়।

Ungolfed:

auto f(auto s){
  decltype(s)r;
  auto b=s.begin();
  auto e=s.rbegin();
  while(e.base()-b>0){
    r+=s+"\n";
    *b++=32;
    *e++=0;
  }
  return r;
}

ব্যবহার:

main(){
  std::string a{"abcdef"};
  std::cout << f(a);
  std::string b{"abcde"};
  std::cout << f(b);
}

0

ভিম - 14 কীস্ট্রোক

qqYp^r $x@qq@q


ব্যাখ্যা:

qq  -- record a macro named 'q'
Y   -- Copy current line
p   -- Paste it
^r  -- Replace the first non-space character on the new line with a space
$x  -- Delete the last character on the line
@q  -- Recursively call the 'q' macro
q   -- Stop recording the 'q' macro
@q  -- Run the 'q' macro

আমাদের অক্ষরের বাইরে গেলে ভিম স্বয়ংক্রিয়ভাবে ম্যাক্রোটিকে হত্যা করে


0

স্ন্যাপ! - 16 ব্লক

স্ন্যাপ!

আউটপুট স্ব-কেন্দ্রিক। 'অপেক্ষা' মানুষের জন্য।


0

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

<?for(;$i<.5*$l=strlen($s=$_GET[s]);$i++)echo str_pad(substr($s,$i,$l-$i*2),$l," ",2)."\n";

ব্যবহার: একটি ফাইল সংরক্ষণ করুন এবং ব্রাউজার থেকে কল করুন:

http://localhost/codegolf/string-middle.php?s=ABCDEFGHIJKLMNOPQRSTUVWXYZ

Raw output:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
 BCDEFGHIJKLMNOPQRSTUVWXY 
  CDEFGHIJKLMNOPQRSTUVWX  
   DEFGHIJKLMNOPQRSTUVW   
    EFGHIJKLMNOPQRSTUV    
     FGHIJKLMNOPQRSTU     
      GHIJKLMNOPQRST      
       HIJKLMNOPQRS       
        IJKLMNOPQR        
         JKLMNOPQ         
          KLMNOP          
           LMNO           
            MN            


http://localhost/codegolf/string-middle.php?s=1ABCDEFGHIJKLMNOPQRSTUVWXYZ

Raw output:
1ABCDEFGHIJKLMNOPQRSTUVWXYZ
 ABCDEFGHIJKLMNOPQRSTUVWXY 
  BCDEFGHIJKLMNOPQRSTUVWX  
   CDEFGHIJKLMNOPQRSTUVW   
    DEFGHIJKLMNOPQRSTUV    
     EFGHIJKLMNOPQRSTU     
      FGHIJKLMNOPQRST      
       GHIJKLMNOPQRS       
        HIJKLMNOPQR        
         IJKLMNOPQ         
          JKLMNOP          
           KLMNO           
            LMN            
             M             

0

গণিত, 71 বাইট

Table[#~StringTake~{i,-i},{i,Ceiling[StringLength@#/2]}]~Column~Center&

সজীব-গবেষনার-মধ্যম

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