잠깐만 ..... 이것은 트롤링이 아니다.

배경

요즘 YouTube에서는 댓글 섹션에 다음과 같은 패턴이 있습니다.

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

where String는 단순한 자리 표시 자이며 문자 조합을 나타냅니다. 이러한 패턴에는 대개 하나 It took me a lot of time to make this, pls like이상의 무언가가 수반되며 OP는 종종 여러 가지 좋아요를 모으는 데 성공합니다.

작업

매력적인 골프 기술로 PPCG에 대한 찬성 투표에 큰 재능이 있지만 YouTube 댓글 섹션에서 재치있는 말을하거나 밈을 참조하기위한 최고의 선택은 아닙니다. 따라서 고의로 생각한 의견은 YouTube에서 '좋아요'에 불과합니다. 이 변경을 원합니다. 따라서, 당신은 궁극적 인 야망을 이루기 위해 위에서 언급 한 진부한 패턴을 만드는 데 의존하지만, 수동으로 글을 쓰려고 노력하는 데 시간을 낭비하지 않습니다.

간단히 말해서 , 다음 패턴을 준수하기 위해 문자열, 예를 들어 s, 개행 문자로 구분 된의 2*s.length - 1하위 문자열을 출력 s하는 것입니다.

(for s= "안녕하세요")

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
]

자바 스크립트 (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는 if / else 분기 구조보다 바이트 수가 더 적습니다).

독립 실행 형 프로그램으로 명령 줄에서 입력 문자열을 가져옵니다.

산출

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 바이트

익명의 암묵적 접두사 기능. 공백으로 채워진 문자 행렬을 반환합니다.

[:(}:,|.)]\

온라인으로 사용해보십시오!

]\ 접두사 목록

[:(… ) 그 목록에 다음 기능을 적용하십시오

 |. 반대 목록

 , 접두사

 }: 축소 된 (마지막 항목없이) 목록

펄 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 바이트

온라인으로 사용해보십시오!

apt -R , 9 7 바이트

Shaggy 덕분에 -2 바이트

Êõ@¯XÃê

온라인으로 사용해보십시오!

펄 5 ( -p), 26 바이트

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

TIO

하스켈, 52 50 44 바이트

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

• Ørjan Johansen의 트릭 변형으로 -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 바이트 !

¹ƤŒḄ

온라인으로 사용해보십시오! 나는 이것이 나의 두 번째 젤리 대답이라고 생각합니까? 이것이 최적인지 모르겠습니다. 나는 그것이 최적이라고 확신합니다. 행 배열을 반환합니다.

설명

¹ƤŒḄ     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 (시험판) , 48 바이트

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

온라인으로 사용해보십시오!

사용 할당 식 으로 :=하는 접두사의 목록을 축적 한 후 다시 (첫 번째 문자없이) 그 역을 연결하는 결과를 저장합니다.

파이썬 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 번호 (카메라 C 번호 인터랙티브 컴파일러) , 123 (109) 94 84 74 바이트

char 배열 배열을 반환 할 수 있다고 가정합니다 (char 배열은 문자열에 대한 유효한 표현이고 문자열 배열은 여러 줄에 대한 유효한 표현이므로 가능하다고 생각합니다)

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

온라인으로 사용해보십시오!

첨부 , 15 바이트

Bounce@Prefixes

온라인으로 사용해보십시오!

꽤 간단합니다. Bounce입력의 s (중심없이 반전 됨) 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 순서는 ⊆이 흐름 패턴과 함께 사용될 때 주어진 요소를 가능한 한 빨리 배치하여 가능한 가장 짧은 출력을 선호 합니다 . 가능한 가장 짧은 출력은 우리가 원하는 것입니다 (중복 접두사를 가질 수 없기 때문에), 주어진 요소 (즉 접두사)를 가능한 한 빨리 배치하면 첫 번째 반 (반올림)에 배치됩니다 산출. 동일한 순서로 배치해야한다는 점을 감안할 때 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자인 것으로 알려져 있습니다. 좋습니다, 이것을 상한으로 사용하십시오.

($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 덕분에.

자바 스크립트 (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 구현에는 버그가있는 것 같습니다. Vanilla SNOBOL 설명서에 다음과 같이 표시되어 있지만 D레이블을 레이블로 바꾸려고하면 2오류가 발생합니다 (강조 추가).

레이블이 있으면 행의 첫 문자로 시작해야합니다. 레이블은 명령문의 이름을 제공하며 명령문의 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 코어) , 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 바이트

: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 바이트

Code Golf에 대한 첫 번째 답변!

@ 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}@,\

온라인으로 사용해보십시오!