Durun ..... bu trolling değil.

Arka fon

Bugünlerde YouTube'da, yorum bölümleri şu kalıplarla doludur:

S
St
Str
Stri
Strin
String
Strin
Stri
Str
St
S

nerede Stringsadece bir yer tutucudur ve herhangi bir karakter kombinasyonunu ifade eder. Bu kalıplara genellikle bir It took me a lot of time to make this, pls likeşey veya bir şey eşlik eder ve genellikle OP bir dizi beğeniyi bir araya getirir.

Görev

Büyüleyici golf becerilerinizle PPCG'de üst düzey oy biriktirme kabiliyetine sahip olsanız da, YouTube yorum bölümlerinde esprili açıklamalar yapmak ya da memlere gönderme yapmak için kesinlikle en iyi seçenek değilsiniz. Bu nedenle, kasıtlı düşünce ile yapılan yapıcı yorumlarınız YouTube'da 'hiç' beğenilmeyecek kadar azdır. Bunun değişmesini istiyorsun. Bu yüzden, nihai hırsınıza ulaşmak için yukarıda belirtilen klişe kalıplarını oluşturmaya başvuruyorsunuz, ancak bunları elle yazmaya çalışmakla zaman kaybetmeden.

Basitçe söylemek gerekirse, göreviniz, aşağıdaki kalıba uymak için yeni bir satırla sınırlandırılmış bir dize, dize sve çıktı 2*s.length - 1alt dizelerini almaktır s:

( s= "Merhaba" için)

H
He
Hel
Hell
Hello
Hell
Hel
He
H

Giriş

Tek bir dize s. Topluluğun giriş varsayılanları uygulanır. Giriş dizesinin yalnızca yazdırılabilir ASCII karakterleri içereceğini varsayabilirsiniz.

Çıktı

Yukarıda açıklandığı gibi uygun bir desen oluşturan, yeni bir çizgiyle ayrılmış birkaç satır. Topluluğun çıktı varsayılanları uygulanır. Çıktıda boş bırakma ve boş bırakma (boşluk veya boşluk gibi görülemeyen karakter veya karakter içermeyen) satırlara izin verilir.

Test durumu

Çok kelimeli bir test durumu:

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

Yukarıdaki test senaryosunun çıktısının biçiminde belirgin çarpıtmalar olduğunu unutmayın (örneğin, ikinci satır ve çıktının üçüncü satırı aynı görünür). Çünkü izleyen boşlukları göremiyoruz. Programınızın bu bozulmaları düzeltmeyi denememesi GEREKİR.

Kazanan Kriter

Bu kod golf , yani her dilde bayt cinsinden en kısa kod kazanır!

brainfuck , 32 bayt

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

Çevrimiçi deneyin!

Aynı döngü, desenin her iki yarısı için de kullanılır.

Açıklama:

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

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

Çevrimiçi deneyin!

Yorumlananlar

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 (eski) ,  4  3 bayt

^{Geçti  4 artık 4 değil :)}

η.∊

Çevrimiçi deneyin veya tüm test durumlarını doğrulayın .

Açıklama:

η     # 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'nin yeni sürümünde, ve »sonra açık olması gerekir η, bu yüzden byte'ı kurtarmak için burada 05AB1E'nin eski sürümünü kullanıyorum.

IBM PC DOS, 8088 derlemesi,  44  43

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

unassembled:

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

açıklama

2 * input length - 1Her satır için döngü . DOS API'sinin string display işlevi ( INT 21H,9) $, ekrana sonlandırılmış bir dize yazar , bu yüzden döngü boyunca her seferinde gösterilecek olan son karakterden sonra karakter dizge sonu sonlandırıcı ile değiştirilir.

Döngü sayacı dize uzunluğu ile karşılaştırılır ve eğer büyükse (çıktının yükselen kısmı anlamına gelir) dize / takas konumu artırılır, aksi takdirde azalır (aslında -1-1+1bir if / else dallanma yapısından daha az bayt olan).

Bağımsız çalıştırılabilir program, girdi dizesini komut satırından alır.

Çıktı

İndir YT2.COM (43 bayt)

• Gastropner sayesinde -1 bayt !

Python 2 , 60 52 bayt

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

Çevrimiçi deneyin!

Python 3.8 (yayın öncesi) , 50 bayt

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

Çevrimiçi deneyin!

MATL , 8 bayt

