เดี๋ยวก่อน ..... นี่มันไม่ได้หลอกเลย

พื้นหลัง

วันนี้บน YouTube ส่วนความคิดเห็นจะเกลื่อนไปด้วยรูปแบบดังกล่าว:

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

ที่Stringเป็นตัวยึดตำแหน่งเพียงและหมายถึงการรวมกันของตัวละครใด ๆ รูปแบบเหล่านี้มักจะมาพร้อมกับIt took me a lot of time to make this, pls likeหรืออะไรบางอย่างและบ่อยครั้งที่ OP ประสบความสำเร็จในการสะสมจำนวนไลค์

งาน

แม้ว่าคุณจะมีความสามารถที่ยอดเยี่ยมในการสะสมผู้ติดตามบน PPCG ด้วยทักษะการเล่นกอล์ฟที่มีเสน่ห์ของคุณ แต่คุณก็ไม่ได้เป็นตัวเลือกอันดับต้น ๆ สำหรับการพูดอย่างมีไหวพริบหรือการอ้างอิงในส่วนแสดงความคิดเห็นของ YouTube ดังนั้นความคิดเห็นเชิงสร้างสรรค์ของคุณที่เกิดขึ้นจากความคิดโดยเจตนาจะรวบรวม 'ไม่ชอบ' ไว้ใน YouTube เพียงเล็กน้อย คุณต้องการให้สิ่งนี้เปลี่ยนแปลง ดังนั้นคุณต้องสร้างรูปแบบความคิดโบราณที่กล่าวมาข้างต้นเพื่อให้บรรลุเป้าหมายสูงสุด แต่ไม่ต้องเสียเวลาพยายามเขียนด้วยตนเอง

เพียงแค่ใส่งานของคุณคือการใช้สตริง, พูดs, และเอาต์พุต2*s.length - 1ย่อยของs, คั่นด้วย newline, เพื่อให้สอดคล้องกับรูปแบบต่อไปนี้:

(สำหรับ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

โปรดสังเกตว่ามีการบิดเบือนที่ชัดเจนในรูปร่างของเอาต์พุตของกรณีทดสอบข้างต้น (ตัวอย่างเช่นบรรทัดที่สองและบรรทัดที่สามของเอาต์พุตปรากฏเหมือนกัน) นั่นเป็นเพราะเราไม่เห็นช่องว่างที่ต่อท้าย โปรแกรมของคุณไม่จำเป็นต้องพยายามแก้ไขการบิดเบือนเหล่านี้

เกณฑ์การชนะ

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์ในแต่ละภาษาจะชนะ!

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) เขียน$สตริง -terminated ไปที่หน้าจอดังนั้นในแต่ละครั้งที่วนลูปของตัวละครหลังจากที่จะแสดงครั้งสุดท้ายจะถูกสลับกับจุดสิ้นสุดของสตริง

ตัวนับลูปจะถูกเปรียบเทียบกับความยาวของสตริงและถ้ามันมีค่ามากกว่า (หมายถึงส่วนที่เพิ่มขึ้นของเอาต์พุต) ตำแหน่งของสตริง / swap จะเพิ่มขึ้นมิฉะนั้นจะลดลง (จริง ๆ แล้วมัน-1-1+1จะน้อยกว่าไบต์

โปรแกรมที่ดำเนินการแบบสแตนด์อโลนใช้สตริงอินพุตจากบรรทัดคำสั่ง

เอาท์พุต

ดาวน์โหลด YT2.COM (43 ไบต์)

• -1 ไบต์ขอบคุณGastropner !

Python 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 ไบต์

å+ ê

การลดการสะสมบนสตริง

-1 ไบต์ขอบคุณ @Shaggy

ลองออนไลน์!

Japt -R , 9 7 ไบต์

-2 ไบต์ต้องขอบคุณShaggy

Êõ@¯XÃê

ลองออนไลน์!

Perl 5 ( -p), 26 ไบต์

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

TIO

Haskell, 52 50 44 ไบต์

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

• -2 ไบต์โดยตัวแปรของเคล็ดลับของØrjan Johansen
• -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 โดย Giuseppe ความรู้เกี่ยวกับฟังก์ชั่นที่เหนือกว่า

-3 พร้อมการทำดัชนีที่สะอาดขึ้น

-4 ต้องขอขอบคุณ Nick Kennedy และ Giuseppe ที่ย้ายมาscanและwrite

หลีกเลี่ยงการวนsubstrซ้ำ(และ) ดี

เยลลี่ , 5 4 ไบต์

-1 ไบต์ขอบคุณ@JonathanAllan !

¹ƤŒḄ

ลองออนไลน์! ฉันคิดว่านี่เป็นคำตอบที่สองของฉัน Jelly? ฉันไม่รู้ว่าสิ่งนี้เหมาะสมหรือไม่ ฉันมั่นใจมากขึ้นว่าเป็นสิ่งที่ดีที่สุด ส่งคืนอาร์เรย์ของบรรทัด

การอธิบาย

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

วิธีการอื่นที่เสนอโดย @JonathanAllan คือวิธี;\ŒḄที่การรวมกันลด ( \) การต่อข้อมูล ( ;) ซึ่งเป็นอีกวิธีหนึ่งในการสร้างคำนำหน้า

Python 3.8 (pre-release) 48 ไบต์

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

ลองออนไลน์!

ใช้นิพจน์การมอบหมายด้วย:=เพื่อสะสมรายการคำนำหน้าจากนั้นอีกครั้งเพื่อบันทึกผลลัพธ์เพื่อเชื่อมโยงการย้อนกลับ (โดยไม่มีอักขระตัวแรก)

Python 2 , 51 ไบต์

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

ลองออนไลน์!

เราเกือบจะมีวิธีแก้ปัญหา 45 ไบต์ที่ดีดังต่อไปนี้ แต่มันมีสตริงเดิมสองครั้งและฉันไม่เห็นวิธีแก้ไขปัญหาสั้น ๆ

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 เป็นตัวแทนที่ถูกต้องสำหรับสตริงและสตริงอาร์เรย์เป็นตัวแทนที่ถูกต้องสำหรับหลายบรรทัด)

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}

