ちょっと待ってください。これはトローリングではありません。

バックグラウンド

最近のYouTubeでは、コメントセクションに次のようなパターンが散らばっています。

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

where Stringは単なるプレースホルダーであり、文字の任意の組み合わせを指します。通常、これらのパターンには1 It took me a lot of time to make this, pls likeつまたは何かが付随し、多くの場合、OPは多くのいいねを集めることに成功します。

タスク

あなたは魅力的なゴルフスキルでPPCGにアップボットを蓄積する素晴らしい才能を持っていますが、YouTubeコメントセクションで機知に富んだ発言をしたり、ミームを参照したりするための絶対的な選択肢ではありません。このように、意図的な考えで作られた建設的なコメントは、YouTubeに「いいね」が少ししかありません。これを変更したいです。そのため、上記の決まりきったパターンを作成して、最終的な野心を達成することに頼ります。

簡単に言えばs、次のパターンに適合するように、あなたの仕事は、たとえば、文字列を取得し、改行で区切られたの2*s.length - 1部分文字列を出力sすることです。

（for s= "Hello"）

H
He
Hel
Hell
Hello
Hell
Hel
He
H

入力

単一の文字列s。コミュニティの入力デフォルトが適用されます。入力文字列には印刷可能なASCII文字のみが含まれると想定できます。

出力

改行で区切られた複数の行は、上記で説明した適切なパターンを構成します。コミュニティの出力デフォルトが適用されます。出力の先頭および末尾の空白（スペースなどの文字または見えない文字を含まない）行は許可されます。

テストケース

複数ワードのテストケース：

Input => "Oh yeah yeah"

Output =>

O
Oh
Oh 
Oh y
Oh ye
Oh yea
Oh yeah
Oh yeah 
Oh yeah y
Oh yeah ye
Oh yeah yea
Oh yeah yeah
Oh yeah yea
Oh yeah ye
Oh yeah y
Oh yeah 
Oh yeah
Oh yea
Oh ye
Oh y
Oh 
Oh
O

上記のテストケースの出力の形状には明らかな歪みがあることに注意してください（たとえば、出力の2行目と3行目は同じように見えます）。これは、末尾の空白が見えないためです。プログラムは、これらの歪みを修正する必要はありません。

受賞基準

これはcode-golfなので、各言語のバイト単位の最短コードが勝ちです！

brainfuck、32バイト

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

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

パターンの両方の半分に同じループが使用されます。

説明：

,             Take first input character as initial line
[             Until line to output is empty:
  [<]>        Move to beginning of line
  [.>]        Output all characters in line
  ++++++++++. Output newline
  ,           Input next character
  [>>]        Move two cells right if input character nonzero
  <[-]        Otherwise remove last character in line
  <           Move to new last character in line
]

JavaScript（ES6）、36バイト

f=([c,...r],s=`
`)=>c?s+f(r,s+c)+s:s

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

コメント済み

f = (             // f is a recursive function taking:
                  //   the input string split into:
  [c,             //     c   = next character (may be undefined if we've reached the end)
      ...r],      //     r[] = array of remaining characters
  s = `\n`        //   the output string s, initialized to a linefeed
) =>              // 
  c ?             // if c is defined:
    s +           //   append s (top of the ASCII art)
    f(r, s + c) + //   append the result of a recursive call to f, using r[] and s + c
    s             //   append s again (bottom of the ASCII art)
  :               // else:
    s             //   append s just once (this is the final middle row) and stop recursion

05AB1E（レガシー）、 4  3 バイト

^{取り消し線 4 は4ではなくなりました:)}

η.∊

オンラインそれを試してみたり、すべてのテストケースを確認してください。

説明：

η     # Get the prefixes of the (implicit) input-string
 .∊   # Vertically mirror everything with the last line overlapping
      # (which implicitly joins by newlines in the legacy version of 05AB1E)
      # (and output the result implicitly)

05AB1Eの新しいバージョンで»はη、の後に明示的に指定する必要があるため、ここでは05AB1Eのレガシーバージョンを使用してバイトを保存します。

IBM PC DOS、8088アセンブリ、  44  43

