ASCII ट्रेन के सभी जहाज

Question

सभी ASCII ट्रेन में सवार!

    o O O   ___     ___     ___     ___     ___     ___     ___     ___     ___  
   o       | C |   | O |   | D |   | E |   |   |   | G |   | O |   | L |   | F | 
  TS__[O]  |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___| 
 {======|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

आप ट्रेन की सवारी करने के लिए सर्वोत्तम रूप से तैयार हैं, क्योंकि आप जिस ट्रेन में सवार होंगे, उसका निर्माण करने वाले हैं। एक स्ट्रिंग को देखते हुए s, जैसा कि ऊपर दर्शाया गया है एक पूरी तरह से बनाई गई ट्रेन का उत्पादन। पहली बात यह है कि हमेशा इंजन ही ऐसा इंजन होता है जो आपके तार को नीचे गिराएगा, जैसा कि नीचे अकेले दर्शाया गया है:

    o O O 
   o      
  TS__[O] 
 {======| 
./o--000' 

लोकोमोटिव के बाद रेल-कारें हैं जिनमें आपके कीमती माल के प्रत्येक चरित्र होते हैं। उतारते समय भ्रम को बचाने के लिए, आपकी कंपनी ने आपको इन कारों के बाहर के लेबल लगाने का काम सौंपा है। विचाराधीन कारें हमेशा इस तरह दिखेंगी:

   ___ 
  | # |
  |___|
_|"""""|
"`-0-0-'

जहां #"कार्गो" पकड़ के अंदर चरित्र का प्रतिनिधि है। प्रत्येक कार के इंजन का पीछा करना भी आपकी नौकरी का हिस्सा है, क्योंकि आपको इस पूरे शिपमेंट की तरलता और सफलता की देखरेख करने का काम सौंपा गया है। इसलिए, एक बार जब आप सभी कारों को लेबल कर लेते हैं और पटरियों पर इंजन मिल जाता है, तो आपको यह सुनिश्चित करना होगा कि ट्रेन इकट्ठी हो और रोल करने के लिए तैयार हो।

नियम

• एकमात्र इनपुट जो आपके प्रोग्राम को लेना चाहिए, वह सिंगल स्ट्रिंग है।
• इंजन हमेशा आउटपुट होना चाहिए, भले ही आपका शिपमेंट खाली हो।
• प्रत्येक कार केवल एक चरित्र धारण कर सकती है, अपनी किस्मत को धक्का न दें जिससे आप सामान को नुकसान पहुंचा सकते हैं।
• आपको केवल निम्नलिखित मुद्रण योग्य ASCII वर्णों का समर्थन करने की आवश्यकता है: _-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
  यदि आप अधिक कर रहे हैं, तो यह ठीक है, लेकिन यह नंगे न्यूनतम है।
• 1-2 अनुगामी रिक्त स्थान स्वीकार्य हैं, जैसा कि एक एकल अनुगामी न्यूलाइन है।
• यह कोड-गोल्फ अस्की-आर्ट है , सबसे छोटी बाइट-काउंट जीत।

Comments

अस्पष्ट रूप से संबंधित।

— मार्टिन एंडर

मुझे नहीं लगता कि यह वास्तव में कोलमोगोरोव-जटिलता है । इस मेटा पोस्ट के आधार पर यह सवाल निश्चित रूप से हमारी परिभाषा को फिट करने और न करने के बीच की रेखा पर है और मैं व्यक्तिगत रूप से कहूंगा कि यह इस प्रश्न के समान टैग के लायक नहीं है जो एक प्रकार का स्ट्रिंग रैपिंग भी पूछता है।

— गेहूं जादूगर

यह सुंदर आस्की-कला है

— CAD97

@WheatWizard यह कई शैलियों का मिश्रण है। इंजन kolmogrov जटिलता के तहत गिर जाएगा, ASCII- कला के तहत पूरी बात और यह भी शायद स्ट्रिंग हेरफेर में थोड़ा सा गिर जाता है।

— मैजिक ऑक्टोपस Urn

मैं इस धारणा के तहत था कि ट्रेन के वास्तविक पैटर्न को संपीड़ित करना टैग के योग्य होगा; लेकिन मैं सिर्फ तर्क को रोकने के लिए इसे हटा दूंगा।

— मैजिक ऑक्टोपस Urn

Answer 1

05AB1E , 101 99 बाइट्स

भोली पहली कोशिश।

"    o O O   o"ð7×"TS__[O] {======|./o--000'"J5ä¹v… _ €ÐJy“ | ÿ |   |___| _|"""""|"`-0-0-'“«5ä})øJ»

इसे ऑनलाइन आज़माएं!

Comments

ठीक है, कोड एक ट्रेन जैसा नहीं होता है, लेकिन यह अब जीत रहा है।

— मैजिक ऑक्टोपस Urn

Answer 2

जावास्क्रिप्ट (ईएस 6), 149 144 बाइट्स

s=>`    o O Oa   ___  
   o     a  | $& | 
  TS__[O]a  |___| 
 {======|a_|"""""|
./o--000'a"\`-0-0-'`.replace(/a(.*)/g,(_,c)=>s.replace(/./g,c))

मुझे नहीं लगता कि इंजन खुद को संकुचित कर सकता है, लेकिन शायद यह संभव है।

टेस्ट स्निपेट

let f =

s=>`    o O Oa   ___  
   o     a  | $& | 
  TS__[O]a  |___| 
 {======|a_|"""""|
./o--000'a"\`-0-0-'`.replace(/a(.*)/g,(_,c)=>s.replace(/./g,c))

O.innerHTML = f("CODE GOLF")

<input value="CODE GOLF" oninput="O.innerHTML=f(this.value.replace(/\n/g,'&lt;br&gt;'))"><br>
<pre id=O></pre>

Comments

बहुत से दोहराए गए वर्ण, इसमें से कुछ और बाइट्स को निचोड़ना संभव होना चाहिए।

— ओरियन

स्रोत कोड में पैक की गई ट्रेन को लगभग देख सकते हैं :-)

— लुइस मेंडो

मुख्य रूप से बनाया गया कोड एक ट्रेन जैसा दिखता है

— रोहन झुनझुनवाला

बोनस अंक क्योंकि यह ब्राउज़र में वहीं चलता है!

— DGM

Answer 3

Befunge, 276 270 बाइट्स

p1p~:7>7+#:`#~_$:v
>#p0p10:p00:+1g00_v#:
v"!!```!!!"v>0p01g\-0g1+53p  
v"!}!#!}!!"v0 p115<
v"!}```}!!"v^:-1<
v"}#####}`">00g:|
>"(.1.1.a#"^+<v1<
v"P!P!p!!! "v5>g00p
v"!!!!!p!!!"v6
v"^P\``TU!!"vp
v"}>>>>>>|!"v+
>"(111..p0/"v6
v-1:g110">>"<g
>:11p!#v_p011^
#-:#1_@>$$$$>,#

इसे ऑनलाइन आज़माएं!

व्याख्या

कार और इंजन को 3 से 12. की तर्ज पर पांच स्ट्रिंग्स के दो सेटों के रूप में एन्कोड किया गया है। चरित्र मान 1 से बंद हैं ताकि दोहरे उद्धरण चिह्नों से निपटने से बचें जो कि बेफ़ुंज स्ट्रिंग में उपयोग नहीं किया जा सकता है।

स्टैक पर ट्रेन को रेंडर करने के लिए आवश्यक वर्णों का पूरा सेट बनाकर कोड काम करता है। आउटपुट की प्रत्येक पंक्ति के लिए, एक उपयुक्त कार स्ट्रिंग को पहले स्टैक में जोड़ा जाता है, कार्गो के लिए आवश्यक रूप से कई बार दोहराया जाता है, और फिर उपयुक्त इंजन स्ट्रिंग की एक प्रति।

प्रत्येक पंक्ति के निर्माण के बाद, तार के बाईं ओर नीचे के तीर की एक जोड़ी को एक दाहिने तीर से बदल दिया जाता है, इसलिए लूप का अगला पुनरावृत्ति कोड के माध्यम से एक अलग पथ का अनुसरण करता है, कार के लिए अलग जोड़ी का उपयोग करता है और यन्त्र।

एक बार जब सभी डेटा स्टैक पर बनाया गया है, तो एक अंतिम रेंडरिंग लूप है जो वर्णों को लिखता है, प्रारंभिक एन्कोडिंग के लिए खाते में हर बार 1 घटाता है।

बोनस के रूप में, स्रोत को बंदूक बुर्ज के आकार में डिज़ाइन किया गया है , अगर ट्रेन हमले में आती है। गोल्फरों ने मेरी बंदूक बुर्ज को नष्ट कर दिया।

Comments

गोल्फरों ने मेरी बंदूक बुर्ज, एलओएल को नष्ट कर दिया। +1। फिर भी, यह सी # और जावा को हरा रहा है।

— ज़ाचारि

Answer 4

PHP, 218 211 204 187 183 बाइट्स

    o O O<?for(;$y<5;print"\n".["   o     ","  TS__[O]"," {======|","./o--000'"][+$y++])for($p=0;$c=a&$argn[$p++];)echo["   ___  ","  | $c | ","  |___| ",'_|"""""|',"\"`-0-0-'"][+$y];

एसटीडीआईएन से इनपुट लेता है; साथ चलाना -nR।

इंजन या वैगन को कंपेयर करने से स्टोरेज से ज्यादा कोड को डीकंपोज करने की जरूरत होती है।
मुझे यहां कोई अधिक संभावना नहीं दिख रही है।

Comments

a&$c=$argn के बजाय""<$c=$argv[1]

— Jörg Hülsermann

@ JörgHülsermann ये पोस्ट प्राचीन थी। :)

