Metni Ortala!

Bu mücadelede çeşitli çizgileri merkez alacaksınız.

Örnekler

Foo
barbaz

 Foo
barbaz

Hello
World

Hello
World

Programming Puzzles
&
Code Golf

Programming Puzzles
         &
     Code Golf

Özellikler

Her giriş satırında her zaman en az bir boşluk olmayan karakter bulunur, yalnızca boşluk karakterinin boşluk ( ) ve yeni satır olduğunu varsayabilirsiniz . Her giriş satırında izleyen ve / veya baştaki boşluklar olmayacak (yeni satır hariç). Çıktıda sonlarındaki boşluk olduğu değil izin verdi.

Girişteki en uzun çizgi arasında merkez olmalısınız. Bu çizgi uzunsa bile, programınız / işleviniz sola merkezlenmeyi tercih etmelidir. Maksimum satır uzunluğu, diliniz ne olursa olsun, programınız en az 500 uzunluktaki satırlarda çalışmalıdır.

Liderler Sıralaması

Burada hem düzenli bir lider tablosu hem de kazananların dile göre genel bir bakış oluşturması için bir Stack Snippet'i var.

Cevabınızın göründüğünden emin olmak için, lütfen aşağıdaki Markdown şablonunu kullanarak cevabınızı bir başlık ile başlatın:

# Language Name, N bytes

Gönderinizin Nbüyüklüğü nerede ? Puanınızı artırmak varsa, olabilir onları içinden vurarak, başlığa eski hesapları tutmak. Örneğin:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Başlığınıza birden fazla sayı eklemek istiyorsanız (örneğin, puanınız iki dosyanın toplamı olduğundan veya tercüman bayrağı cezalarını ayrı ayrı listelemek istediğiniz için), gerçek puanın başlıktaki son sayı olduğundan emin olun :

# Perl, 43 + 2 (-p flag) = 45 bytes

Dil adını, daha sonra büyük afiş snippet'inde görünecek bir bağlantı da yapabilirsiniz:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=66731,OVERRIDE_USER=8478;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Bu kod-golf yani bayt cinsinden en kısa kod kazanır!

Pyth, 19 17 bayt

Jakube sayesinde 2 bayt