nZv"G@:)

Çevrimiçi deneyin!

Lütfen :)koddaki surat için bu yazı gibi bana yapmak için çok zaman aldı.

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 bayt

Anonim zımni önek işlevi. Boşluk dolgulu bir karakter matrisi döndürür.

[:(}:,|.)]\

Çevrimiçi deneyin!

]\ önek listesi

[:(… ) Aşağıdaki işlevi bu listeye uygulayın

 |. ters liste

 , ile hazır

 }: sınırlandırılmış (son öğe olmadan) listesi

Perl 6 , 31 bayt

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

Çevrimiçi deneyin!

Bir dize alan ve satır listesini döndüren adsız kod bloğu.

Açıklama:

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

å+ ê

Bir dize kümülatif azalma.

@Shaggy sayesinde -1 bayt

Çevrimiçi deneyin!

Japt -R , 9 7 bayt

Shaggy sayesinde -2 bayt

Êõ@¯XÃê

Çevrimiçi deneyin!

Perl 5 ( -p), 26 bayt

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

TIO

Haskell, 52 50 44 bayt

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

• Ørjan Johansen'in hilesinin bir türeviyle -2 bayt
• -6 bayttan faydalanarakinstance Semigroup b => Semigroup (a -> b)

Çevrimiçi deneyin!

R , 79 65 62 58 bayt

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

Çevrimiçi deneyin!

-14 Giuseppe'nin üstün fonksiyon bilgisi

-3 daha temiz indekslemeli

-4 Nick Kennedy ve Giuseppe'nin hamlesine teşekkürler scan vewrite

Döngülerden kaçınma (ve substr) güzeldir.

Jöle , 5 4 bayt

@JonathanAllan ! -1 sayesinde !

¹ƤŒḄ

Çevrimiçi deneyin! Sanırım bu benim ikinci Jelly cevabım mı? Bunun optimal olup olmadığını bilmiyorum. Daha iyi olduğuna ikna oldum. Satır dizisini döndürür.

açıklama

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

@JonathanAllan tarafından önerilen bir başka yaklaşım, önekleri oluşturmanın başka bir yolu olan ;\ŒḄ( \) bitiştirmeyi ( ;) kümülatif olarak azaltan yöntemdir.

Python 3.8 (yayın öncesi) , 48 bayt

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

Çevrimiçi deneyin!

Kullanımları atama ifadeleri ile :=karşı önekleri bir listesini birikir ve daha sonra tekrar (ilk karakter olmadan), ters bitiştirmek sonucu kaydedin.

Python 2 , 51 bayt

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

Çevrimiçi deneyin!

Neredeyse aşağıdaki güzel 45-byte çözümümüz var, ancak iki kez orijinal dizgisine sahip ve bunu düzeltmenin kısa bir yolunu göremiyorum.

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

Çevrimiçi deneyin!

Kömür , 5 bayt

Ｇ^Ｌθθ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Açıklama: Ｇdolgulu bir çokgen çizer ^, kenarların sağ aşağı ve soldan aşağıya doğru olduğunu belirtir (çokgen daha sonra otomatik olarak kapanır), Ｌθbu tarafların uzunluğunu orijinal girişin uzunluğu olarak θbelirtir ve son da dolgu dizesini belirtir.

C # (Visual C # Etkileşimli Derleyici) , 123 109 94 84 74 bayt

Bir char dizi dizisini döndürebileceğimizi varsayalım (char dizisinin bir dize için geçerli bir temsil ve dize dizisinin birden fazla satır için geçerli bir temsil olabileceğine inanıyorum)

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

Çevrimiçi deneyin!

Ataşesi , 15 bayt

Bounce@Prefixes

Çevrimiçi deneyin!

Oldukça basit. Bounces ( Prefixesgirişin tam tersi yerine) eklenir .

