真ん中を見つけるアニメーション

10

空でない文字列が与えられた場合、1文字または2文字になるまで最初と最後の文字を削除し続けます。

たとえば、文字列がのabcde場合、プログラムは次のように出力します。

abcde
 bcd
  c

ただし、の場合はabcdef、2文字で停止する必要があります。

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 
— オリバーNi
ソース
文字列を出力する代わりに、出力を文字列のリストにすることはできますか？
— グレッグマーティン
@GregMartinはい。
— Oliver Ni
1
各行に先行スペースが必要ですか？
— ETHproductions 2016年
@ETHproductionsはい。
— Oliver Ni
9
@オリバーそれは重要な情報です、あなたはそれをテキストに含めるべきです
— Luis Mendo '19

回答:

6

Python、45バイト

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

文字列、改行、次の行の先頭のスペース、およびプレフィックスに余分なスペースがある短縮された文字列の再帰的な結果を再帰的に出力します。

先頭の改行が許可されている場合、1バイトを保存できます。

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+=' '
— xnor
ソース
6

ES6（Javascript）、 47、 48、43バイト

編集：三項演算子を&&で置き換え、プレフィックスのパディング文字列を改行で置き換えました。素晴らしいアドバイスをありがとう@Neil！

編集：再帰呼び出しの関数名を含め、リテラル改行を使用して1バイトを削除しました

ゴルフ

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改行とスペースに等しいことから始まることに気づきました。多分それもあなたを助けることができます。
— Neil、
1
ああ、s&&代わりに使用することもできますs?...:''。
— Neil、
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
— エルペドロ
ソース
4

Perl、31バイト

30バイトのコード+ -pフラグ。

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

それを実行するには： 

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

説明：\Sと.$は、最初と最後の文字、(.+)中間、および( *)先頭から1文字を削除するたびに追加される末尾のスペースに対応します。したがって、正規表現は最初から1文字を削除し、最後から1文字を削除し、毎回1つの先行スペースを追加します。

— ダダ
ソース
4

Brainfuck、67バイト

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

これはすべてのbrainfuckフレーバーで機能するはずです。

オンラインでお試しください！

Ungolfedコード：

# 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

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);
}
— カールナップ
ソース
2

Haskell、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

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
ソース
1

GNU sed 24バイト

+2を含む -rn

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

最初の非スペース文字を印刷してスペースに置き換え、何も変更されなくなるまで最後の文字を削除します。

— ライリー
ソース
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が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);
}
— カールナップ
ソース
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は自動的にマクロを強制終了します

— ブラックキャップ
ソース
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
— マリオ
ソース
0

Mathematica、71バイト

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

中間者を見つける

— ngenisis
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.