d1ee ad8b d6b4 0948 8af8 8ac8 d0e1 49b3 243a cf7d 024e
4e46 861c cd21 861c 52ba 2901 cd21 5ae2 eac3 0d0a 24

組み立てられていない：

    SHR  SI, 1              ; point SI to DOS PSP at 80H (SI intialized at 100H)
    LODSW                   ; load arg length into AL, advance SI to 82H
    MOV  DX, SI             ; save start of string pointer
    MOV  AH, 9              ; DOS API display string function
    DEC  AX                 ; remove leading space from string length
    MOV  BH, AL             ; save string len in BH (AL gets mangled by INT 21H,9)
    MOV  CL, AL             ; set up loop counter in CL
    SHL  CL, 1              ; number of lines = 2 * string length - 1
    DEC  CX
    MOV  BL, '$'            ; end of string marker
LINE_LOOP:
    CMP  CL, BH             ; if CL >= string length, ascend
    JGE  ASCEND
    DEC  SI                 ; descend by backing up two places (always increments)
    DEC  SI                 ; (this is fewer bytes than 'SUB SI, 2' or two branches)
ASCEND:
    INC  SI                 ; increment current string position
    XCHG BL, [SI]           ; swap current string byte with end of string delimiter
    INT  21H                ; write substring to console
    XCHG BL, [SI]           ; restore string byte
    PUSH DX                 ; save output string pointer
    MOV  DX, OFFSET CRLF    ; load CRLF string
    INT  21H                ; write to console
    POP  DX                 ; restore output string pointer
    LOOP LINE_LOOP          ; move to next line
    RET
CRLF DB 0DH,0AH,'$'

説明

2 * input length - 1行ごとにループします。DOS APIの文字列表示関数（INT 21H,9）は- $終了文字列を画面に書き込むため、ループを通過するたびに、表示される最後の文字の後の文字が文字列の終端ターミネータと交換されます。

ループカウンターは文字列の長さと比較され、それが大きい場合（出力の昇順部分を意味する）、文字列/スワップの位置がインクリメントされます-1-1+1。

スタンドアロンの実行可能プログラム。コマンドラインから入力文字列を受け取ります。

出力

YT2.COMをダウンロード（43バイト）

• gastropnerのおかげで-1バイト！

パイソン2、60の 52バイト

f=lambda s,n=1:s[n:]and[s[:n]]+f(s,n+1)+[s[:n]]or[s]

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

Python 3.8（プレリリース）、50バイト

f=lambda s,n=1:s>(x:=s[:n])and[x,*f(s,n+1),x]or[s]

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

MATL、8バイト

nZv"G@:)

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

:)コードのスマイリーについては、この投稿を気に入ってください。

n  % Length of the input string
Zv % Symmetric range ([1 2 ... n ... 1])
"  % For each k in above range
G  % Push input
@: % Push [1 2 ... k]
)  % Index

J、11バイト

匿名の暗黙の接頭辞関数。スペースが埋め込まれた文字行列を返します。

[:(}:,|.)]\

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

]\ プレフィックスのリスト

[:(… ) 次の関数をそのリストに適用します

 |. 逆リスト

 , を先頭に付けた

 }: 縮小された（最後のアイテムなし）リスト

Perl 6、31バイト

{[\~](@_)[0...@_-1...0]}o*.comb

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

文字列を受け取り、行のリストを返す匿名コードブロック。

説明：

{                      }o*.comb   # Pass the list of characters into the codeblock
 [\~](@_)                 # Triangular reduce by concatenation
                          # e.g. The list [1,2,3,4] turns into [1,12,123,1234]
         [0...@_-1        # Return the elements from 0 to length of string minus 1
                  ...0]   # And back down to 0

Japt -R、4バイト

å+ ê

文字列の累積的な削減。

@Shaggyのおかげで-1バイト

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

Japt -R、9 7バイト

シャギーのおかげで-2バイト

Êõ@¯XÃê

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

Perl 5（-p）、26バイト

s,.,$\=$`.$/.$\;"$`$&
",ge

TIO

ハスケル、 52 50 44バイト

f x=unlines$init<>reverse$scanr(\_->init)x x

• ØrjanJohansenのトリックの変種による-2バイト
• -6バイトを活用してinstance Semigroup b => Semigroup (a -> b)

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

