बीच खोजने वाला चेतन

Question

एक गैर-रिक्त स्ट्रिंग को देखते हुए, पहले और अंतिम पात्रों को तब तक हटाते रहें जब तक कि आप एक या दो वर्ण प्राप्त न कर लें।

उदाहरण के लिए, यदि स्ट्रिंग थी abcde, तो आपका प्रोग्राम प्रिंट होना चाहिए:

abcde
 bcd
  c

हालाँकि, यदि यह था, तो इसे abcdefदो वर्णों पर रोकना चाहिए:

abcdef
 bcde
  cd

अनुगामी newlines और अनुगामी रिक्त स्थान प्रत्येक पंक्ति के अंत में वैकल्पिक हैं। आप जितने चाहें उतने हो सकते हैं या कोई नहीं।

परीक्षण के मामलों

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

याद रखें कि यह कोड-गोल्फ है , इसलिए सबसे कम संख्या में बाइट्स जीतता है।

Comments

क्या आउटपुट स्ट्रिंग्स को प्रिंट करने के बजाय स्ट्रिंग्स की एक सूची हो सकती है?

— ग्रेग मार्टिन

@GregMartin हां।

— ओलिवर नी

क्या हमें प्रत्येक पंक्ति में अग्रणी स्थान रखने की आवश्यकता है?

— ETHproductions

@ETHproductions हाँ।

— ओलिवर नी

@ ओलिवर यह महत्वपूर्ण जानकारी है, आपको इसे पाठ में शामिल करना चाहिए

— लुइस मेंडू

Answer 1

वी , 10 बाइट्स

ò^llYpr $x

इसे ऑनलाइन आज़माएं!

स्पष्टीकरण:

ò^ll         " While there are at least two non-whitespace characters on the current line
    Y        " Yank this line
     p       " Paste it below
      r      " Replace the first character with a space
        $    " Move to the end of the line
         x   " Delete a character

Answer 2

पायथन, 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+=' '

Answer 3

ईएस 6 (जावास्क्रिप्ट), 47, 48, 43 बाइट्स

संपादित करें: नई पंक्ति के साथ पूर्वनिर्मित पैडिंग स्ट्रिंग के साथ & quot; धन्यवाद @Neil एक उत्कृष्ट सलाह के लिए!

EDIT: पुनरावर्ती मंगलाचरण के लिए फ़ंक्शन का नाम शामिल है, शाब्दिक न्यूलाइन का उपयोग करके एक बाइट को हटा दिया गया

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

Comments

मैंने देखा कि @xnor pएक नई रेखा और एक स्थान के बराबर से शुरू होता है; शायद वह भी आपकी मदद कर सके।

— नील

ओह, और आप भी उपयोग कर सकते हैं s&&के बजाय s?...:''।

— नील

Answer 4

अजगर 2, 50 बाइट्स

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

सरल पुनरावर्ती कार्य जो स्ट्रिंग को छोटा करता है जब तक वह गायब नहीं हो जाता।

F ('string') के रूप में कॉल करें

उत्पादन

string
 trin
  ri

Answer 5

पर्ल, 31 बाइट्स

कोड + -pध्वज के 30 बाइट्स ।

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

इसे चलाने के लिए:

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

स्पष्टीकरण : THE \Sऔर .$पहली और आखिरी चरित्र के अनुरूप है, (.+)मध्यम और ( *)है कि हर बार हम शुरू से एक चरित्र को दूर जोड़ रहे हैं अनुगामी रिक्त स्थान के लिए। तो रेगेक्स एक चरित्र को शुरू से हटाता है, एक को अंत से, और हर बार एक अग्रणी स्थान जोड़ता है।

Answer 6

ब्रेनफक , 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
    >[.>]
<]

यहाँ अभी भी कुछ बाइट्स काटना चाहिए; मैंने हाल ही में ब्रेनफक का उपयोग करना शुरू किया है, इसलिए मेरा सूचक आंदोलन शायद बहुत अक्षम है।

Answer 7

MATL , 9 बाइट्स

tg!*YRPRc

यह अनुगामी रिक्त स्थान और newlines पैदा करता है।

इसे ऑनलाइन आज़माएं!

व्याख्या

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

Answer 8

बैच, 92 बाइट्स

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

STDIN पर इनपुट लेता है।

Answer 9

सी, 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);
}

Answer 10

05AB1E , 8 बाइट्स

कोड:

ÐvNú,¦¨D

स्पष्टीकरण:

Ð          # Triplicate the input
 v         # Length times do...
  Nú,      # Prepend N spaces and print with a newline
     ¦¨    # Remove the first and the last character
       D   # Duplicate that string

CP-1252 एन्कोडिंग का उपयोग करता है । इसे ऑनलाइन आज़माएं!

Answer 11

पाइके, 10 बाइट्स

VQlRc
l7tO

यहाँ कोशिश करो!

Answer 12

हास्केल, 47 43 बाइट्स

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

Ideone पर इसे आज़माएं । आउटपुट स्ट्रिंग्स की एक सूची है जिसे चुनौती की टिप्पणियों में अनुमति दी गई थी। प्रिंट करने के लिए, (putStr.unlines.f)केवल के बजाय साथ चलाएंf ।

संपादित करें: देखा गया है कि अनुगामी व्हॉट्सएप को अनुमति देने के बाद 4 बाइट्स सहेजे गए हैं।

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

Answer 13

पर्ल 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
}

Answer 14

GNU sed 24 बाइट्स

के लिए +2 शामिल है -rn

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

प्रिंट, पहले गैर-अंतरिक्ष चरित्र को एक स्थान के साथ बदल देता है, और अंतिम चरित्र को तब तक हटा देता है जब तक कुछ भी नहीं बदलता।

Answer 15

रेटिना , 17 बाइट्स

;{G:`
\S(.+).
 $1

इसे ऑनलाइन आज़माएं!

Answer 16

सी ++ 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);
}

Answer 17

विम - 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

एक बार पात्रों से बाहर निकल जाने पर विम स्वचालित रूप से मैक्रो को मार देता है

Answer 18

भगवान! - 16 ब्लॉक

आउटपुट सेल्फ-सेंटिंग है। The प्रतीक्षा ’मनुष्य के लिए है।

Answer 19

PHP, 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             

Answer 20

गणितज्ञ, 71 बाइट्स

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