Giữ lên ..... đây không phải là trolling.

Lý lịch

Những ngày này trên YouTube, các phần bình luận tràn ngập các mẫu như vậy:

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

nơi chỉ Stringlà một giữ chỗ và đề cập đến bất kỳ sự kết hợp của các nhân vật. Những mẫu này thường đi kèm với một It took me a lot of time to make this, pls likehoặc một cái gì đó, và thường OP thành công trong việc tích lũy một số lượt thích.

Nhiệm vụ

Mặc dù bạn đã có một tài năng tích lũy tuyệt vời trên PPCG với kỹ năng chơi gôn quyến rũ của mình, bạn chắc chắn không phải là lựa chọn hàng đầu để đưa ra những nhận xét dí dỏm hoặc tham khảo các meme trong các phần bình luận trên YouTube. Do đó, các nhận xét mang tính xây dựng của bạn được thực hiện với suy nghĩ có chủ ý sẽ tích lũy một vài lượt không 'thích' trên YouTube. Bạn muốn điều này thay đổi. Vì vậy, bạn dùng đến việc tạo ra các mẫu sáo rỗng đã nói ở trên để đạt được tham vọng cuối cùng của mình, nhưng không lãng phí bất kỳ thời gian nào để cố gắng tự viết chúng.

Nói một cách đơn giản, nhiệm vụ của bạn là lấy một chuỗi, nói svà các 2*s.length - 1chuỗi con đầu ra của s, được phân định bởi một dòng mới, để tuân thủ mẫu sau:

(cho s= "Xin chào")

H
He
Hel
Hell
Hello
Hell
Hel
He
H

Đầu vào

Một chuỗi đơn s. Mặc định đầu vào của cộng đồng áp dụng. Bạn có thể giả sử rằng chuỗi đầu vào sẽ chỉ chứa các ký tự ASCII có thể in được.

Đầu ra

Một số dòng được phân tách bằng một dòng mới, tạo thành một mẫu thích hợp như được giải thích ở trên. Mặc định đầu ra của cộng đồng áp dụng. Hàng đầu và dấu trống (không chứa ký tự hoặc ký tự không thể nhìn thấy, như khoảng trắng) trong đầu ra được cho phép.

Trường hợp thử nghiệm

Một trường hợp kiểm tra nhiều từ:

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

Lưu ý rằng có các biến dạng rõ ràng trong hình dạng đầu ra của trường hợp thử nghiệm ở trên (ví dụ: dòng hai và dòng ba của đầu ra xuất hiện giống nhau). Đó là bởi vì chúng ta không thể nhìn thấy các khoảng trắng ở cuối. Chương trình của bạn KHÔNG cần cố gắng khắc phục những biến dạng này.

Tiêu chí chiến thắng

Đây là mã golf , vì vậy mã ngắn nhất tính theo byte trong mỗi ngôn ngữ sẽ thắng!

Brainfuck , 32 byte

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

Hãy thử trực tuyến!

Vòng lặp giống nhau được sử dụng cho cả hai nửa của mẫu.

Giải trình:

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

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

Hãy thử trực tuyến!

Đã bình luận

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 (di sản) ,  4  3 byte

^{Bỏ qua  4 không còn 4 :)}

η.∊

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

η     # 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)

Trong phiên bản mới của 05AB1E, và rõ ràng »là bắt buộc sau η, đó là lý do tại sao tôi sử dụng phiên bản kế thừa của 05AB1E ở đây để lưu một byte.

IBM PC DOS, lắp ráp 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

Chưa được lắp ráp:

    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,'$'

Giải trình

Vòng lặp 2 * input length - 1cho mỗi hàng. Hàm hiển thị chuỗi của API DOS ( INT 21H,9) ghi một $chuỗi kết thúc vào màn hình, do đó, mỗi lần qua vòng lặp, ký tự sau lần hiển thị cuối cùng sẽ được hoán đổi với dấu kết thúc chuỗi cuối.

Bộ đếm vòng lặp được so sánh với độ dài chuỗi và nếu nó lớn hơn (có nghĩa là phần tăng dần của đầu ra) thì vị trí chuỗi / hoán đổi được tăng lên, nếu không, nó giảm dần (thực tế nó -1-1+1có ít byte hơn cấu trúc phân nhánh if / khác).

Chương trình thực thi độc lập, lấy chuỗi đầu vào từ dòng lệnh.

Đầu ra

Tải xuống YT2.COM (43 byte)

• -1 byte nhờ chuyên gia dạ dày !

Python 2 , 60 52 byte

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

Hãy thử trực tuyến!

Python 3.8 (tiền phát hành) , 50 byte

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

Hãy thử trực tuyến!

