Befunge, 276 270 octets

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_@>$$$$>,# 

Essayez-le en ligne!

Explication

La voiture et le moteur sont codés comme deux ensembles de cinq chaînes sur les lignes 3 à 12. Les valeurs des caractères sont décalés de 1 afin déviter davoir à traiter les guillemets doubles qui ne peuvent pas être utilisés dans une chaîne Befunge.

Le code fonctionne en construisant lensemble complet de caractères nécessaires pour rendre le train sur la pile. Pour chaque ligne de sortie, une chaîne de voiture appropriée est dabord ajoutée à la pile, répétée autant de fois que nécessaire pour la cargaison, puis une copie de la chaîne de moteurs appropriée.

Une fois que chaque ligne a été construite, une paire de flèches vers le bas à gauche des chaînes est remplacée par une flèche vers la droite, de sorte que la prochaine itération de la boucle suit un chemin différent à travers le code, en utilisant un autre paire de chaînes pour la voiture et le moteur.

Une fois que toutes les données ont été construites sur la pile, il ya une boucle de rendu final qui écrit les caractères, en soustrayant 1 à chaque fois pour tenir compte du codage initial .

En prime, la source est conçue sous la forme dune tourelle de canon , au cas où le train serait attaqué . Les golfeurs ont détruit ma tourelle de canon.

Commentaires

• Les golfeurs ont détruit ma tourelle de canon, LOL. +1. Pourtant, cela ‘ bat C # et Java.

PHP, 218 211 204 187 183 octets

 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]; 

Prend les entrées de STDIN; exécute avec -nR .

Compression du moteur ou wagon nécessiterait plus de code pour décompresser quil nen économise sur le stockage.
Je ne vois plus de potentiel ici.

Commentaires

• a&$c=$argn au lieu de ""<$c=$argv[1]
• @J ö rgH ü lsermann Oui, ce message était ancien. 🙂

Python 2, 176 octets

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

Exemple:

print f("Python") 

donne

 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-" 

Powershell, 167 166 octets

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

Exemple:

.\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-" 

Peut-être invalide! Sil est exécuté sans aucun argument, il essaiera dafficher une chaîne vide, et ressemblera à:

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

Si exécuté avec une chaîne dentrée vide, il retournera correctement cependant:

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

(un peu) Ungolfed:

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

la compression la plus courte dans Powershell est va être +"c"*x où c est le caractère et x est le nombre de répétitions, et que « s uniquement pour les répétitions de fin ou de tête, toute répétition de chaîne centrale nécessitera un + et un " supplémentaire – donc il ny a pas de raison de voir la compression économiser de lespace, et le seul jeu de caractères répété est ___ qui ne fait que 3 caractères.

Explication:

$l=($a=$args[0]).Length Prendre le premier argument , mettez-le dans $ a, puis prenez la longueur de $ a et mettez-le dans $ l, ce sont les seules variables dont vous avez besoin.

" o O O"+" ___ "*$l la plupart des les autres bits suivent ce format de t la partie gauche puis la partie droite multiplient le nombre de caractères requis.

" o "+([char[]]$a|%{" | $_ |"}) loop (|%{}) via $ a comme un tableau de caractères, donc foreach (char $_ in $a) pour une version non pipeline, puis mettez le char dans le texte.

cest une approche extrêmement simple, mais parce que je ne peux pas trouver un bon moyen de compresser les chaînes au-delà de cela, cela semble être le plus utile.

sauvé 1 octet grâce à briantist! et là, je pensais que cela ne serait pas plus court ..

Commentaires

• Vous navez pas ‘ Je nai pas à gérer darguments :).
• @carusocomputing yay, merci de me lavoir fait savoir.
• Bien! Vous pouvez économiser 1 octet en changeant [char[]]$a à $a[0..$l] 🙂
• ah utilisait un tableau de caractères avant de déclarer $l et jai totalement oublié à ce sujet. merci pour cela!

Java, 361 octets

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); } }  

Exemple

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

Commentaires

• Je sais que ‘ a été divisé par deux par an, mais vous pouvez golfez un peu (également en supprimant des espaces): 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 octets ) Ou encore plus si vous remplacez new java.util.Scanner(System.in).nextLine() avec v[0] comme alternative dans put ( 279 octets ) Essayez-le ici .

Perl, 137 octets

132 octets de code + 5 octets pour les indicateurs -pF.

ascii_train.pl:

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

Notez que jai ajouté le drapeau -a dans le code, mais ce nest que parce que les anciennes versions de Perl nécessitent -a lorsque -F est utilisé.

Pour lexécuter:

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

Le lentrée doit être fournie sans nouvelle ligne finale (avec echo -n par exemple).

Explications:
Daprès ce que jai vu, cest à peu près la même idée comme réponse JavaScript dETHProduction.
Il ne se passe pas beaucoup de choses: malheureusement, les modèles sont un peu trop courts pour que lopérateur x vaille la peine dêtre utilisé.
Premièrement, s/./ | $& | /g entoure chaque caractère de lentrée avec | (et des espaces) pour former le deuxième niveau du train.
Puis à lintérieur longue chaîne, tout entre un ! et une nouvelle ligne est un motif que nous souhaitons répéter pour construire les voitures. Cette répétition se fait grâce à la regex s/!(.*)/$1x@F/ge. (Jai utilisé ! car lentrée ne peut « t le contenir).

SOGL V0.12 , 57 56 octets

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

Essayez-le ici!

Explication:

..‘ 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 

C #, 277 octets

Golfé:

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); 

Non golfé:

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); } 

Test:

Console.Write(new AllAboardTheASCIITrain().T("")); o O O o TS__[O] {======| ./ o--000" 

Et …

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-" 

C # 221 octets

rien de spécial ne se passe ici .. il suffit de créer chaque ligne et de les joindre avec de nouvelles lignes.

 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);};  

C, 217 212 208 octets

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("");}} 

Essayez-le en ligne

Ou tput:

 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-" 

Jq 1.5 , 178 octets

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

Développé

# 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)[] 

Exemple dexécution

$ 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 

Essayez-le en ligne

Excel VBA, 218 octets

Fonction de fenêtre immédiate VBE anonyme qui prend lentrée de la plage [A1] et affiche la fenêtre immédiate de 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)]  

Formaté pour la lisibilité

 [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)]  

Exemple de sortie

  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-"