V.ztr+1.[l.T.zNd6

gösteri

Bence bu, merkezleme işlevi ilk defa .[faydalı oldu. En uzun çizginin uzunluğu, truncating transpose ( .T) kullanılarak bulunur.

İzleyen boşluklar, öne boşluk bırakmayan bir karakter ekleyerek, boşlukları sıyırarak ve ardından eklenen karakteri kaldırarak kaldırılır.

vim, 43 36 35 bayt

VGrx:sor
G:let &tw=col("$")
uu:%ce

Göndermemek çok iyi. Sondaki yeni satırı not edin; önemli.

Bir karakteri kaydettiği için @Marth'a teşekkürler !

vim dostu format:

VGrx:sor<cr>G:let &tw=col("$")<cr>uu:%ce<cr>

Açıklama:

VGrx                   replace every character with an "x"
:sor<cr>               sort (since all chars are now same, sorts by line length)
G                      go to the very last line
:let &tw=col("$")<cr>  set &tw to column number of last char on this line
                         "let &tw" is equivalent to "set tw"
                         tw is short for textwidth, used in :center
uu                     undo the sort, and the replacing-with-x too
:%ce<cr>               center over entire file (%), using textwidth set earlier

Mathematica, 96 bayt

StringRiffle[#~StringPadLeft~Floor[Max@(l=StringLength)@a/2+l@#/2]&/@(a=#~StringSplit~"
"),"
"]&

Bana nasıl çalıştığını sorma, doğru çıktıyı üretene kadar kustum.

Eğlence , rekabetçi olmayan

Bu zorluk, tembel sekanslar için “maksimum değer” (ve minimum değer) fonksiyonunun sıkıntısını vurguladı, bu yüzden ... Onları çekirdek kütüphaneye ekledim (sırasıyla ⊤ ve ⊥ olarak adlandırılırlar). Bu nedenle, bunu golflü bir cevap olarak sunma zahmetinde bulunmadım (geçerli olacak ⊤ fonksiyon bildirimini içermelidir), bu yüzden işte sadece ana program.

Daha (function(){$('pre,code').css({lineHeight:5/4,fontFamily:'DejaVu Sans Mono'});})()iyi render almak için tarayıcı konsolunuzda yürütün .

   ╓───╖         ╔════╗  ┌───╖  ╔═══╗
 ┌─╢ ‡ ╟─┐       ║ 10 ╟──┤ ǁ ╟──╢   ║
 │ ╙───╜ │       ╚════╝  ╘═╤═╝  ╚═══╝
 │ ┌───╖ │  ┌──────────────┴──────────────────┐
 └─┤ ‼ ╟─┘┌─┴─╖ ┌───╖ ┌───╖ ┌───╖ ┌───╖       │     │
   ╘═╤═╝  │ ɱ ╟─┤ ⊤ ╟─┤ + ╟─┤ ~ ╟─┤ ℓ ╟───┐ ┌─┴─╖ ┌─┴─╖ ╔════╗
     │    ╘═╤═╝ ╘═══╝ ╘═╤═╝ ╘═══╝ ╘═══╝   │ │ ɱ ╟─┤ ʝ ╟─╢ 10 ║
    ┌───╖ ╔═╧═╕ ╔═══╗ ┌─┴──╖ ┌───╖ ╔════╗ │ ╘═╤═╝ ╘═══╝ ╚════╝
  ┌─┤ ℓ ╟─╢   ├─╢ 1 ║ │ >> ╟─┤ … ╟─╢ 32 ║ │   │
  │ ╘═══╝ ╚═╤═╛ ╚═╤═╝ ╘═╤══╝ ╘═╤═╝ ╚════╝ │ ╔═╧═╕ ╔═══╗
  └─────────┘     └─────┘      │   ┌───╖  ├─╢   ├─╢ 0 ║
                               └───┤ ‡ ╟──┘ ╚═╤═╛ ╚═══╝
                                   ╘═╤═╝      │
                                     └────────┘

açıklama

Bunun, lambda ifadelerini kullanan bu sitede ilk Funciton cevabı olabileceğine inanıyorum.

• Öncelikle, ǁgiriş dizgisini newlines'ta bölmek için kullanıyoruz (ASCII 10). Bu tembel bir dizi döndürür.
• Her bir dizinin ɱuzunluğunu hesaplayan bir lambda vererek bu diziyi (harita) geçip, ⊤en uzun çizginin uzunluğunu elde etmek için son diziyi geçiyoruz .
• Biz ayrıca, diğeri vasıtasıyla bu diziyi geçmesi ɱ, 2 (1 aslında shift-sağ) birçok boşluk oluşturur, daha önce hesaplanan maksimum satır uzunluğu çıkarır o, o böler her bir dize uzunluğunu hesaplar bir lambda vererek (ASCII 32), ve sonra dizgiyi bu boşluklara birleştirir. (Geometrik nedenlerle, parametreleri ters çevrilmiş olarak ‡çağıran ‼(string bitiştirme) bir işlev ilan ettim .)
• Son ʝolarak, ayırıcı olarak newlines (ASCII 10) kullanarak tüm dizeleri bir araya getirmek için kullanıyoruz.

Retina , 54 52 bayt

+m`^(.)+$(?<=(?=[^\t]*^..(?<-1>.)+(?(1)^))[^\t]*)
 $0 

\tS gerçek sekmeleri ile değiştirilir, ama ben kullandım \taksi GD boşluk sekmeleri dönüştürmek, çünkü burada. İkinci satırda öncü bir boşluk olduğuna dikkat edin.

Çevrimiçi deneyin.

açıklama

Temel fikir, en uzun çizgiden en az iki karakterden (veya teknik olarak, diğer herhangi bir çizgiden iki karakterden daha kısa) bir çizgiyle eşleşmek ve onu iki alanda çevrelemektir. Bu tür bir hat bulamadığımıza kadar bu tekrarlanır, bu, tüm satırların maksimum uzunluğun bir karakterinde olduğu anlamına gelir (bir karakter parite uyumsuzluklarını hesaba katar ve bu satırların sola kaymasını garanti eder) ortada).

Gerçek regex gelince:

^(.)+$

1Her karakter için bir çekimi gruba basarken sadece herhangi bir satırla eşleşir .

(?<=...[^\t]*)

Sağdan sola eşleşen ve imleci dizenin başlangıcına hareket ettiren bir gözbebekidir, böylece içerdeki gözetmen dizenin tamamını kontrol edebilir. Dübelli olmadığından, bakışın başka bir yerden uygulanabileceğini, ancak ek eşleşmeler yaratmadığını unutmayın. [^\t]Bunun her zaman dizedeki herhangi bir karakterle eşleşeceğini biliyoruz , çünkü girişin boşlukla ilgili olarak yalnızca boşluklar ve satır beslemeleri içerdiği garanti edilir.

(?=[^\t]*^..(?<-1>.)+(?(1)^))

Bu bakış açısı, şu anda eşleştiğimizden en az iki karakter uzunluğunda bir çizgi bulmaya çalışır. [^\t]*Herhangi bir çizgiyi eşleştirmek için dizginin içinde hareket eder. ^hattın başından başlamamızı sağlıyor. ..daha sonra, daha uzun satır için ihtiyaç duyduğumuz iki ek karakterle eşleşir. Şimdi (?<-1>.)+gruptan çıkarken o satırdaki bireysel karakterlerle eşleşiyor 1( .satır beslemeyle eşleşmeyeceğini unutmayın , bu nedenle bu bir satırla sınırlıdır). Sonunda, (?(1)^)tüm grubu boşaltmayı başardığımızı iddia ediyor 1. Satır gerekenden daha kısaysa, bu mümkün değildir, çünkü satırda 1. gruptan çıkacak kadar karakter yok, onu boşaltması için genellikle yeterli.

Jolf , 3 bayt

Rekabet etmeyen, son tarihler sorusunu güncelleyin.

Burada dene! .

pci
pc  center
  i  string input

¯ \ _ (ツ) _ / ¯ Faydalı bir işlev olacağını düşündüm.

JavaScript (ES6), 93 91 bayt

s=>(m=l=s.split`
`).map(x=>(v=x.length/2)<m?v:m=v).map((x,i)=>" ".repeat(m-x)+l[i]).join`
`

@ Edc65 sayesinde 2 bayt kaydedildi !

açıklama

s=>(
  m=                // m = max line length (divided by 2)
    l=s.split`
`)                  // l = array of lines
.map(x=>            // for each line
  (v=x.length/2)    // v = current line length / 2
    <m?v:m=v        // set m to the max line length and return v
)
.map((x,i)=>        // for each line length / 2
  " ".repeat(m-x)   // add spaces before
    +l[i]           // add line text
)
.join`
`                   // return lines as a newline-separated string

Ölçek

var solution = s=>(m=l=s.split`
`).map(x=>(v=x.length/2)<m?v:m=v).map((x,i)=>" ".repeat(m-x)+l[i]).join`
`

<textarea id="input" rows="4" cols="20">Programming Puzzles
&
Code Golf</textarea><br />
<button onclick="result.textContent=solution(input.value)">Go</button>
<pre id="result"></pre>

CJam, 26 23 19 bayt

qN/_z,f{1$,m2/S*\N}

CJam'ı ilk kez kullanıyorum! Martin Büttner sayesinde dört bayt kurtarıldı. Çevrimiçi deneyin.

açıklama

qN/    e# Read input and split each line
_z,    e# Transpose a copy and get its length to find the longest line
f{     e# For each line...
  1$,- e# Subtract its length from the longest length
  2/   e# Divide by two to get just the spaces to add to the left
  S*\  e# Add a string with that many spaces to the beginning
  N    e# Add a newline to go on to the next line
}

LabVIEW, 3 veya 35 LabVIEW Primitives

Hiçbiri kalmayana kadar satırları bulur, sonra ne kadar boşluk ekleyeceğini hesaplar ve her şeyi bir araya getirir.

Alternatif olarak, dize göstergelerinde yerleşik merkez hizalamasını kullanabilirsiniz, hile yapmak gibi hissettirir.

Python 2, 83 81 bayt

def f(s):
 t=s.split('\n')
 for y in t:print(max(len(f)for f in t)-len(y))/2*' '+y  

2 karakter kaydettiğiniz için @xnor'a teşekkürler

Örnek giriş:

f("""Programming Puzzles
&
Code Golf""")

Örnek çıktı:

Programming Puzzles
         &
     Code Golf

Ve str.center () ve str.rstrip (teşekkürler @JF) kullanarak 84 bayt ile ikinci sırada biter.

def f(s):
 t=s.split('\n')
 for y in t:print y.center(max(len(f)for f in t)).rstrip()

TeaScript , 24 bayt

£p.R((aßln)¯-ln)/2)+l,§)

Satırlar arasında dolaşır floor((max line length - line length) / 2), başlangıcına boşluk ekler .

Ungolfed

£   p.R((aß  ln)¯  -ln)/2)+l,§   )
xl(#p.R((am(#ln)X()-ln)/2)+l,`\n`)

xl(#    // Loops through newlines
    p.R(   // Repeats spaces
      (
       am(#ln)    // Map all line lengths
              X() // Get largest line length
       -ln)       // Subtract current line length
      /2)  // Divide by two
      +l,  // Add current line text
`\n`)

Çevrimiçi deneyin

PowerShell, 58 67 bayt

mazzy adlı kullanıcının yorumu sayesinde 58 bayta kadar:

param($a)$a|%{$_|% *ft(($a|% le*|sort)[-1]/2+$_.length/2)}


# It takes an array of strings as input
PS C:\Temp> .\center.ps1 'aaa','bb','c'
aaa
bb
 c


# Or here, read from a file
PS C:\Temp> .\center.ps1 (gc t.txt)
info0:info1:info2:info3
      info0:info1
          ttt
          tt
           t

• $aHer bir dizgenin üzerinde bulunan bir dizi dizgiyi alır |%{...}.
• string.padleft()her dize üzerindeki yöntemi, % -memberistenen son satır uzunluğunu parametre olarak alan kısayol ile çağırır .
  • ihtiyacımız var array_longest_line_length/2 + current_line_length/2
  • son kısım current_line_length/2->$_.length/2
  • diğer kısım, dizinin maksimum çizgi uzunluğunu döngü boyunca her seferinde yeniden hesaplamakta ve bunu, iç içe geçmiş bir döngü ile bir dizi uzunluk uzunluğunda yapmakta, daha sonra sonuncuyu almaktadır.

Emacs Lisp, 203 bayt

(let((f 0)(l 0))(dolist(s(split-string(buffer-string)"\n"))(set'l(string-width s))(when(> l f)(set'f l)))(let((fill-column f))(goto-char(point-min))(while(<(point)(point-max))(center-line)(next-line)))))

Ungolfed:

(let ((f 0) (l 0))
  (dolist (s (split-string(buffer-string) "\n"))
    (set 'l (string-width s))
    (when (> l f)
      (set 'f l)))
    (let ((fill-column f))
      (goto-char (point-min))
      (while (< (point) (point-max))
        (center-line)
        (next-line)))))

merkezli:

               (let ((f 0) (l 0))
 (dolist (s (split-string(buffer-string) "\n"))
           (set 'l (string-width s))
                 (when (> l f)
                  (set 'f l)))
             (let ((fill-column f))
            (goto-char (point-min))
         (while (< (point) (point-max))
                 (center-line)
                (next-line)))))

HTML, 40 bayt

<xmp style=float:left;text-align:center>

<xmp style=float:left;text-align:center>
Programming Puzzles
&
Code Golf
</xmp>

Kod </xmp>pasajı, kod pasajı görüntüleyici etiketlerimin dengelenmesini istediğinden etiket içerir .

MATL , 22 31 bayt

`jtYz~]xXhc4X4H$ZuZ{Zv

Her satır sonunda bir satır (yani bir entertuş vuruşuyla) girilir . Boş bir satır (iki entertuş vuruşu) girişin sonunu işaretler.

Örnek

>> matl `jtYz~]xXhc4X4H$ZuZ{Zv
> foo
> barbaz
> 
 foo
barbaz

açıklama

`          % do...
  j        % input one string
  tYz~     % is it not empty?
]          % ...while
x          % delete last input (empty string)
Xh         % concatenate all inputs into a cell array
c          % convert to char (2D array). This fills with spaces to the right
4X4H$Zu    % center justify
Z{         % convert to cell array of strings
Zv         % remove trailing blanks of each string

Ruby, 76 68 61 bayt

->t{(s=t.split$/).map{|l|l.center(s.map(&:size).max).rstrip}}

Örnek çalışma:

2.1.5 :001 > puts ->t{(s=t.split$/).map{|l|l.center(s.map(&:size).max).rstrip}}["Programming Puzzles\n&\nCode Golf"]
Programming Puzzles
         &
     Code Golf

Haskell, 111 81 77 bayt

l=length
f s|q<-lines s=unlines[([1..div(maximum(l<$>q)-l w)2]>>" ")++w|w<-q]

F işlevine giriş yapıldığında, çıktı yazdırılmaz.

Kullanımı: tercümana yükleyin ghci center.hsve ardından f'nin çıktısını verilen bir diziye yazdırmak istiyorsanızputStr$f"Programming Puzzles\n&\nCode Golf"

Düzenleme: 34 bayt için nimi sayesinde , harika bir iş! : D

R, 126 bayt

kod

for(z in 1){l=scan(,"");m=sapply(l,nchar);t=max(m[m==max(m)]);for(i in 1:length(m))cat(rep(" ",(t-m[i])/2),l[i],"\n", sep="")}

ungolfed

for(z in 1){                          # any way to get rid of this?
  l=scan(,"")
  m <- sapply(l,nchar)
  t <- max(m[m==max(m)])
  for(i in 1:length(m)){
    cat(rep(" ",(t-m[i])/2),l[i],"\n", sep="")
  }
}

Muhtemelen, bunun üzerinde çalışmanın hala daha iyi yolları vardır.

Gema, 160 bayt

\L<T>=@push{i;$0}@set{m;@cmpn{@length{$0};${m;};$m;$m;@length{$0}}}
?=
\Z=@repeat{@sub{@line;1};@set{o;@right{@div{@add{$m;@length{$i}};2};$i}\n${o;}}@pop{i}}$o

Çoğunlukla merakım için, uygun dizi yapısı ve uygun döngü talimatı olmadan bir dilde neler yapılabileceğini görmek için yazılmıştır.

Örnek çalışma:

bash-4.3$ gema '\L<T>=@push{i;$0}@set{m;@cmpn{@length{$0};${m;};$m;$m;@length{$0}}};?=;\Z=@repeat{@sub{@line;1};@set{o;@right{@div{@add{$m;@length{$i}};2};$i}\n${o;}}@pop{i}}$o' <<< $'Programming Puzzles\n&\nCode Golf'
Programming Puzzles
         &
     Code Golf

Perl 6 , 61 bayt

$/=(my@l=lines)».chars.max;for @l {put ' 'x($/-.chars)/2~$_} # 61 bytes

kullanımı:

$ perl6 -e '$/=(my@l=lines)».chars.max;for @l {put " "x($/-.chars)/2~$_}' <<< \
'Programming Puzzles
&
Code Golf'

Programming Puzzles
         &
     Code Golf

Japt, 28 25

¡V=VwXl}R;¡Sp½*(V-Xl¹+X}R

Çevrimiçi deneyin!

Nasıl çalışır

¡     V=VwXl}R;¡     Sp½*(V-Xl¹ +X}R
UmXYZ{V=VwXl}R;UmXYZ{Sp½*(V-Xl) +X}R

           // Implicit: U = input string, V = 0
UmXYZ{  }  // Map each item X in U through this function,
         R // splitting U at newlines beforehand:
  V=VwXl   //  Set V to max(X, Y.length).
           // V is now set to the length of the longest line.

UmXYZ{  }  // Map each item X in U with this function,
         R // again splitting U at newlines beforehand:
 ½*(V-Xl)  //  Take V minus X.length, and multiply by 1/2.
Sp         //  Repeat a space that many times.
        +X //  Concatenate X to the end.

PHP , 98 bayt

function($s){foreach($a=explode("
",$s)as$l)echo str_pad($l,max(array_map(strlen,$a)),' ',2),"
";}

Çevrimiçi deneyin!

Ungolfed:

function str_center( $s ) {
    $a = explode( PHP_EOL, $s );
    $m = max( array_map( 'strlen', $a ) );
    foreach( $a as $l ) {
        echo str_pad( $l, $m, ' ', STR_PAD_BOTH ), PHP_EOL;
    }
}

Çıktı:

Programming Puzzles
         &         
     Code Golf   

05AB1E , 2 bayt

.c

Yerleşikler ftw ¯ \ _ (ツ) _ / ¯

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

Açıklama:

.c   # Centralize the (implicit) multi-line input-string with preference to the left
     # (output the result implicitly)

(Sağ tercih, .Cbunun yerine bir sermaye ile olacaktır : farklılıkları görün .)

Japt , 1 bayt

û

Deneyin veya tüm test durumlarını çalıştırın