MATL , 8 byte

nZv"G@:)

Hãy thử trực tuyến!

Xin vui lòng thích bài đăng này cho các mặt cười :)trong mã mà tôi đã mất rất nhiều thời gian để thực hiện.

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 byte

Chức năng tiền tố ẩn danh. Trả về một ma trận ký tự đệm không gian.

[:(}:,|.)]\

Hãy thử trực tuyến!

]\ danh sách các tiền tố

[:(... ) áp dụng các chức năng sau đây vào danh sách đó

 |. danh sách ngược

 , chuẩn bị với

 }: danh sách rút gọn (không có mục cuối)

Perl 6 , 31 byte

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

Hãy thử trực tuyến!

Khối mã ẩn danh nhận một chuỗi và trả về một danh sách các dòng.

Giải trình:

{                      }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 byte

å+ ê

Tích lũy giảm trên một chuỗi.

-1 byte nhờ @Shaggy

Hãy thử trực tuyến!

Japt -R , 9 7 byte

-2 byte nhờ Shaggy

Êõ@¯XÃê

Hãy thử trực tuyến!

Perl 5 ( -p), 26 byte

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

TIO

Haskell, 52 50 44 byte

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

• -2 byte bởi một biến thể của thủ thuật Ørjan Johansen
• -6 byte bằng cách tận dụnginstance Semigroup b => Semigroup (a -> b)

Hãy thử trực tuyến!

R , 79 65 62 58 byte

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

Hãy thử trực tuyến!

-14 bởi kiến ​​thức chức năng vượt trội của Giuseppe

-3 với chỉ mục sạch hơn

-4 cảm ơn Nick Kennedy và Giuseppe đã chuyển đến scanvàwrite

Tránh các vòng lặp (và substr) là tốt đẹp.

Thạch , 5 4 byte

-1 byte nhờ @Jonathan ALLan !

¹ƤŒḄ

Hãy thử trực tuyến! Tôi nghĩ rằng đây là câu trả lời Jelly thứ hai của tôi? Tôi không biết nếu điều này là tối ưu. Tôi tin chắc hơn về nó là tối ưu. Trả về một mảng các dòng.

Giải trình

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

Một cách tiếp cận khác, được đề xuất bởi @Jonathan ALLan, là ;\ŒḄ, làm giảm tích lũy ( \) concatenation ( ;), đó là một cách khác để tạo tiền tố.

Python 3.8 (tiền phát hành) , 48 byte

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

Hãy thử trực tuyến!

Sử dụng các biểu thức gán với :=để tích lũy một danh sách các tiền tố và sau đó một lần nữa để lưu kết quả để nối ngược lại (không có char đầu tiên).

Python 2 , 51 byte

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

Hãy thử trực tuyến!

Chúng tôi gần như có giải pháp 45 byte tuyệt vời sau đây, nhưng nó có chuỗi gốc hai lần và tôi không thấy một cách ngắn để khắc phục điều này.

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

Hãy thử trực tuyến!

Than , 5 byte

Ｇ^Ｌθθ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải thích: Ｇvẽ một đa giác được lấp đầy, ^chỉ định rằng các cạnh nằm xuống bên phải và xuống bên trái (đa giác sau đó tự động đóng lại), Ｌθchỉ định độ dài của các cạnh đó là độ dài của đầu vào ban đầu và cuối cùng θchỉ định chuỗi điền.

C # (Trình biên dịch tương tác Visual C #) , 123 109 94 84 74 byte

Giả sử chúng ta có thể trả về một mảng mảng char (tôi tin rằng chúng ta có thể, vì một mảng char là một đại diện hợp lệ cho một chuỗi và một chuỗi chuỗi là một đại diện hợp lệ cho nhiều dòng)

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

Hãy thử trực tuyến!

Tùy viên , 15 byte

Bounce@Prefixes

Hãy thử trực tuyến!

Khá đơn giản. Bounces (nối ngược mà không có trung tâm) Prefixesđầu vào.