— टाइटस

Answer 5

पायथन 2, 176 बाइट्स

lambda i:'\n'.join(map(''.join,zip(*[["    o O O","   o     ","  TS__[O]"," {======|","./o--000'"]]+[["   ___  ",'  | '+x+' | ',"  |___| ",'_|"""""|',"\"`-0-0-'"]for x in i])))

उदाहरण:

print f('Python')

देता है

    o O O   ___     ___     ___     ___     ___     ___  
   o       | P |   | y |   | t |   | h |   | o |   | n | 
  TS__[O]  |___|   |___|   |___|   |___|   |___|   |___| 
 {======|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

Answer 6

पॉवर्सशेल, 167 166 बाइट्स

$l=($a=$args[0]).Length;"    o O O"+"   ___  "*$l;"   o     "+($a[0..$l]|%{"  | $_ |"});"  TS__[O]"+"  |___| "*$l;" {======|"+'_|"""""|'*$l;"./o--000'"+'"`-0-0-'''*$l

उदाहरण:

.\train.ps1 "PowerShell!"
    o O O   ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___  
   o       | P |   | o |   | w |   | e |   | r |   | S |   | h |   | e |   | l |   | l |   | ! |
  TS__[O]  |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___| 
 {======|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

संभवतः अमान्य है! यदि बिना किसी आर्ग के साथ चलाया जाता है तो यह एक खाली स्ट्रिंग को प्रिंट करने और देखने की कोशिश करेगा:

    o O O
   o       |  |
  TS__[O]
 {======|
./o--000'

यदि खाली इनपुट स्ट्रिंग के साथ चलाया जाए तो यह सही तरीके से वापस आ जाएगी:

.\train.ps1 ""
    o O O
   o     
  TS__[O]
 {======|
./o--000'

(थोड़े) अघोषित:

$l=($a=$args[0]).Length
"    o O O"+"   ___  "*$l
"   o     "+($a[0..$l]|%{"  | $_ |"})
"  TS__[O]"+"  |___| "*$l
" {======|"+'_|"""""|'*$l
"./o--000'"+'"`-0-0-'''*$l

Powershell में सबसे छोटी संपीड़न वह +'c'*xजगह है जहां c चार है और x पुनरावृत्ति की संख्या है, और यह केवल अनुगामी या अग्रणी दोहराव के लिए है, किसी भी केंद्र-स्ट्रिंग पुनरावृत्ति को एक अतिरिक्त +और एक अतिरिक्त की आवश्यकता होगी "- इसलिए इसमें कोई मतलब नहीं है मैं संपीड़न को किसी भी स्थान को बचाते हुए देख सकता हूं, और केवल दोहराया गया चार सेट ___जो केवल 3 चार्ट है।

स्पष्टीकरण:

$l=($a=$args[0]).Length पहले आर्ग लें, इसे $ a में डालें, फिर $ a की लंबाई लें और इसे $ l में डालें, ये एकमात्र चर हैं जिनकी आपको आवश्यकता है।

" o O O"+" ___ "*$l अधिकांश अन्य बिट्स बाएं-भाग के इस प्रारूप का अनुसरण करते हैं और फिर दाहिने भाग में आवश्यक वर्णों की संख्या होती है।

" o "+([char[]]$a|%{" | $_ |"})लूप ( |%{}) $ के माध्यम से एक चार सरणी के रूप में, ताकि foreach (char $_ in $a)एक गैर-पाइपलाइन संस्करण के लिए, फिर पाठ में चार डाल दें।

यह एक बहुत ही सरल तरीका है, लेकिन क्योंकि मैं पिछले एक तार को संपीड़ित करने का एक अच्छा तरीका नहीं ढूंढ सकता हूं क्योंकि यह सबसे उपयोगी लगता है।

रिश्वतखोर के लिए 1 बाइट धन्यवाद! और यहाँ मैं सोच रहा था कि यह कोई छोटा नहीं होगा ।।

Comments

आपको कोई आर्गन्स नहीं संभालना था :)।

— मैजिक ऑक्टोपस Urn

@carusocomputing याय, मुझे बताने के लिए धन्यवाद।

— Colsw

अच्छा! आप को बदलने के द्वारा 1 बाइट बचा सकते हैं [char[]]$aकरने के लिए $a[0..$l] :)

— briantist

मेरे द्वारा घोषित किए जाने से पहले $lऔर इसके बारे में पूरी तरह से भूल जाने से पहले आह सरणी का उपयोग कर रहा था । उसके लिए धन्यवाद!

— कोल्सव

Answer 7

जावा, 361 बाइट्स

class C {static void main(String[]v){Scanner q = new Scanner(System.in);String i = q.nextLine();String[] t = {"    o O O   ", "   o       ", "  TS__[O]  ", " {======|", "./o--000'",};for (char c: i.toCharArray()) {t[0]+="___     ";t[1]+="| # |   ".replace('#',c);t[2]+="|___|   ";t[3]+="_|\"\"\"\"\"|";t[4]+="\"`-0-0-'";}for(String p:t) System.out.println(p);}}

class C {
    static void main(String[]v)  {
        Scanner q = new Scanner(System.in);
        String i = q.nextLine();
        String[] t = {
                "    o O O   ",
                "   o       ",
                "  TS__[O]  ",
                " {======|",
                "./o--000'",
        };
        for (char c: i.toCharArray()) {
            t[0]+="___     ";
            t[1]+="| # |   ".replace('#',c);
            t[2]+="|___|   ";
            t[3]+="_|\"\"\"\"\"|";
            t[4]+="\"`-0-0-'";
        }
        for(String p:t)
            System.out.println(p);

    }
}

उदाहरण

java
    o O O   ___     ___     ___     ___     
   o       | j |   | a |   | v |   | a |   
  TS__[O]  |___|   |___|   |___|   |___|   
 {======|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

Comments

मुझे पता है कि यह एक साल में आधा हो गया है, लेकिन आप बहुत कम गोल्फ (भी रिक्त स्थान हटाकर) कर सकते हैं: interface C{static void main(String[]v){String n="\n",b=" o O O ",c=" o ",d=" TS__[O] ",e=" {======|",f="./o--000'";for(String x:new java.util.Scanner(System.in).nextLine().split("")){b+="___ ";c+="| "+x+" | ";d+="|___| ";e+="_|\"\"\"\"\"|";f+="\"`-0-0-'";}System.out.print(b+n+c+n+d+n+e+n+f);}}( 318 बाइट्स ) या इससे भी अधिक यदि आप वैकल्पिक इनपुट ( 279 बाइट्स ) के रूप में प्रतिस्थापित new java.util.Scanner(System.in).nextLine()करते हैं, तो इसे यहां आज़माएं । v[0]

— केविन क्रूज़सेन

Answer 8

पर्ल, 137 बाइट्स

-pFझंडे के लिए कोड + 5 बाइट्स के 132 बाइट्स ।

ascii_train.pl:

#!/usr/bin/perl -apF
s/./  | $& | /g;$_="    o O O!   ___  
   o     $_
  TS__[0]!  |___| 
 {======|!".'_|"""""|'."
./o--000'!\"`-0-0-'";s/!(.*)/$1x@F/ge

ध्यान दें कि मैंने -aकोड में ध्वज जोड़ा था , लेकिन इसका उपयोग केवल -aतब -Fहोता है जब पर्ल के पुराने संस्करणों का उपयोग किया जाता है।

इसे चलाने के लिए:

echo -n "code-golf" | perl ascii_train.pl

इनपुट को अंतिम अंतिम पंक्ति ( echo -nउदाहरण के लिए) के बिना आपूर्ति की जानी चाहिए ।

स्पष्टीकरण:
मैंने जो देखा है, वह लगभग उसी तरह है जैसा ETHProduct के जावास्क्रिप्ट उत्तर में है।
बहुत कुछ नहीं चल रहा है: दुख की बात है कि xऑपरेटर को इस्तेमाल करने लायक बनाने के लिए पैटर्न थोड़ा छोटा है ।
सबसे पहले, ट्रेन के दूसरे स्तर को बनाने के लिए (और रिक्त स्थान) s/./ | $& | /gइनपुट के प्रत्येक चरित्र को घेरता है |।
फिर उस लंबे तार के अंदर, !एक नई लाइन के बीच सब कुछ एक पैटर्न है जिसे हम कारों के निर्माण के लिए दोहराना चाहते हैं। उस पुनरावृत्ति को रेक्सक्स के लिए धन्यवाद दिया जाता है s/!(.*)/$1x@F/ge। (मैंने इसका उपयोग किया !क्योंकि इनपुट में यह शामिल नहीं हो सकता)।

Answer 9

सी #, 277 बाइट्स

golfed:

string T(string s){var o=new string[]{"     o O O","   o        ","   TS__[O]","  {======|","./ o--000'" };for(int i=0;i<s.Length;i++){o[0]+="   ___  ";o[1]+="| # |   ".Replace("#",s[i]+"");o[2]+="  |___| ";o[3]+="_|\"\"\"\"\"|";o[4]+="\"`-0-0-'";}return string.Join("\r\n",o);

Ungolfed:

public string T(string s)
{
  var o = new string[] { "     o O O", "   o        ", "   TS__[O]",
    "  {======|", "./ o--000'" };

  for (int i = 0; i < s.Length; i++)
  {
    o[0] += "   ___  ";
    o[1] += "| # |   ".Replace("#", s[i] + "");
    o[2] += "  |___| ";
    o[3] += "_|\"\"\"\"\"|";
    o[4] += "\"`-0-0-'";
  }

  return string.Join("\r\n", o);
}

परिक्षण:

Console.Write(new AllAboardTheASCIITrain().T(""));

     o O O
   o        
   TS__[O]
  {======|
./ o--000'

तथा...

Console.Write(new AllAboardTheASCIITrain().T("Programming Puzzles & Code Golf"));

     o O O   ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___  
   o        | P |   | r |   | o |   | g |   | r |   | a |   | m |   | m |   | i |   | n |   | g |   |   |   | P |   | u |   | z |   | z |   | l |   | e |   | s |   |   |   | & |   |   |   | C |   | o |   | d |   | e |   |   |   | G |   | o |   | l |   | f |   
   TS__[O]  |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___| 
  {======|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|
./ o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

Answer 10

C # 221 बाइट्स

यहाँ कुछ खास नहीं हो रहा है .. बस हर लाइन बना रहे हैं और उन्हें नई लाइनों के साथ जोड़ रहे हैं।

s=>{var t=new[]{"    o O O","   o     ","  TS__[O]"," {======|","./o--000'"};foreach(var c in s){t[0]+="   ___  ";t[1]+=$"  | {c} | ";t[2]+="  |___| ";t[3]+="_|\"\"\"\"\"|";t[4]+="\"`-0-0-'";}return string.Join("\n",t);};

Answer 11

सी, 217 212 208 बाइट्स

i;f(char*t){char d[]="    o O O   o       TS__[O] {======|./o--000'   ___    | C |   |___| _|\"\"\"\"\"|\"`-0-0-'",*p;for(;i<5;i++){printf("%.9s",d+i*9);for(p=t;d[57]=*p++;)printf("%.8s",d+45+i*8);puts("");}}

इसे ऑनलाइन आज़माएं

आउटपुट:

    o O O   ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___  
   o       | C |   | O |   | D |   | E |   |   |   | G |   | O |   | L |   | F |   |   |   | I |   | N |   |   |   | C | 
  TS__[O]  |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___| 
 {======|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

Answer 12

SOGL V0.12 , 57 56 बाइट्स

Τ¡ā↓mΛC┌─⁵℮Ƨ⅛□→(š;∞⅟¹°⅔Ζ‽ζ÷⁴‘9n,{"s=Ο!NθæιžGš‼t╬¼Xg`‘8n┼

यह कोशिश करो!

स्पष्टीकरण:

..‘             push a compressed string of the locomotive in a single line
   9n           split in line lengths of 9
     ,{         for each character in the input
       "..‘       push a compressed string of a wagon in a single line
           8n     split to line lengths of 8
             ┼    add horizontally

Answer 13

Jq 1.5 , 178 बाइट्स

[["    o O O   o       TS__[O] {======|./o--000'"|_nwise(9)]]+[range(length)as$i|[.[$i:$i+1]|"   ___    | \(.) |   |___| _|\"\"\"\"\"|\"`-0-0-'"|_nwise(8)]]|transpose|map(add)[]

विस्तारित

# engine
def E:"    o O O   o       TS__[O] {======|./o--000'"|_nwise(9);

# car (note string interpolation)
def C:"   ___    | \(.) |   |___| _|\"\"\"\"\"|\"`-0-0-'"|_nwise(8);

  # generate train
  [[E]] + [range(length) as $i| [.[$i:$i+1] |C]]

  # combine rows and concatenate strings     
| transpose | map(add)[]

नमूना चला

$ jq -MRr train.jq <<< "golf"
    o O O   ___     ___     ___     ___  
   o       | g |   | o |   | l |   | f | 
  TS__[O]  |___|   |___|   |___|   |___| 
 {======|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'

$ wc -c < train.jq
  178

इसे ऑनलाइन आज़माएं

Answer 14

एक्सेल VBA, 218 बाइट्स

बेनामी VBE तत्काल विंडो फ़ंक्शन जो रेंज से इनपुट लेता है [A1]और VBE तत्काल विंडो में आउटपुट करता है

[B1]=[Len(A1)]:?"    o O O"[Rept("   ___  ",B1)]:?"   o     ";:For i=1To[B1]:?"  | "Mid([A1],i,1)" | ";:Next:?:?"  TS__[O]"[Rept("  |___| ",B1)]:?" {======|"[Rept("_|""""""""""|",B1)]:?"./o--000'"[Rept("""`-0-0-'",B1)]

पठनीयता के लिए प्रारूपित

[B1]=[Len(A1)]
?"    o O O"[Rept("   ___  ",B1)]
?"   o     ";:For i=1To[B1]:?"  | "Mid([A1],i,1)" | ";:Next:?:
?"  TS__[O]"[Rept("  |___| ",B1)]:
?" {======|"[Rept("_|""""""""""|",B1)]:
?"./o--000'"[Rept("""`-0-0-'",B1)]

नमूना आउटपुट

    o O O   ___     ___     ___     ___     ___     ___     ___     ___     ___     ___     ___  
   o       | V |   | B |   | A |   |   |   | E |   | x |   | p |   | r |   | e |   | s |   | s | 
  TS__[O]  |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___|   |___| 
 {======|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|_|"""""|
./o--000'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'"`-0-0-'