Poczekaj ..... to nie trolling.

tło

Te dni w YouTube sekcje komentarzy są zaśmiecone takimi wzorami:

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

gdzie Stringjest zwykłym symbolem zastępczym i odnosi się do dowolnej kombinacji znaków. Tym wzorcom zwykle towarzyszy It took me a lot of time to make this, pls likecoś lub coś, i często OP udaje się zgromadzić wiele polubień.

Zadanie

Chociaż masz wielki talent do gromadzenia głosów pozytywnych na PPCG dzięki swoim uroczym umiejętnościom golfowym, zdecydowanie nie jesteś najlepszym wyborem do robienia dowcipnych uwag lub odwoływania się do memów w sekcjach komentarzy na YouTube. Tak więc Twoje konstruktywne komentarze z przemyślaną myślą zgromadziły kilka lub nie „polubiły” na YouTube. Chcesz to zmienić. Dlatego uciekaj się do robienia wyżej wymienionych stereotypów, aby osiągnąć ostateczne ambicje, ale nie marnuj czasu, próbując je ręcznie napisać.

Mówiąc najprościej, Twoim zadaniem jest pobranie ciągu, powiedzmy si wyprowadzenie 2*s.length - 1podłańcuchów srozdzielonych znakiem nowej linii, aby zachować zgodność z następującym wzorcem:

(dla s= „Witaj”)

H
He
Hel
Hell
Hello
Hell
Hel
He
H

Wejście

Pojedynczy ciąg s. Obowiązują domyślne wartości wejściowe dla społeczności. Możesz założyć, że ciąg wejściowy będzie zawierał tylko drukowalne znaki ASCII.

Wynik

Kilka linii oddzielonych znakiem nowej linii, stanowiących odpowiedni wzór, jak wyjaśniono powyżej. Obowiązują domyślne wartości wyjściowe społeczności. Dopuszczalne są wiodące i końcowe spacje (nie zawierające żadnych znaków lub znaków, których nie można zobaczyć, jak spacja) w wynikach.

Przypadek testowy

Przypadek testowy zawierający wiele słów:

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

Zauważ, że istnieją widoczne zniekształcenia w kształcie wyjściowym powyższego przypadku testowego (na przykład linia druga i linia trzecia wyniku wyglądają tak samo). To dlatego, że nie widzimy końcowych białych znaków. Twój program NIE musi próbować naprawiać tych zakłóceń.

Zwycięskie kryterium

To jest golf golfowy , więc wygrywa najkrótszy kod w bajtach w każdym języku!

pieprzenie mózgu , 32 bajty

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

Wypróbuj online!

Ta sama pętla jest używana dla obu połówek wzoru.

Wyjaśnienie:

,             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 bajtów

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

Wypróbuj online!

Skomentował

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 (starsza wersja) ,  4  3 bajty

^{Przekreślone  4 to już nie 4 :)}

η.∊

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

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

W nowej wersji 05AB1E po jawnym »jest wymagane jawne η, dlatego używam starszej wersji 05AB1E tutaj, aby zapisać bajt.

IBM PC DOS, zestaw 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

Niezmontowane:

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

Wyjaśnienie

Pętla 2 * input length - 1dla każdego rzędu. Funkcja wyświetlania łańcucha DOS API ( INT 21H,9) zapisuje $na ekranie ciąg terminowany, więc za każdym razem przez pętlę znak po ostatnim, który ma zostać wyświetlony, jest zamieniany terminatorem końca łańcucha.

Licznik pętli jest porównywany z długością łańcucha, a jeśli jest większy (tzn. Rosnąca część wyniku), pozycja łańcucha / zamiany jest zwiększana, w przeciwnym razie jest zmniejszana (w rzeczywistości jest -1-1+1to mniej bajtów niż struktura rozgałęziająca if / else).

Autonomiczny program wykonywalny, pobiera ciąg wejściowy z wiersza poleceń.

Wynik

Pobierz YT2.COM (43 bajty)

• -1 bajty dzięki gastropner !

Python 2 , 60 52 bajtów

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

Wypróbuj online!

Python 3.8 (wersja wstępna) , 50 bajtów

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

Wypróbuj online!

MATL , 8 bajtów

nZv"G@:)

Wypróbuj online!

