动画寻找中间

10

给定一个非空字符串，请继续删除第一个和最后一个字符，直到获得一个或两个字符。

例如，如果字符串为abcde，则程序应显示：

abcde
 bcd
  c

但是，如果为abcdef，则应在两个字符处停止：

abcdef
 bcde
  cd

尾随换行符和每行末尾的尾随空格是可选的。您可以有任意多个，也可以没有。

测试用例

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

请记住，这是code-golf，因此字节数最少的代码将获胜。

code-golf  string 
— 倪
source
输出可以是字符串列表，而不是打印字符串吗？
— 格雷格·马丁
@GregMartin是的。
— 奥利弗·倪
1
我们是否需要在每行上都有前导空格？
— ETHproductions 2016年
@ETHproductions是的。
— 奥利弗·尼
9
@Oliver这是重要的信息，您应该在文本中添加它
— Luis Mendo

Answers:

11

V，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
— 詹姆士
source
6

Python，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+' ')

与程序比较（Python 2中为49字节）：

s=input();p=''
while s:print p+s;s=s[1:-1];p+=' '
— 异或
source
6

ES6（JavaScript）， 47， 48，43字节

编辑：将三元运算符替换为&&，并在换行符前添加填充字符串。感谢@Neil的出色建议！

编辑：包括递归调用的函数名称，通过使用文字换行符剥离一个字节

打高尔夫球

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
— 齐柏林飞艇
source
1
我注意到@xnor p以换行符和空格开头；也许对您也有帮助。
— 尼尔
1
哦，您也可以使用s&&代替s?...:''。
— 尼尔
4

Python 2，50个字节

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

简单的递归函数，可不断缩短字符串，直到消失为止。

呼叫为f（'string'）

输出量

string
 trin
  ri
— 埃尔佩德罗
source
4

Perl，31个字节

30个字节的代码+ -p标志。

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

运行它： 

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

说明：\S和.$对应于我们每次从开头删除一个字符时所添加的第一个和最后一个字符，(.+)中间和( *)尾随空格。因此，正则表达式从开头删除一个字符，从结尾删除一个字符，并每次添加一个前导空格。

— 达达
source
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
    >[.>]
<]

这里应该还有一些字节可以切掉。我只是最近才开始使用Brainfuck，所以我的指针移动可能效率很低。

— 艾丹·史密斯
source
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
— 路易斯·门多
source
2

批次，92个字节

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

在STDIN上输入。

— 尼尔
source
2

C，73个字节

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

取消高尔夫：

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);
}
— 卡尔·纳普夫
source
2

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编码。在线尝试！

— 阿德南
source
2

Haskell，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)
— 莱科尼
source
2

Perl 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
}
— 布拉德·吉尔伯特b2gills
source
1

GNU sed 24字节

包括+2 -rn

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

打印，用空格替换第一个非空格字符，并删除最后一个字符，直到没有任何变化为止。

— 赖利
source
0

C ++ 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为a std::string并返回动画文本。

取消高尔夫：

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);
}
— 卡尔·纳普夫
source
0

Vim-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

一旦我们字符不足，Vim会自动杀死宏

— 黑帽
source
0

快点！-16个街区

快点！

输出是自定心的。“等待”是为了人类。

— wyldstallyns
source
0

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
— 马里奥
source
0

Mathematica，71个字节

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

在中间寻找动画

— 念珠菌病
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.