R、79 65 62 58バイト

write(substring(s<-scan(,""),1,c(1:(r=nchar(s)),r-1:r)),1)

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

-14ジュゼッペの優れた機能知識

-3クリーンなインデックス付け

-4ニックケネディとジュゼッペの移籍scanとwrite

ループ（およびsubstr）を避けるのはいいことです。

ゼリー、5 4バイト

@JonathanAllanのおかげで-1バイト！

¹ƤŒḄ

オンラインでお試しください！これは私の2番目のゼリーの答えだと思いますか？これが最適かどうかわかりません。私はそれが最適であることをより確信しています。行の配列を返します。

説明

¹ƤŒḄ     input: "Hi!"
¹Ƥ       prefixes of the input: [["H"], ["H", "i"], ["H", "i", "!"]]
  ŒḄ     bounce, using each array: [["H"], ["H", "i"], ["H", "i", "!"], ["H", "i"], ["H"]]

@JonathanAllanが提案するもう1つのアプローチは;\ŒḄ、であり、これは累積的に（\）連結（;）を削減します。これは、プレフィックスを生成する別の方法です。

Python 3.8（プレリリース）、48バイト

lambda s,r='':(l:=[r:=r+c for c in s])+l[-2::-1]

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

代入式 with :=を使用して接頭辞のリストを累積し、次に結果を保存してその逆を連結します（最初の文字なし）。

Python 2、51バイト

f=lambda s,l=[]:s and f(s[:-1],[s]+l)or l+l[-2::-1]

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

次の45バイトの解決策はほとんどありますが、元の文字列が2回あるため、これを修正する簡単な方法はありません。

f=lambda s,l=[]:s and f(s[:-1],[s]+l+[s])or l

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

木炭、5バイト

Ｇ^Ｌθθ

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：Ｇ塗りつぶされた多角形を描画^し、辺が右下と左下にあることを指定し（多角形は自動的に閉じます）、Ｌθそれらの辺の長さを元の入力の長さとしてθ指定し、最後に塗り文字列を指定します。

C＃（Visual C＃Interactive Compiler）、123 109 94 84 74バイト

char配列配列を返すことができると仮定します（char配列は文字列の有効な表現であり、string配列は複数行の有効な表現であるため、できると信じています）

a=>new int[a.Length*2-1].Select((b,i)=>a.SkipLast(Math.Abs(a.Length-i-1)))

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

アタッシュ、15バイト

Bounce@Prefixes

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

ものすごく単純。Bounces（中央なしで逆に追加）Prefixes入力。