Podoba mi się ten post dla buźki :)w kodzie, który zajęło mi dużo czasu.

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 bajtów

Anonimowa ukryta funkcja prefiksu. Zwraca matrycę znaków wypełnioną spacją.

[:(}:,|.)]\

Wypróbuj online!

]\ lista prefiksów

[:(… ) Zastosuj następującą funkcję do tej listy

 |. odwrotna lista

 , z dodatkiem

 }: ograniczona lista (bez ostatniego elementu)

Perl 6 , 31 bajtów

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

Wypróbuj online!

Anonimowy blok kodu, który pobiera ciąg znaków i zwraca listę wierszy.

Wyjaśnienie:

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

å+ ê

Skumulowane zmniejszenie ciągu.

-1 bajt dzięki @Shaggy

Wypróbuj online!

Japt -R , 9 7 bajtów

-2 bajty dzięki Shaggy

Êõ@¯XÃê

Wypróbuj online!

Perl 5 ( -p), 26 bajtów

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

TIO

Haskell, 52 50 44 bajty

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

• -2 bajty przez wariant sztuczki Ørjana Johansena
• -6 bajtów, korzystając zinstance Semigroup b => Semigroup (a -> b)

Wypróbuj online!

R , 79 65 62 58 bajtów

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

Wypróbuj online!

-14 dzięki wiedzy Giuseppe o wyższej funkcji

-3 z czystszym indeksowaniem

-4 dzięki przeprowadzeniu Nicka Kennedy'ego i Giuseppe do scaniwrite

Unikanie pętli (i substr) jest miłe.

Galaretka , 5 4 bajtów

-1 bajt dzięki @JonathanAllan !

¹ƤŒḄ

Wypróbuj online! Myślę, że to moja druga odpowiedź na żelki? Nie wiem czy to jest optymalne. Jestem bardziej przekonany, że jest optymalny. Zwraca tablicę wierszy.

Wyjaśnienie

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

Innym podejściem zaproponowanym przez @JonathanAllan jest ;\ŒḄłączne ograniczenie ( \) konkatenacji ( ;), co jest kolejnym sposobem generowania prefiksów.

Python 3.8 (wersja wstępna) , 48 bajtów

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

Wypróbuj online!

Używa wyrażeń przypisania z :=aby zgromadzić listę prefiksów , a następnie ponownie, aby zapisać wynik do złączyć swój rewers (bez pierwszego char).

Python 2 , 51 bajtów

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

Wypróbuj online!

Prawie mamy następujące ładne 45-bajtowe rozwiązanie, ale ma on dwa razy oryginalny ciąg i nie widzę krótkiego sposobu, aby to naprawić.

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

Wypróbuj online!

Węgiel drzewny , 5 bajtów

Ｇ^Ｌθθ

Wypróbuj online! Link jest do pełnej wersji kodu. Objaśnienie: Ｇrysuje wypełniony wielokąt, ^określa, że ​​boki są skierowane w dół w prawo i w dół w lewo (wielokąt następnie automatycznie się zamyka), Ｌθokreśla długość tych boków jako długość oryginalnego wejścia, a końcowy θokreśla ciąg wypełnienia.

C # (interaktywny kompilator Visual C #) , 123 109 94 84 74 bajty

Zakłada się, że możemy zwrócić tablicę znaków char (wierzę, że możemy, ponieważ tablica znaków jest prawidłową reprezentacją ciągu znaków, a tablica znaków jest prawidłową reprezentacją wielu wierszy)

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

Wypróbuj online!

Attache , 15 bajtów

Bounce@Prefixes

Wypróbuj online!

Dość proste. Bounces (dołącza do tyłu bez środka) Prefixeswejścia.

