Tek satırlı bir dize alan bir program veya işlev yazın. Yalnızca yazdırılabilir ASCII içerdiğini varsayabilirsiniz . Bir ASCII sanat roketinin bir dizesini yazdırın veya iade edin

  |
 /_\
 |E|
 |a|
 |r|
 |t|
 |h|
 |_|
/___\
 VvV

Giriş dizesi gövde üzerinde yukarıdan aşağıya yazılmıştır. Bu durumda giriş yapıldı Earth. Roketin yüksekliği (alevler dahil) daima ipin uzunluğu artı beş'tir.

Çıktıdaki her satır en fazla iki sondaki boşluk içerebilir ve tek bir isteğe bağlı sondaki yeni satır olabilir. Bayt cinsinden en kısa kod kazanır.

Daha fazla örnek:

[empty string]

  |
 /_\
 |_|
/___\
 VvV

a

  |
 /_\
 |a|
 |_|
/___\
 VvV

|0

  |
 /_\
 |||
 |0|
 |_|
/___\
 VvV

\/\

  |
 /_\
 |\|
 |/|
 |\|
 |_|
/___\
 VvV

 _ _ [note trailing space]

  |
 /_\
 | |
 |_|
 | |
 |_|
 | |
 |_|
/___\
 VvV

    [4 spaces]

  |
 /_\
 | |
 | |
 | |
 | |
 |_|
/___\
 VvV

SPACEY

  |
 /_\
 |S|
 |P|
 |A|
 |C|
 |E|
 |Y|
 |_|
/___\
 VvV

Liderler Sıralaması

var QUESTION_ID=91182,OVERRIDE_USER=26997;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>

Excel VBA, 142 179 175 160 155 bayt

Talimat:

A1 hücresinin giriş olduğu Excel sütununu ve çıkış olarak C sütununu ayarlayın. C sütununda metin hizalamasını ortalamak için ayarlayın . Komut Penceresinde aşağıdaki kodu yazın ve çalıştırın:

[C1]="|":[C2]="/_\":T=[A1]&"_":For i=1To Len(T):Cells(i+2,3)="|"&Mid(T,i,1)&"|":Next:Cells(i+2,3)="/__\":Cells(i+3,3)="VvV":[C:C].HorizontalAlignment=-4108

Ungolfed kodu:

Sub R()
    [C1] = "|"
    [C2] = "/_\"
    T = [A1]&"_"

    For i = 1 To Len(T)
        Cells(i + 2, 3) = "|" & Mid(T, i, 1) & "|"
    Next

    Cells(i + 2, 3) = "/__\"
    Cells(i + 3, 3) = "VvV"
    [C:C].HorizontalAlignment = -4108   'Set the text alignment in column C to center
End Sub

Çıktı:

Not: Yazı tipi ve renk sadece kişisel bir seçimdir.

Edc65'in önerisi nedeniyle 15 bayt kazandı. Teşekkürler.

TaylorScott'un önerisi nedeniyle 5 bayt kurtarıldı. Teşekkürler.

Perl 6, 75 bayt

"  |\n /_\\".say;" |$_|".say for slurp.chomp.comb;" |_|\n/___\\\n VvV".say;

JavaScript (ES6), 54

Basit

x=>`  |
 /_\\
 |${[...x+'_'].join`|
 |`}|
/___\\
 VvV`

Ölçek

f=x=>`  |
 /_\\
 |${[...x+'_'].join`|
 |`}|
/___\\
 VvV`

function update() {
  O.textContent=f(I.value)
}

update()

<input id=I value='hello' oninput='update()'><pre id=O></pre>

Aslında, 40 bayt

"/___\
 VvV",'_o"|
 |"j'|o" |"+"  |
 /_\

Evet, bu yeni hatların orada olması gerekiyordu.

Çevrimiçi deneyin!

Açıklama:

Newlines, \ndaha kolay biçimlendirme için temsil edilir

"/___\\n VvV",'_o"|\n |"j'|o" |"+"  |\n /_\
"/___\\n VvV"                                create the bottom of the rocket
             ,'_o                            get input, append a "_" (for the last section before the jets)
                 "|\n |"j                    insert "|\n |" between every pair of characters
                         '|o                 append "|"
                            " |"+            prepend " |"
                                 "  |\n /_\  create the nose cone

C, 83 , 82 bayt

