Tahan ..... ini bukan trolling.

Latar Belakang

Saat ini di YouTube, bagian komentar dipenuhi dengan pola-pola seperti:

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

di mana Stringmerupakan tempat belaka dan mengacu pada kombinasi karakter. Pola-pola ini biasanya disertai dengan It took me a lot of time to make this, pls likeatau sesuatu, dan seringkali OP berhasil mengumpulkan sejumlah suka.

Tugas

Meskipun Anda memiliki talenta hebat mengumpulkan upvote di PPCG dengan keterampilan golf Anda yang memukau, Anda jelas bukan pilihan utama untuk membuat komentar yang cerdas atau referensi meme di bagian komentar YouTube. Dengan demikian, komentar konstruktif Anda dibuat dengan pemikiran yang disengaja mengumpulkan beberapa suka atau tidak suka di YouTube. Anda ingin ini berubah. Jadi, Anda memilih untuk membuat pola-pola klise di atas untuk mencapai ambisi utama Anda, tetapi tanpa membuang waktu mencoba untuk menulisnya secara manual.

Sederhananya, tugas Anda adalah untuk mengambil string, katakanlah s, dan output 2*s.length - 1substring dari s, dibatasi oleh baris baru, sehingga memenuhi pola berikut:

(untuk s= "Halo")

H
He
Hel
Hell
Hello
Hell
Hel
He
H

Memasukkan

Satu string s. Standar input komunitas berlaku. Anda dapat mengasumsikan bahwa string input hanya akan berisi karakter ASCII yang dapat dicetak.

Keluaran

Beberapa garis dipisahkan oleh baris baru, membentuk pola yang sesuai seperti yang dijelaskan di atas. Default output komunitas berlaku. Garis depan dan belakang kosong (tidak mengandung karakter atau karakter yang tidak dapat dilihat, seperti spasi) di output diizinkan.

Kasus cobaan

Kasus uji multi-kata:

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

Perhatikan bahwa ada distorsi yang terlihat jelas pada bentuk keluaran test case di atas (misalnya, baris dua dan baris tiga dari output tampak sama). Itu karena kita tidak bisa melihat spasi putih tertinggal. Program Anda TIDAK perlu mencoba memperbaiki distorsi ini.

Kriteria Kemenangan

Ini adalah kode-golf , jadi kode terpendek dalam byte di setiap bahasa menang!

brainfuck , 32 byte

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

Cobalah online!

Loop yang sama digunakan untuk kedua bagian dari pola.

Penjelasan:

,             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

Cobalah online!

Berkomentar

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 (legacy) ,  4  3 byte

^{Dicoret  4 tidak lagi 4 :)}

η.∊

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

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

Dalam versi baru 05AB1E, dan eksplisit »diperlukan setelah itu η, itulah sebabnya saya menggunakan versi lama dari 05AB1E di sini untuk menghemat satu byte.

IBM PC DOS, 8088 assembly,  44  43

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

Belum dirakit:

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

Penjelasan

Ulangi 2 * input length - 1untuk setiap baris. Fungsi tampilan string API DOS ( INT 21H,9) menulis $string -minminasi ke layar, sehingga setiap kali melalui loop karakter setelah yang terakhir ditampilkan ditukar dengan terminator ujung-string.

Penghitung loop dibandingkan dengan panjang string, dan jika lebih besar (berarti bagian naik dari output) posisi string / swap bertambah, jika tidak maka akan dikurangi (sebenarnya itu -1-1+1adalah byte yang lebih sedikit daripada struktur percabangan if / else).

Program mandiri yang dapat dieksekusi, mengambil string input dari baris perintah.

Keluaran

Unduh YT2.COM (43 byte)

• -1 byte, terima kasih kepada gastropner !

Python 2 , 60 52 byte

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

Cobalah online!

Python 3.8 (pra-rilis) , 50 byte

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

Cobalah online!

MATL , 8 byte

nZv"G@:)

Cobalah online!

Silakan suka posting ini untuk smiley :)dalam kode yang membuat saya banyak waktu untuk membuatnya.

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