Alternatywnie, 21 bajtów:, Bounce@{_[0..0:~-#_]} ponowne wdrożenie prefiksu.

Brachylog (v2), 6 bajtów

a₀ᶠ⊆.↔

Wypróbuj online!

Podanie funkcji, zwrócenie tablicy wierszy. Luźno oparty na odpowiedzi @ Fatalize .

Wyjaśnienie

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

Tutaj porządek podziału jest ustalany przez ⊆, który, w przypadku użycia z tym wzorcem przepływu, preferuje możliwie najkrótszą wydajność, przerywaną przez umieszczenie danych elementów tak wcześnie, jak to możliwe . Najkrótszy możliwy wynik jest tym, czego chcemy tutaj (ponieważ nie jest możliwe, aby mieć zduplikowane prefiksy), a umieszczenie podanych elementów (tj. Prefiksów) tak wcześnie, jak to możliwe, umieści je w pierwszej połowie (zaokrąglonej w górę) wynik. Biorąc pod uwagę, że wymagamy od nich umieszczenia ich w tej samej kolejności, zdarza się, że otrzymujemy dokładnie taki wzór, jakiego potrzebujemy, mimo że opis, który podaliśmy Brachylog jest bardzo ogólny; przypadki rozstrzygania problemów działają dokładnie tak, że Brachylog wybiera dane wyjściowe, które chcemy, a nie inne dane wyjściowe zgodne z opisem.

PowerShell, 89 87 66 bajtów

-2 bajty dzięki @AdmBorkBork

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

Wypróbuj online!

Przykro mi z tego powodu! Zredagowałem go, a także udało mi się zgolić kilka bajtów.

PowerShell , 46 bajtów

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

Wypróbuj online!

PowerShell , 42 bajty (specjalny YouTube, brudny)

Wiadomo, że maksymalna długość komentarza na youtube wynosi 10 000 znaków. Ok, użyj tego jako górnej granicy.

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

Wypróbuj online!

APL (Dyalog Unicode) , 9 bajtów ^SBCS

Anonimowa ukryta funkcja prefiksu. Zwraca listę ciągów.

(⊢,1↓⌽),\

Wypróbuj online!

,\ lista prefiksów (świeci, kumulatywna konkatenacja)

(… ) Zastosuj następującą funkcję do tej listy:

 ⌽ odwrócona lista

 1↓ upuść pierwszy przedmiot

 , prepend

 ⊢ niezmodyfikowana lista

Ruby , 51 42 40 bajtów

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

Wypróbuj online!

Dzięki Doorknob za -2 bajty.

JavaScript (Node.js) , 90 bajtów

Prawdopodobnie można to jeszcze bardziej pograć w golfa, Arnauld ma już o wiele krótszą grę, ale przynajmniej dobrze się bawiłem!

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

Wypróbuj online!

SNOBOL4 (CSNOBOL4) , 118 bajtów

	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

Wypróbuj online!

Wygląda na to, że jest błąd w tej implementacji SNOBOL; próba zastąpienia etykiety Detykietą 2powoduje błąd, chociaż wskazuje to w instrukcji Vanilla SNOBOL (wyróżnienie dodane)

Jeśli etykieta jest obecna, musi zaczynać się od pierwszego znaku linii. Etykiety podają nazwę instrukcji i służą jako cel do przeniesienia kontroli z pola GOTO dowolnej instrukcji. Etykiety muszą zaczynać się od litery lub cyfry, po której opcjonalnie może następować dowolny ciąg znaków. Pole etykiety jest zakończone znakiem pustym, tabulatorem lub średnikiem. Jeśli pierwszy znak linii jest pusty lub tabulator, pole etykiety jest nieobecne.

Przypuszczam, że interpreter CSNOBOL obsługuje tylko jedną etykietę rozpoczynającą się od liczby całkowitej.

APL + WIN, 31 bajtów

Monity o wprowadzenie ciągu:

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

Wyjaśnienie:

(¯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 bajtów

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

Wypróbuj online!

Wejście to stringa wyjście toseq<string>

Innym rozwiązaniem może być let f(s:string)=for i=1 to s.Length*2-1 do printfn"%s"s.[..s.Length-abs(i-s.Length)-1]80 bajtów ... Nie jestem pewien, czy warto się temu przyjrzeć.

sed , 31 35 bajtów

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

Wypróbuj online!

Wyjaśnienie

Na początku każdej iteracji pętli przestrzeń wzorów stanowi „centralną porcję” pożądanego wyjścia, a każda pętla dodaje skróconą kopię na górze i na dole.

: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 bajtów

Moja pierwsza odpowiedź na Code Golf!

-47 bajtów ogółem dzięki @ 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)

Wypróbuj online!

J , 12 bajtów

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

Wypróbuj online!

Jeszcze 1 bajt dłużej niż Adama

K (oK) , 12 11 bajtów

-1 bajt dzięki ngn

{x,1_|x}@,\

Wypróbuj online!