F(char*c){for(puts("  |\n /_\\");*c;printf(" |%c|\n",*c++));puts(" |_|\n/___\\\n VvV");}

Ana test:

int main() {
  F("");
  F("a");
  F("|0");
  F("\\/\\");
  F(" _ _ ");
  F("    ");
  F("SPACEY");
}

Python 2, 93 66 62 61 bayt

Bir FGITW. Muhtemelen ağır golf oynayabilir. Önerilerinizi bekliyoruz.

Düzenleme: Mego sayesinde 27 bayt. TheBikingViking sayesinde 4 bayt. User3030010 sayesinde 1 bayt.

Çevrimiçi Deneyin!

lambda x:r"""  |
 /_\
 |%s|
/___\
 VvV"""%"|\n |".join(x+"_")

PHP, 73 72 69 62 bayt

  |
 /_\
 |<?=join('|
 |',str_split($argv[1]._))?>|
/___\
 VvV

Kodda çağrıldığında komut satırından ilk argüman olarak gövde üzerine yazdırılacak dizeyi alır.

İyileştirmeler:

1. İlk argümandaki \ n'yi gerçek bir LF newline ile değiştirerek bir byte kaydetti join.
2. Roket tabanını girişe tek alt çizgi ile ekleyerek üç bayttan daha tasarruf edin
3. Ismael Miguel sayesinde : PHP'nin "Hypertext önişlemcisi" olduğu gerçeğinden yararlanarak 7 bayt daha kaydetti, böylece istediğiniz kadar metin yazdırabilir ve kodu ortada başlatabilirsiniz.

Çevrimiçi deneyin!

Bu komikti! :-)

Örnek aramalar:

php rocket.php ""
php rocket.php EARTH
php rocket.php "This is a very long rocket"

brainfuck , 179 bayt

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

Çevrimiçi deneyin!

Ruby, 57 55 bayt

@ValueInk tarafından -2 bayt
-5 bayt, @manatwork tarafından önerildiği gibi girişte yeni satır olmadığını varsayarak. Yeni satır daha az giriş örneğin sağlanabilir echo -ngibi echo -n hey | ruby rocket.rb.

puts'  |
 /_\
 |'+gets.chars*'|
 |'+'|
 |_|
/___\
 VvV'

Ruby, 62 60 bayt

puts'  |
 /_\
 |'+gets.chop.chars*'|
 |'+'|
 |_|
/___\
 VvV'

Haskell, 58 bayt

f s="  |\n /_\\\n |"++((:"|\n |")=<<s)++"_|\n/___\\\n VvV"

Retina , 44 37 bayt

Martin Ender sayesinde 7 bayt.

$
_
.
¶ |$0|
$
¶/___\¶ VvV
^
  |¶ /_\

Çevrimiçi deneyin!

Jöle , 37 36 bayt

;”_⁾ |;ЀŒB;“/___\“ VvV”“  |“ /_\”;Y

Mevcut girişle aynı puan, ancak eğlenceli yeni bir özellik kullanır - sıçrama şeklinde bilinen ŒBvectorized sürümü ŒḄ. Zıplayan sonra tekrar sonuna kadar bir liste içinden geçen ve x[:-1]+x[::-1]örneğin: bounce("codegolf") == "codegolflogedoc".

Dennis sayesinde -1 bayt (sıçramanın vectorized sürümünü kullanın)

Nasıl?