Fungsi awalan diam-diam anonim. Mengembalikan matriks karakter yang diisi ruang.

[:(}:,|.)]\

Cobalah online!

]\ daftar awalan

[:(... ) terapkan fungsi berikut ke daftar itu

 |. daftar terbalik

 , diawali dengan

 }: daftar yang dibatasi (tanpa item terakhir)

Perl 6 , 31 byte

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

Cobalah online!

Blok kode anonim yang mengambil string dan mengembalikan daftar baris.

Penjelasan:

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

å+ ê

Mengurangi kumulatif pada string.

-1 byte terima kasih kepada @Shaggy

Cobalah online!

Japt -R , 9 7 byte

-2 byte terima kasih kepada Shaggy

Êõ@¯XÃê

Cobalah online!

Perl 5 ( -p), 26 byte

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

TIO

Haskell, 52 50 44 byte

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

• -2 byte oleh varian trik Ørjan Johansen
• -6 byte dengan memanfaatkaninstance Semigroup b => Semigroup (a -> b)

Cobalah online!

R , 79 65 62 58 byte

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

Cobalah online!

-14 oleh pengetahuan fungsi superior Giuseppe

-3 dengan pengindeksan lebih bersih

Terima kasih atas kepindahan Nick Kennedy dan Giuseppe ke scandanwrite

Menghindari loop (dan substr) itu bagus.

Jelly , 5 4 byte

-1 byte terima kasih kepada @JonathanAllan !

¹ƤŒḄ

Cobalah online! Saya pikir ini adalah jawaban Jelly kedua saya? Saya tidak tahu apakah ini optimal.Saya lebih yakin itu optimal. Mengembalikan array garis.

Penjelasan

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

Pendekatan lain, yang diusulkan oleh @JonathanAllan, adalah ;\ŒḄ, yang secara kumulatif mengurangi ( \) rangkaian ( ;), yang merupakan cara lain untuk menghasilkan awalan.

Python 3.8 (pra-rilis) , 48 byte

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

Cobalah online!

Menggunakan ekspresi penugasan dengan :=untuk mengakumulasikan daftar awalan dan sekali lagi untuk menyimpan hasil untuk menyatukan kebalikannya (tanpa karakter pertama).

Python 2 , 51 byte

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

Cobalah online!

Kami hampir memiliki solusi 45 byte yang bagus berikut, tetapi memiliki string asli dua kali dan saya tidak melihat cara singkat untuk memperbaikinya.

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

Cobalah online!

Arang , 5 byte

Ｇ^Ｌθθ

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan: Ｇmenggambar poligon terisi, ^menentukan bahwa sisi-sisi turun kanan dan kiri bawah (poligon kemudian secara otomatis menutup sendiri), Ｌθmenetapkan panjang sisi-sisi tersebut sebagai panjang input asli dan final θmenentukan string pengisi.

C # (Visual C # Interactive Compiler) , 123 109 94 84 74 byte

Asumsikan kita dapat mengembalikan array array char (saya percaya kita bisa, karena array char adalah representasi yang valid untuk sebuah string dan array string adalah representasi yang valid untuk beberapa baris)

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

Cobalah online!

Attache , 15 byte

Bounce@Prefixes

Cobalah online!

Cukup mudah. Bounce(menambahkan terbalik tanpa tengah)Prefixes input.