または、21バイト： Bounce@{_[0..0:~-#_]}、プレフィックスの再実装。

Brachylog（v2）、6バイト

a₀ᶠ⊆.↔

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

関数の送信、行の配列を返します。@Fatalizeの回答に大まかに基づいています。

説明

a₀ᶠ⊆.↔
    .↔  Find a palindrome
   ⊆      that contains, in order,
  ᶠ       all
a₀        prefixes of {the input}

ここでのタイブレークの順序はによって設定されます。⊆このフローパターンで使用する場合、できるだけ早く出力を優先し、指定された要素をできるだけ早く配置してタイブレークします。最短の出力は、ここで必要なものです（重複するプレフィックスを使用できないため）。指定された要素（つまり、プレフィックス）をできるだけ早く配置すると、前半（切り上げ）に配置されます。出力。同じ順序で配置する必要があるため、Brachylogに与えた説明は非常に一般的ですが、必要なパターンを正確に取得することができます。タイブレークは正確に正しく機能するため、Brachylogは、説明に従った他の出力ではなく、必要な出力を選択します。

PowerShell、89 87 66バイト

@AdmBorkBorkのおかげで-2バイト

param($a)0..($d=$a.Length-1)|%{$b+=,-join$a[0..$_]};$b+$b[--$d..0]

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

以前は指定どおりに機能しませんでした、ごめんなさい！私はそれを編集し、いくつかのバイトを削ることもできました。

PowerShell、46バイト

($l=$args|% t*y|%{($s+=$_);++$i})+$l[$i..0]|gu

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

PowerShell、42バイト（YouTubeスペシャル、ダーティ）

YouTubeのコメントの最大長は10,000文字であることが知られています。OK、これを上限として使用します。

($l=$args|% t*y|%{($s+=$_)})+$l[1e4..0]|gu

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

APL（Dyalog Unicode）、9 バイト^SBCS

匿名の暗黙の接頭辞関数。文字列のリストを返します。

(⊢,1↓⌽),\

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

,\ プレフィックスのリスト（点灯、累積連結）

(… ) そのリストに次の機能を適用します。

 ⌽ 反転リスト

 1↓ 最初のアイテムをドロップ

 , 付け加える

 ⊢ 変更されていないリスト

ルビー、51 42 40バイト

f=->s,i=1{s[i]?[t=s[0,i],*f[s,i+1],t]:s}

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

-2バイトのDoorknobに感謝します。

JavaScript（Node.js）、90バイト

これはおそらくもっと多くのゴルフをすることができます、アーナルドはすでにかなり短いものを持っていますが、私は少なくとも楽しかったです！

s=>{a=[];for(c=s.length-1;c--;)a[c]=s.slice(0,c+1);return[...a,s,...a.reverse()].join`\n`}

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

SNOBOL4（CSNOBOL4）、118バイト

	N =INPUT
	L =1
1	X =LT(X,SIZE(N)) X + 1	:F(D)
O	N ARB . OUTPUT POS(X)	:($L)
D	X =GT(X) X - 1	:F(END)
	L ='D'	:(O)
END

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

SNOBOLのこの実装にはバグがあるようです。ラベルDをラベルに置き換えよう2とするとエラーが発生しますが、Vanilla SNOBOLのマニュアルには次のように記載されています（強調を追加）

ラベルが存在する場合は、行の最初の文字で始まる必要があります。ラベルはステートメントの名前を提供し、任意のステートメントのGOTOフィールドから制御を移すためのターゲットとして機能します。ラベルは文字または数字で始まり、オプションで任意の文字列が後に続く必要があります。ラベルフィールドは、空白文字、タブ、またはセミコロンで終了します。行の最初の文字が空白またはタブの場合、ラベルフィールドはありません。

私の推測では、CSNOBOLインタープリターは整数で始まる単一のラベルのみをサポートしています。

APL + WIN、31バイト

文字列の入力を求めるプロンプト：

 ⊃((⍳n),1↓⌽⍳n)↑¨(¯1+2×n←⍴s)⍴⊂s←⎕

説明：

(¯1+2×n←⍴s)⍴⊂s create a nested vector of the string of length =1+2x length of string

((⍳n),1↓⌽⍳n)↑¨ progressively select elements from each element of the nested vector 
              following the pattern 1  2 ...to n to n-1 ... 1

⊃ convert nested vector into a 2d array.

F＃（.NET Core）、67 61バイト

let l=s.Length
[1..l*2-1]|>Seq.map(fun i->s.[..l-abs(i-l)-1])

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

入力はaでstring、出力はaseq<string>

別の解決策はlet f(s:string)=for i=1 to s.Length*2-1 do printfn"%s"s.[..s.Length-abs(i-s.Length)-1]80バイトの場合です...調べる価値があるかどうかわかりません。

sed、31 35バイト

:x
h
s/.\n.*\|.$//
/^$/{x;q}
H
G
bx

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

説明

ループの各反復の開始時に、パターンスペースは目的の出力の「中央チャンク」であり、各ループは短縮コピーを上部と下部に追加します。

:x                 
h                  Copy the current chunk to hold space
s/.\n.*\|.$//      Remove the last letter of the first line, and all other lines (if there are any)
/^$/{x;q}          If pattern space is empty we're done; output hold space
H                  Add the shortened line to the end of hold space
G                  and add the new hold space to pattern space.
bx                 

パイソン2、131の 100 84バイト

コードゴルフに関する私の最初の答え！

@ SriotchilismO'Zaicのおかげで全体で-47バイト

a,b=[],len(x)
for i in range(2*b-1):
 if i<b:a+=x[i]
 else:a=a[:-1]
 print''.join(a)

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

J、12バイト

]\,[:}.@|.]\

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

まだAdámよりも1バイト長い

K（oK）、12 11バイト

ngnのおかげで-1バイト

{x,1_|x}@,\

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