;”_⁾ |;ЀŒB;“/___\“ VvV”“  |“ /_\”;Y - argument: a string, S
                        “  |“ /_\”   - the top of the rocket ["  |", " /_\"] 
;”_                                  - concatenate to make S=S+"_"
   ⁾ |;                              - concatenate to make c=" |"+c
       Ѐ                            - map over right argument i.e. for c in S
         ŒB                          - bounce! With vectorisation c[:-1]+c[::-1]
                                       e.g. " |B" -> " |B| "
           ;                         - concatenate with
            “/___\“ VvV”             - the bottom of the rocket ["/___\", " VvV"]
                                  ;  - concatenate the top with everything else
                                   Y - join with line feeds

TryItOnline'da test edin

Pyke , 40 37 35 bayt

(En son sürümle çalışacak şekilde güncellendi)

\_+2" ||
"m:"/___\
 VvV"+R"  |
 /_\

Burada dene!

V , 41, 39 bayt

ys$_òlé
òÎá|I |
Hr/$r\YO  |GpX2á_o VvV

Çevrimiçi deneyin!

Bazı nedenlerden dolayı, çevrimiçi tercümanın beklenmedik sonuçlar ürettiğini, bu yüzden çok daha yavaş çalışan çevrimiçi tercümana bir hata ayıklama sürümü zorladığımı unutmayın. Şimdi doğru sonuçları üretmeli.

Bu program yazdırılamayan karakterler içerdiğinden, burada bir hexdump:

0000000: 7973 245f f26c e90a f2ce e17c 4920 7c0a  ys$_.l.....|I |.
0000010: 4872 2f24 725c 594f 2020 7c1b 4770 5832  Hr/$r\YO  |.GpX2
0000020: e15f 6f20 5676 56                        ._o VvV

R, 163 bayt

v=c();l="\n";for(i in 1:nchar(a<-scan(,"")))v=c(v,paste0(" |",strsplit(a,"")[[1]][i],"|",l,collapse=""));cat("  |",l," /_\\",l,v," |_|",l,"/___\\",l," VvV",sep="")

Ungolfed:

v=c()     #Empty vector
l="\n"    #Line break

for(i in 1:nchar(a<-scan(,"")))                  #For the number of character of the input
    v=c(v, paste0(" |",strsplit(a,"")[[1]][i],"|","\n",collapse=""))
    #This part cut the input into its letters, paste each letter between `|`'s, 
    #and a line break

cat("  |",l," /_\\",l,v," |_|",l,"/___\\",l," VvV",sep="") #Puts everything in the STDOUT,
                                                           #with spaces where needed

Son satıra biraz boşluk koymak zorunda kalmamı sevmiyorum ama hey!

PowerShell v2 +, 59 55 51 bayt

"  |
 /_\"
$args|% t*y|%{" |$_|"}
" |_|
/___\
 VvV"

Çevrimiçi deneyin!

Write-OutputHer elemanın arasına yeni bir satır yapıştırmak için yürütmenin sonunda varsayılanı kötüye kullanır , çünkü bunlar sadece boru hattındaki değişmez dizgilerdir. Tek "zor" bit, $argsroketin gövdesini almak için girişin her bir elemanını karakter dizisi olarak geçiren bir döngüdür .

ConnorLSW tarafından belirtildiği gibi bazı baytları kurtarmak için değişmez yeni satırları kullanır.
Veskah sayesinde -4 bayt daha.

PowerShell, 70 bayt

"  |`n /_\`n$(([char[]]$a|%{" |$_|"})-join("`n"))`n |_|`n/___\`n VvV 

$ A'yı giriş olarak ayarlayın.

Bir değişkenden başka bir giriş yapmak zorundaysa, aşağıdakiler içinde bağlanabilir:

"Hello World"|%{"  |`n /_\`n$(([char[]]$_|%{" |$_|"})-join("`n"))`n |_|`n/___\`n VvV "}

Örnek:

  |
 /_\
 |H|
 |e|
 |l|
 |l|
 |o|
 | |
 |W|
 |o|
 |r|
 |l|
 |d|
 |_|
/___\
 VvV 

Mathematica, 50 bayt

"  |
 /_\\
 |"<>(#<>"|
 |"&/@#)<>"_|
/___\\
 VvV"&

Anonim işlev Girdi olarak bir karakter listesi alır ve çıktı olarak bir dize döndürür.

PHP, 108 100 88 bayt

İş kedisi sayesinde -8 bayt

YetiCGN sayesinde -12 bayt

echo'  | 
 /_\\
';foreach(str_split($argv[1])as$c){echo" |$c|
";}echo' |_|
/___\\
 VvV';

oldukça basit

Ideone

C #, 106 97 80 74 bayt

s=>$@"  |
 /_\
 |{string.Join("|\n |",s.ToCharArray())}|
 |_|
/___\
 VvV";

Yukarıda denemek için C # 6 yok ama işe yarayacağına inanıyorum

Kevin Cruijssen sayesinde 7 bayt kaydedildi

Beni doğru yönde işaret ettiği için 17 byte tasarruf etmek için manatwork sayesinde

Süt sayesinde 6 bayt kurtardı

C,  131  , 121 bayt

#define P printf
main(){char s[99],*p=s;gets(s);P("  |\n /_\\\n");while(*p)P(" |%c|\n",*p++);P(" |_|\n/___\\\n VvV\n");}

Jöle, 38 37 bayt

;”_“|“|¶”jЀ“  |¶“/_\¶”;K;“/___\¶ VvV

Çevrimiçi deneyin!

Pyth cevabımda olduğu gibi aynı fikir, ancak bu muhtemelen golf olabilir.

05AB1E , 50 47 43 37 bayt

I'_J"  |
 /_\"svy" |ÿ|"}"/___\
 VvV"»

Çevrimiçi deneyin!

Adnan sayesinde 9 byte kurtarıldı.

Kotlin, 68 bayt

{"""  |
 /_\${it.replace(Regex("."),"\n |\$0|")}
 |_|
/___\
 VvV"""}

Oldukça basit. Çok satırlı dize ve bir regex değiştirme kullanır. Bu tür bir lambda (String)->String. Ölçek:

fun main(args: Array<String>) {
    val function : (String)->String = {"""  |
 /_\${it.replace(Regex("."),"\n |\$0|")}
 |_|
/___\
 VvV"""}
    println(function(" _ _ "))
}

Gema, 50 karakter

\A=  |\n\ /_\\\n
?=\ |?|\n
\Z=\ |_|\n/___\\\n\ VvV

Örnek çalışma:

bash-4.3$ echo -n gema | gema '\A=  |\n\ /_\\\n;?=\ |?|\n;\Z=\ |_|\n/___\\\n\ VvV'
  |
 /_\
 |g|
 |e|
 |m|
 |a|
 |_|
/___\
 VvV

BASH 84 70

İnsan yapımı sayesinde 14 kurtardı

(cat&&echo _)|sed 's~.~ |&|\n~g;1s~^~  |\n /_\\\n~;$s~$~/___\\\n VvV~'

Baytların yarısından fazlası burun ve motor eklemek için.

GolfScript, 61 51 bayt

İlk golf kodum, umarım yeterince iyidir.

"  |
 /_\\
"\1/.,{" |"\(\"|
"\}\*" |_|
/___\\
 VvV"

açıklama

"  |\n /_\\\n"   # Push the rocket's head
\                # Swap the head with the user's string
1/               # The string is converted into an array
.,               # Push array length
{" |"\           # Push the rocket's body and swap
(\               # Array's first element cut out
"|\n"\           # Push rocket's body and swap
}\*              # Repeat for array length times
" |_|\n/___\\\n VvV" # Push rocket's bottom

Çevrimiçi deneyin!

Vim, 41 39 bayt

İşte <End>tam anlamıyla "Son" tuşu.

i <End>_:s/./ |&|\r/g
/___\
 VvVggxo /_\

Yazdırılamaz yani:

i <End>_^O:s/./ |&|\r/g
/___\
 VvV^[ggxo /_\^[

GNU sed , 54 49 48 bayt

Bu, bu sitede bir meydan okumaya ilk cevabımdı. Çözüm basittir, çoğunlukla basittir, bu yüzden artık golf oynayamayacağından emin olarak biraz zaman geçirdim.

s:.:\n |&|:g
s::  |& /_\\&:
a\ |_|\n/___\\\n VvV

Çevrimiçi deneyin!

Yarım yıl sonra hızlı ileri, senaryoyu yeniden yazdım, iyi önlem almak için bir numara kullandım ve 1 byte daha kısa sürdüm. Şimdi bu ilerleme!

Açıklama: "GO" giriş örneği göz önüne alındığında, her adımdaki desen alanı açıklık için belirtilmiştir.

s:.:\n |&|:g
   # turn each input char into a section of the rocket (\n |G|\n |O|)
s::  |& /_\\&:
   # 's::' is a trick; the search part is actually the one from the previous 's'
   #command, i.e. a char. Only the first char, '\n', the modifier 'g' is not
   #inherited. The replace part is the head of the rocket. (  |\n /_\\n |G|\n |O|)
a\ |_|\n/___\\\n VvV
   # append the tail of the rocket, plus implicit printing at the end

  |
 /_\
 |G|
 |O|
 |_|
/___\
 VvV

Lua, 83 , 92 bayt

function f(x)return' |\n /_\\\n'..x:gsub('(.)',' |%1|\n')..' |_|\n/___\\\n VvV'end

print('  |\n /_\\\n'..(arg[1] and arg[1]:gsub('(.)',' |%1|\n') or '')..' |_|\n/___\\\n VvV')