Ngoài ra, 21 byte : Bounce@{_[0..0:~-#_]} , thực hiện lại tiền tố.

Brachylog (v2), 6 byte

a₀ᶠ⊆.↔

Hãy thử trực tuyến!

Chức năng trình, trả về một loạt các dòng. Dựa vào câu trả lời của @ Fatalize .

Giải trình

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

Thứ tự tiebreak ở đây được thiết lập bởi ⊆, khi được sử dụng với mẫu luồng này, ưu tiên đầu ra ngắn nhất có thể, liên kết bằng cách đặt các phần tử đã cho càng sớm càng tốt . Đầu ra ngắn nhất có thể là những gì chúng ta muốn ở đây (do không thể có bất kỳ tiền tố trùng lặp nào) và đặt các phần tử đã cho (tức là các tiền tố) càng sớm càng tốt sẽ đặt chúng vào nửa đầu (làm tròn lên) đầu ra. Vì chúng tôi cũng yêu cầu chúng được đặt theo cùng một thứ tự, chúng tôi tình cờ có được chính xác mẫu mà chúng tôi cần mặc dù mô tả chúng tôi đã đưa ra cho Brachylog rất chung chung; các tiebreak xảy ra chính xác, khiến Brachylog chọn đầu ra mà chúng ta muốn thay vì một số đầu ra khác tuân theo mô tả.

PowerShell, 89 87 66 byte

-2 byte nhờ @AdmBorkBork

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

Hãy thử trực tuyến!

Nó thực sự không hoạt động như được chỉ định trước đó, xin lỗi về điều đó! Tôi đã chỉnh sửa nó và cũng đã quản lý để tắt một số byte.

PowerShell , 46 byte

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

Hãy thử trực tuyến!

PowerShell , 42 byte (YouTube đặc biệt, bẩn)

Được biết, độ dài tối đa của một nhận xét trên youtube là 10.000 ký tự. Ok, sử dụng điều này như giới hạn trên.

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

Hãy thử trực tuyến!

APL (Dyalog Unicode) , 9 byte ^SBCS

Chức năng tiền tố ẩn danh. Trả về danh sách các chuỗi.

(⊢,1↓⌽),\

Hãy thử trực tuyến!

,\ danh sách các tiền tố (lit, phép nối tích lũy)

(... ) áp dụng các chức năng sau đây vào danh sách đó:

 ⌽ danh sách đảo ngược

 1↓ thả mục đầu tiên

 , trả trước

 ⊢ danh sách chưa sửa đổi

Ruby , 51 42 40 byte

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

Hãy thử trực tuyến!

Cảm ơn Doorknob cho -2 byte.

JavaScript (Node.js) , 90 byte

Điều này có lẽ có thể được chơi golf nhiều hơn nữa, Arnauld đã có một cách ngắn hơn nhưng tôi đã có niềm vui ít nhất!

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

Hãy thử trực tuyến!

SNOBOL4 (CSNOBOL4) , 118 byte

	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

Hãy thử trực tuyến!

Dường như có một lỗi trong việc triển khai SNOBOL này; cố gắng thay thế nhãn Dbằng nhãn 2gây ra lỗi, mặc dù hướng dẫn sử dụng cho Vanilla SNOBOL chỉ ra rằng (nhấn mạnh thêm)

Nếu một nhãn có mặt, nó phải bắt đầu bằng ký tự đầu tiên của dòng. Các nhãn cung cấp tên cho câu lệnh và đóng vai trò là mục tiêu để chuyển quyền kiểm soát từ trường GOTO của bất kỳ câu lệnh nào. Các nhãn phải bắt đầu bằng một chữ cái hoặc chữ số, tùy ý theo sau là một chuỗi ký tự tùy ý. Trường nhãn được kết thúc bằng ô trống ký tự, tab hoặc dấu chấm phẩy. Nếu ký tự đầu tiên của một dòng trống hoặc tab, trường nhãn không có.

Giả sử của tôi là trình thông dịch CSNOBOL chỉ hỗ trợ một nhãn duy nhất bắt đầu bằng một số nguyên.

APL + THẮNG, 31 byte

Lời nhắc cho đầu vào của chuỗi:

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

Giải trình:

(¯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 byte

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

Hãy thử trực tuyến!

Đầu vào là một stringvà đầu ra là mộtseq<string>

Một giải pháp khác có thể là let f(s:string)=for i=1 to s.Length*2-1 do printfn"%s"s.[..s.Length-abs(i-s.Length)-1]80ish byte ... Tôi không chắc rằng nó đáng để xem xét.

sed , 31 35 byte

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

Hãy thử trực tuyến!

Giải trình

Ở đầu mỗi lần lặp của vòng lặp, không gian mẫu là một số "khối trung tâm" của đầu ra mong muốn và mỗi vòng lặp thêm một bản sao rút gọn vào đầu và cuối.

: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                 

Con trăn 2 , 131 100 84 byte

Câu trả lời đầu tiên của tôi về Code Golf!

-47 byte tổng thể nhờ @ SriotchilismO'Z cổ

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

Hãy thử trực tuyến!

J , 12 byte

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

Hãy thử trực tuyến!

Vẫn dài hơn 1 byte so với Adám

K (oK) , 12 11 byte

-1 byte nhờ ngn

{x,1_|x}@,\

Hãy thử trực tuyến!