Atau, 21 byte Bounce@{_[0..0:~-#_]} :, menerapkan kembali awalan.

Brachylog (v2), 6 byte

a₀ᶠ⊆.↔

Cobalah online!

Pengiriman fungsi, mengembalikan array garis. Longgar berdasarkan jawaban @ Fatalize .

Penjelasan

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

Urutan tiebreak di sini diatur oleh ⊆, yang, ketika digunakan dengan pola aliran ini, lebih suka output sesingkat mungkin, tiebroken dengan menempatkan elemen yang diberikan sedini mungkin . Output terpendek yang mungkin adalah yang kita inginkan di sini (karena itu tidak mungkin untuk memiliki duplikat awalan), dan menempatkan elemen yang diberikan (yaitu awalan) sedini mungkin akan menempatkannya di babak pertama (dibulatkan) dari keluaran. Mengingat bahwa kami juga mengharuskan mereka untuk ditempatkan dalam urutan yang sama, kami mendapatkan pola yang persis kami butuhkan meskipun deskripsi yang kami berikan kepada Brachylog sangat umum; tiebreak berhasil dengan tepat, menyebabkan Brachylog untuk memilih output yang kita inginkan daripada beberapa output lain yang mematuhi deskripsi.

PowerShell, 89 87 66 byte

-2 byte terima kasih kepada @AdmBorkBork

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

Cobalah online!

Sebenarnya tidak berfungsi seperti yang ditentukan sebelumnya, maaf soal itu! Saya telah mengeditnya dan juga berhasil mencukur beberapa byte.

PowerShell , 46 byte

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

Cobalah online!

PowerShell , 42 byte (khusus YouTube, kotor)

Diketahui bahwa panjang maksimum komentar di youtube adalah 10.000 karakter. Ok, gunakan ini sebagai batas atas.

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

Cobalah online!

APL (Dyalog Unicode) , 9 byte ^SBCS

Fungsi awalan diam-diam anonim. Mengembalikan daftar string.

(⊢,1↓⌽),\

Cobalah online!

,\ daftar awalan (menyala, gabungan kumulatif)

(... ) terapkan fungsi berikut ke daftar itu:

 ⌽ daftar terbalik

 1↓ jatuhkan item pertama

 , lebih dulu

 ⊢ daftar yang tidak dimodifikasi

Ruby , 51 42 40 byte

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

Cobalah online!

Berkat Doorknob untuk -2 byte.

JavaScript (Node.js) , 90 byte

Ini mungkin bisa bermain golf lebih banyak, Arnauld sudah memiliki cara yang lebih pendek tapi aku bersenang-senang minimal!

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

Cobalah online!

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

Cobalah online!

Tampaknya ada bug dalam implementasi SNOBOL ini; mencoba mengganti label Ddengan label 2menyebabkan kesalahan, meskipun manual untuk Vanilla SNOBOL menunjukkan bahwa (penekanan ditambahkan)

Jika label ada, itu harus dimulai dengan karakter pertama dari garis. Label memberikan nama untuk pernyataan, dan berfungsi sebagai target untuk transfer kontrol dari bidang GOTO dari pernyataan apa pun. Label harus dimulai dengan huruf atau angka, secara opsional diikuti oleh serangkaian karakter yang berubah-ubah. Bidang label diakhiri oleh karakter kosong, tab, atau titik koma. Jika karakter pertama dari suatu baris kosong atau tab, bidang label tidak ada.

Anggapan saya adalah bahwa juru bahasa CSNOBOL hanya mendukung satu label yang dimulai dengan integer.

APL + WIN, 31 byte

Anjuran untuk input string:

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

Penjelasan:

(¯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])

Cobalah online!

Input adalah a stringdan output adalah aseq<string>

Solusi lain bisa let f(s:string)=for i=1 to s.Length*2-1 do printfn"%s"s.[..s.Length-abs(i-s.Length)-1]untuk 80ish byte ... Saya tidak yakin bahwa itu layak dilihat.

sed , 31 35 byte

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

Cobalah online!

Penjelasan

Pada awal setiap iterasi dari loop, ruang pola adalah beberapa "central chunk" dari output yang diinginkan, dan setiap loop menambahkan salinan yang disingkat ke atas dan bawah.

: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                 

Python 2 , 131 100 84 byte

Jawaban pertama saya di Code Golf!

-47 byte secara keseluruhan berkat @ SriotchilismO'Zaic

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

Cobalah online!

J , 12 byte

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

Cobalah online!

Masih 1 byte lebih lama dari Adám

K (oK) , 12 11 byte

-1 byte terima kasih kepada ngn

{x,1_|x}@,\

Cobalah online!