Alternatif olarak, 21 bayt:, Bounce@{_[0..0:~-#_]} öneki yeniden uygulama.

Brachylog (v2), 6 bayt

a₀ᶠ⊆.↔

Çevrimiçi deneyin!

İşlev gönderme, bir dizi diziyi döndürme. Gevşek dayalı @ Fatalize'nin cevabı kuruludur .

açıklama

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

Buradaki Tiebreak düzeni ⊆, bu akış düzeniyle kullanıldığında, mümkün olan en kısa sürede çıktısını tercih eden, verilen elemanları mümkün olduğu kadar erken yerleştirerek tiebroken ile ayarlanır . Mümkün olan en kısa çıktı, istediğimiz şeydir (yinelenen öneklere sahip olmanın mümkün olmaması nedeniyle) ve verilen öğeleri (yani önekleri) mümkün olduğunca erken yerleştirmek, bunları ilk yarıya (yuvarlatılmış) yerleştirir. çıktı. Onları aynı sıraya koymalarını istediğimiz göz önüne alındığında, Brachylog'a verdiğimiz tanım çok genel olsa bile tam olarak ihtiyaç duyduğumuz modeli elde ettik; Tiebreaks tam olarak doğru çalışır ve Brachylog'un açıklamaya uyan başka bir çıktı yerine istediğimiz çıktıyı seçmesine neden olur.

PowerShell, 89 87 66 bayt

@AdmBorkBork sayesinde -2 bayt

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

Çevrimiçi deneyin!

Aslında daha önce belirtildiği gibi çalışmadı, bunun için üzgünüm! Düzenledim ve ayrıca bazı baytları tıraş etmeyi de başardım.

PowerShell , 46 bayt

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

Çevrimiçi deneyin!

PowerShell , 42 bayt (YouTube özel, kirli)

YouTube'daki bir yorumun maksimum uzunluğunun 10.000 karakter olduğu bilinmektedir. Tamam, bunu üst sınır olarak kullan.

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

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 9 bayt ^SBCS

Anonim zımni önek işlevi. Dizelerin listesini döndürür.

(⊢,1↓⌽),\

Çevrimiçi deneyin!

,\ öneklerin listesi (yaktı, kümülatif bitiştirme)

(… Bu ) fonksiyonu aşağıdaki listeye uygulayın:

 ⌽ tersine çevrilmiş liste

 1↓ ilk öğeyi bırak

 , başa getirebilir

 ⊢ değiştirilmemiş liste

Ruby , 51 42 40 bayt

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

Çevrimiçi deneyin!

-2 bayt için Doorknob'a teşekkürler.

JavaScript (Node.js) , 90 bayt

Bu muhtemelen daha çok golf oynayabilir. Arnauld zaten bir yolunu kısa olanı var ama ben en az eğlendik!

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

Çevrimiçi deneyin!

SNOBOL4 (CSNOBOL4) , 118 bayt

	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

Çevrimiçi deneyin!

SNOBOL'un bu uygulamasında bir hata var gibi görünüyor; Vanilya SNOBOL el kitabında bunu belirtmekle Dbirlikte, etiketi etiket ile değiştirmeye çalışmak 2bir hataya neden oluyor

Bir etiket varsa, satırın ilk karakteriyle başlamalıdır. Etiketler, ifade için bir ad sağlar ve herhangi bir ifadenin GOTO alanından kontrolün aktarılması için hedef görevi görür. Etiketler isteğe bağlı olarak isteğe bağlı bir karakter dizisi tarafından takip edilen bir harf veya rakam ile başlamalıdır. Etiket alanı boş karakter, sekme veya noktalı virgül ile sonlandırılır. Bir satırın ilk karakteri boşsa veya sekme ise, etiket alanı yoktur.

Benim varsayımım, CSNOBOL yorumlayıcısının yalnızca bir tamsayı ile başlayan tek bir etiketi desteklemesidir.

APL + WIN, 31 bayt

Dize girişi için bilgi istemi:

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

Açıklama:

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

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

Çevrimiçi deneyin!

Giriş bir stringve çıkış birseq<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 bayt için başka bir çözüm olabilir ... Araştırmaya değer olduğuna emin değilim.

sed , 31 35 bayt

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

Çevrimiçi deneyin!

açıklama

Döngünün her yinelemesinin başlangıcında, desen alanı istenen çıktının bir miktar "merkezi öbeği" dir ve her döngü üste ve alta kısaltılmış bir kopya ekler.

: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 bayt

Code Golf hakkındaki ilk cevabım!

@ SriotchilismO'Zaic sayesinde -47 bayt genel

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

Çevrimiçi deneyin!

J , 12 bayt

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

Çevrimiçi deneyin!

Hala Adám’lardan 1 byte daha uzun

K (oK) , 12 11 bayt

Ngn sayesinde -1 bayt

{x,1_|x}@,\

Çevrimiçi deneyin!