ลำดับ Tiebreak ที่นี่ถูกตั้งค่าโดย ⊆ที่เมื่อนำมาใช้กับรูปแบบการไหลนี้ชอบเอาท์พุทที่สั้นที่สุด, tiebroken โดยการวางองค์ประกอบให้เร็วที่สุดเท่าที่เป็นไปได้ ผลลัพธ์ที่สั้นที่สุดที่เป็นไปได้คือสิ่งที่เราต้องการที่นี่ (เนื่องจากไม่มีความเป็นไปได้ที่จะมีคำนำหน้าซ้ำ) และการวางองค์ประกอบที่กำหนด (เช่นคำนำหน้า) ให้เร็วที่สุดเท่าที่จะทำได้จะวางไว้ในครึ่งแรก เอาท์พุต เนื่องจากเราต้องการให้พวกเขาอยู่ในลำดับเดียวกันเราจึงได้รูปแบบที่เราต้องการแม้ว่าคำอธิบายที่เราให้ Brachylog นั้นเป็นเรื่องทั่วไปมาก tiebreaks นั้นเกิดขึ้นอย่างถูกต้องทำให้ Brachylog เลือกเอาท์พุทที่เราต้องการมากกว่าเอาท์พุทอื่น ๆ ที่ทำตามคำอธิบาย

PowerShell, 89 87 66 ไบต์

-2 ไบต์ขอบคุณ @AdmBorkBork

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 ตัวอักษร ตกลงใช้สิ่งนี้เป็นขีด จำกัด บน

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

ลองออนไลน์!

APL (Dyalog Unicode) , 9 ไบต์^SBCS

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ ส่งคืนรายการสตริง

(⊢,1↓⌽),\

ลองออนไลน์!

,\ รายการคำนำหน้า (lit, การต่อข้อมูลแบบรวมสะสม)

(... ) ใช้ฟังก์ชันต่อไปนี้กับรายการนั้น:

 ⌽ รายการที่กลับรายการ

 1↓ วางรายการแรก

 , ย่อหน้า

 ⊢ รายการที่ไม่ได้แก้ไข

Ruby , 51 42 40 ไบต์

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

ลองออนไลน์!

ขอบคุณ Doorknob สำหรับ -2 ไบต์

JavaScript (Node.js) , 90 ไบต์

นี่อาจเป็นเรื่องที่เล่นกอล์ฟได้มากขึ้นArnauldมีวิธีที่สั้นกว่า แต่ฉันสนุกอย่างน้อย!

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 บ่งชี้ว่า (เน้นเพิ่ม)

หากมีฉลากอยู่จะต้องเริ่มต้นด้วยอักขระตัวแรกของบรรทัด Labels ให้ชื่อสำหรับคำสั่งและใช้เป็นเป้าหมายสำหรับการโอนการควบคุมจากฟิลด์ 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]80ish ไบต์ ... ฉันไม่แน่ใจว่ามันคุ้มค่าที่จะดู

sed , 31 35 bytes

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

ลองออนไลน์!

การอธิบาย

ที่จุดเริ่มต้นของการวนซ้ำแต่ละครั้งของการวนซ้ำพื้นที่รูปแบบคือ "Central Chunk" บางส่วนของเอาต์พุตที่ต้องการและแต่ละวงจะเพิ่มสำเนาที่สั้นลงไปที่ด้านบนและด้านล่าง

: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 ไบต์

คำตอบแรกของฉันเกี่ยวกับ Code Golf!

-47 ไบต์โดยรวมต้องขอบคุณ @ 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)

ลองออนไลน์!

J , 12 ไบต์

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

ลองออนไลน์!

ยังคง 1 ไบต์ยาวกว่าของAdám

K (oK) , 12 11 ไบต์

-1 ไบต์ขอบคุณ ngn

{x,1_|x}@,\

ลองออนไลน์!