П'ятниця, і я втомився, тому давайте зробимо швидку! Не беруть ніяких даних, однак ви повинні вивести всі тринадцять різних пронумерованих карт у стандартній колоді карт. Вам слід вивести 2 через туз (підхід агностик).

Кожна картка має верх, який позначається пробілом, і десять, _і інший пробіл .

Другий ряд зверху позначається /пробілами а та десятьма а\

Третій рядок такий же, як і всі середні рядки виключають символи (символи), що означають, що значення картки з'являються два пробіли праворуч (якщо вгорі) або два пробіли зліва (якщо внизу) краю.

Кожен середній рядок - простий |і десять пробілів і ще один|

Нарешті останній рядок - це \десять, _і нарешті - a/

Якщо значення багатозначне, загальна ширина по висоті картки не повинна змінюватися. (тобто 10 не розширять сторони картки)

Приклад короля:

 __________ 
/          \
| K        |
|          |
|          |
|          |
|          |
|          |
|        K |
\__________/

9 Приклад

 __________ 
/          \
| 9        |
|          |
|          |
|          |
|          |
|          |
|        9 |
\__________/

10 Приклад

 __________ 
/          \
| 10       |
|          |
|          |
|          |
|          |
|          |
|       10 |
\__________/

Виведіть їх у порядку від найменшого до найбільшого (тузи високі!).

Це код-гольф, тому найкоротший код виграє.

Приємно і весело провести вихідні!

PowerShell v2 +, 120 116 114 108 байт

2..10+[char[]]'JQKA'|%{$z=' '*(8-!($_-10));$x='_'*10;$y=' '*10;" $x 
/$y\
| $_$z|";,"|$y|"*5;"|$z$_ |
\$x/"}

Конструює діапазон 2..10і об'єднує масив з char-array JQKA. Це передає в цикл |%{...}. Кожна ітерація, покладе $zрівну відповідне число прогалин (на основі ми на карті 10чи ні), набір $xдля 10підкреслення і безліч $yв 10простору.

Потім ми починаємо свої місця розміщення. Ми будемо використовувати за замовчуванням, Write-Outputщоб вставити нову лінію між елементами трубопроводу, тому нам просто потрібно отримати матеріали на конвеєрі. Зауважте, що в більшості місць ми використовуємо буквальний новий рядок, а не закриваємо та повторно відкриваємо наші рядки, щоб зберегти пару байт.

Перший - просто $xз двома пробілами, потім $yз двома косами, потім | $_$z|"труба, пробіл, відповідна кількість пробілів та ще одна труба. Це утворює верхню частину картки до і включає рядок значень.

Тут ми маємо крапку з комою, оскільки наступний використовує масив. ,"|$y|"*5Створює строковий масив з коми-оператором, труб з пробілами - на виході, кожен елемент цього масиву отримує нову рядок безкоштовно.

Потім, "|$z$_ |маркування для нижнього значення та, нарешті, $xкосою рисою для нижньої частини картки.

Вихідний фрагмент

PS C:\Tools\Scripts\golfing> 2..10+[char[]]'JQKA'|%{$z=' '*(8,7)[$_-eq10];" $(($x='_'*10)) ";"/$(($y=' '*10))\";"| $_$z|";,"|$y|"*5;"|$z$_ |";"\$x/"}
 __________ 
/          \
| 2        |
|          |
|          |
|          |
|          |
|          |
|        2 |
\__________/
 __________ 
/          \
| 3        |
|          |
|          |
|          |
|          |
|          |
|        3 |
\__________/
 __________ 
/          \
| 4        |
...

Пітон, 161 160 156 149 байт

Один байт врятував Шебанг

Це може використати певну роботу, але ось це:

o=" ";v="_"*10
for x in map(str,range(2,11)+list("JKQA")):print o+v+"\n/",o*9+"\\\n|",x.ljust(8),"|"+("\n|"+o*10+"|")*5+"\n|",o*6+x.ljust(3)+"|\n\\"+v+"/"

Пояснення

Складаємо список усіх рангів за порядком використання map(str,range(2,11). Потім пров'язуємо кожне з рядів і робимо карту.

print o+"_"*10+"\n/",o*9+"\\\n|",x.ljust(8),"|"+("\n|"+o*10+"|")*5+"\n|",o*6+x.ljust(3)+"|\n\\"+"_"*10+"/"

Ми робимо верхню частину картки:

o+v+"\n"

Потім звання йде зліва:

"/",o*9+"\\\n|",x.ljust(8),"|"

Ми використовуємо, .ljustтому що 10два довгі, а всі інші - одна широка.

Потім надрукуємо 5 рядів посередині:

"|"+("\n|"+o*10+"|")*5+"\n|"

і нижній ранг:

"\n|",o*6+x.ljust(3)+"|\n"

Нарешті ми роздруковуємо дно картки:

"\\"+v+"/"

JavaScript (ES6), 151 байт

f=
_=>`2345678910JQKA`.replace(/.0?/g,s=>` __________
/          \\
| `+(s+=`   `+s).slice(0,4)+`     |
|     `.repeat(6)+s.slice(-4)+` |
\\__________/
`)
;
document.write('<pre>'+f());

Perl, 128 117 111 байт

map{printf$"."_"x10 ."
/".$"x10 .'\
| %-9s|
'.("|".$"x10 ."|
")x5 ."|%9s |
\\"."_"x10 ."/
",$_,$_}2..10,J,Q,K,A

Шість буквальних нових рядків зберігають 1 байт. Це неможливо виконати безпосередньо з командного рядка через одиничні лапки у рядках 2 та 4 , щоб зберегти 1 байт, косої риски.

Редагувати: Я ставлю туза на початку, але він повинен бути в кінці. Це не змінює кількість байтів.

Редагувати 2: -11 байт: Позбавився від зайвих висловлювань і додав ще один буквальний новий рядок. Тепер все виводиться за допомогою одного printf.

Редагуйте 3: -5 байт завдяки @Ton Hospel. Але чомусь я отримую 111 байт замість 112 вдома в порівнянні з на роботі, тому я йду з підрахунком байтів, який дає мені домашній комп'ютер.

PHP, 233 байт

foreach([2,3,4,5,6,7,8,9,10,J,Q,K,A]as$k){for($c="",$i=0;$i<10;$i++)$c.=str_pad($i?$i>1&$i<9?"|":($i<2?"/":"\\"):" ",11,$i%9?" ":_).($i?$i>1&$i<9?"|":($i<2?"\\":"/"):" ")."\n";$c[113]=$c[28]=$k;$k>9&&$c[29]=$c[113]=0&$c[112]=1;echo$c;}

///, 182 180 байт

/+/_____//*/# |
&//&/@@@@@|# //%/ |
\\\\++\\\/
//$/ ++
\\\/!\\\\
| //#/       //!/#   //@/|!|
/$2*2%$3*3%$4*4%$5*5%$6*6%$7*7%$8*8%$9*9%$10#|
@@@@@|#10 |
\\++\/
$J*J%$K*K%$Q*Q%$A*A%

Спробуйте в Інтернеті!

-2 байти завдяки m-chrzan

Python 3,5, 110 байт

u='_'*10
for c in[*range(2,11),*'JQKA']:print(' %s\n/%%11s\n'%u%'\\'+'| %-6s%2s |\n'*7%(c,*' '*12,c)+'\%s/'%u)

Друкує

• Два верхні рядки, ' %s\n/%%11s\n'%u%'\\'де uє'_'*10
• Середні 7 рядків '| %-2s %2s |\n', кожен з яких має два слоти для форматування рядків. Перші та останні заповнюються значенням картки, а решта - пробілами без ефекту
• Підсумок '\% s /'% u

Нові функції розпакування Python 3.5 використовуються у двох місцях. Список етикеток [*range(2,11),*'JQKA']розпаковує цифри та літери в один список. І, кортеж (c,*' '*12,c)розпаковує дванадцять записів пробілів у центр.

Scala, 161 байт

val a=" "*7
val u="_"*10
((2 to 10)++"JQKA")map(_+"")map{x=>val p=" "*(2-x.size)
s" $u \n/$a   \\\n| $x$p$a|\n" + s"|$a   |\n" * 5 + s"|$a$p$x |\n\\$u/\n"}

Пакетна, 236 байт

@echo off
for %%v in (2 3 4 5 6 7 8 9 10 J Q K A)do call:v %%v
exit/b
:v
set s=%1       %1
echo  __________
echo /          \
echo ^| %s:~0,8% ^|
for /l %%l in (1,1,5)do echo ^|          ^|
echo ^| %s:~-8% ^|
echo \__________/

Я намагався займатися гольфом трьома різними способами, але в кінцевому підсумку кожен раз перетворював один і той же байт ...

05AB1E , 71 70 68 66 65 64 байт

Використання кодування CP-1252 .

TL¦"JQKA"S«vð'_TשððT×…/ÿ\9yg-ð×y"| ÿÿ|"ÂðT×…|ÿ|5×sT‡®…\ÿ/JTä»,

Трохи змінене посилання як … не працює з ÿTIO atm.

Спробуйте в Інтернеті!

Пояснення

TL¦"JQKA"S« висуває список [2,3,4,5,6,7,8,9,10,J,Q,K,A]

Потім перебираємо через кожне значення картки за допомогою v

ð'_Tשðконструює, " __________ "
ðT×…/ÿ\будує, "/ \"
9yg-ð×y"| ÿÿ|"Âбудує 2 ряди зі значеннями карт (другий рядок - перший перевернутий)
ðT×…|ÿ|5× будує 5 рядків форми"| |"

Тоді ми

s     # move the 2nd card value row after the 5 "middle rows"
 T‡  # and replace 1 with 0 and vice versa

®…\ÿ/ будує нижній ряд

J       # join everything into 1 string
 Tä     # split into 10 parts
   »,   # merge by newline and print with newline

V , 87 байт

i ±_ 
/± \Ypr|$.Y6P3|r2Lhhr2o\±_/
H8ñy}GP2j6j? _ñ2j$X6jxG"04p/9
rJn.nrQn,nrKn.nrAn.

Спробуйте в Інтернеті!

Оскільки в ньому містяться деякі недруковані версії, ось шестинадцять:

0000000: 6920 b15f 200a 2fb1 205c 1b59 7072 7c24  i ._ ./. \.Ypr|$
0000010: 2e59 3650 337c 7232 4c68 6872 326f 5cb1  .Y6P3|r2Lhhr2o\.
0000020: 5f2f 0a1b 4838 f179 7d47 5032 6a01 366a  _/..H8.y}GP2j.6j
0000030: 013f 205f f132 6a24 5836 6a78 4722 3034  .? _.2j$X6jxG"04
0000040: 702f 390a 724a 6e2e 6e72 516e 2c6e 724b  p/9.rJn.nrQn,nrK
0000050: 6e2e 6e72 416e 2e                        n.nrAn.

PHP, 135 131 158 134 байт

Сподіваюся, я можу знайти спосіб трохи скоротити це.

foreach([2,3,4,5,6,7,8,9,10,J,Q,K,A]as$C)printf(" %'_9s
/%12s| %-8s|%s
|%8s |
\\%'_9s/
",_,'\
',$C,str_repeat('
|         |',5),$C,_);

Для цього слід скористатися printfповторенням кількох символів і відформатувати все добре.

Стара версія:

Не зовсім частинка краси, але працює!

$L=__________;$S='        ';foreach([2,3,4,5,6,7,8,9,10,J,Q,K,A]as$C)echo" $L
/  $S\
| $C".($P=substr($S,$C>9))."|
",str_repeat("|  $S|
",5),"|$P$C |
\\$L/
";

Дякую Йоргу Гюльсерману за виявлення помилки та за те, що він дозволив мені використовувати частину його коду, що зменшило його на 4 байти! І для знаходження фатальної помилки.

Рубін, 115 байт

Досить прямого використання printf.

([*(?2.."10")]+%w{J Q K A}).map{|e|printf" #{u=?_*10} 
/%11s
| %-9s|
#{(?|+' '*10+"|
")*5}|%9s |
\\#{u}/
",?\\,e,e}

Ракетка 327 байт

(let*((ms make-string)(p #\space)(e? equal?)(sa string-append)(f(λ(s)(display(sa" "(ms 10 #\_)" \n""/"(ms 10 p)"\\\n""| "s
(ms(if(e? s"10")7 8)p)"|\n"(apply sa(for/list((i 6))"|          |\n"))"| "(ms(if(e? s"10")6 7)p)s" |\n"
"\\"(ms 10 #\_)"/\n")))))(for((i(range 2 11)))(f(number->string i)))(for((i'("J""Q""K""A")))(f i)))

Безголівки:

(define (main)
(let* ((ms make-string)
       (e? equal?)
       (sa string-append)
      (f(lambda(s)
  (display
   (sa
    " "
    (ms 10 #\_)
    " \n"
    "/"
    (ms 10 #\space)
    "\\\n"
    "| " s   (ms (if(e? s "10") 7 8) #\space)   "|\n"
    (apply sa (for/list ((i 6)) "|          |\n"))
    "| "  (ms (if(e? s "10") 6 7) #\space)  s " |\n"
    "\\" (ms 10 #\_) "/\n")
   ))))
(for ((i(range 2 11)))
  (f (number->string i)))
(for ((i '("J" "Q" "K" "A")))
  (f i))
))

Тестування:

(main)

Вихід:

 __________ 
/          \
| 2        |
|          |
|          |
|          |
|          |
|          |
|          |
|        2 |
\__________/
 __________ 
/          \
| 3        |
|          |
|          |
|          |
|          |
|          |
|          |
|        3 |
\__________/
 __________ 
/          \
| 4        |
|          |
|          |
|          |
|          |
|          |
|          |
|        4 |
\__________/
 __________ 
/          \
| 5        |
|          |
|          |
|          |
|          |
|          |
|          |
|        5 |
\__________/
 __________ 
/          \
| 6        |
|          |
|          |
|          |
|          |
|          |
|          |
|        6 |
\__________/
 __________ 
/          \
| 7        |
|          |
|          |
|          |
|          |
|          |
|          |
|        7 |
\__________/
 __________ 
/          \
| 8        |
|          |
|          |
|          |
|          |
|          |
|          |
|        8 |
\__________/
 __________ 
/          \
| 9        |
|          |
|          |
|          |
|          |
|          |
|          |
|        9 |
\__________/
 __________ 
/          \
| 10       |
|          |
|          |
|          |
|          |
|          |
|          |
|       10 |
\__________/
 __________ 
/          \
| J        |
|          |
|          |
|          |
|          |
|          |
|          |
|        J |
\__________/
 __________ 
/          \
| Q        |
|          |
|          |
|          |
|          |
|          |
|          |
|        Q |
\__________/
 __________ 
/          \
| K        |
|          |
|          |
|          |
|          |
|          |
|          |
|        K |
\__________/
 __________ 
/          \
| A        |
|          |
|          |
|          |
|          |
|          |
|          |
|        A |
\__________/

Java 7, 287 байт

String c(){String r="",l="__________",c=(" "+l+" \n/s\\\n| z       |\nxxxxxx|       y|\n\\"+l+"/\n").replace("x","|s|\n").replace("s","          ");for(int i=0;i++<13;r+=c.replace("z",i==10?"10":(l=i<2?"A ":i>12?"K ":i>11?"Q ":i>10?"J ":i+" ")).replace("y",i==10?"10 ":" "+l));return r;}

Добре, це некрасиво і не дуже ефективно, але це працює .. Це 10як особливий випадок з пробілом вгорі і після в нижній позиції дійсно гвинти з усіма ..

Невикористаний і тестовий код:

Спробуйте тут.

class M{
  static String c(){
    String r = "",
           l = "__________",
           c = (" " + l + " \n/s\\\n| z       |\nxxxxxx|       y|\n\\" + l + "/\n")
                 .replace("x", "|s|\n")
                 .replace("s", "          ");
    for(int i = 0; i++ < 13; r += c
        .replace("z", i == 10
                       ? "10"
                       : (l = i < 2
                               ? "A "
                               : i > 12
                                  ? "K "
                                  : i > 11
                                     ? "Q "
                                     : i > 10
                                        ? "J "
                                        : i+" "))
        .replace("y", i == 10
                       ? "10 "
                       : " "+l));
    return r;
  }

  public static void main(String[] a){
    System.out.println(c());
  }
}

Вихід:

 __________ 
/          \
| A        |
|          |
|          |
|          |
|          |
|          |
|          |
|        A |
\__________/
 __________ 
/          \
| 2        |
|          |
|          |
|          |
|          |
|          |
|          |
|        2 |
\__________/
 __________ 
/          \
| 3        |
|          |
|          |
|          |
|          |
|          |
|          |
|        3 |
\__________/
 __________ 
/          \
| 4        |
|          |
|          |
|          |
|          |
|          |
|          |
|        4 |
\__________/
 __________ 
/          \
| 5        |
|          |
|          |
|          |
|          |
|          |
|          |
|        5 |
\__________/
 __________ 
/          \
| 6        |
|          |
|          |
|          |
|          |
|          |
|          |
|        6 |
\__________/
 __________ 
/          \
| 7        |
|          |
|          |
|          |
|          |
|          |
|          |
|        7 |
\__________/
 __________ 
/          \
| 8        |
|          |
|          |
|          |
|          |
|          |
|          |
|        8 |
\__________/
 __________ 
/          \
| 9        |
|          |
|          |
|          |
|          |
|          |
|          |
|        9 |
\__________/
 __________ 
/          \
| 10       |
|          |
|          |
|          |
|          |
|          |
|          |
|       10 |
\__________/
 __________ 
/          \
| J        |
|          |
|          |
|          |
|          |
|          |
|          |
|        J |
\__________/
 __________ 
/          \
| Q        |
|          |
|          |
|          |
|          |
|          |
|          |
|        Q |
\__________/
 __________ 
/          \
| K        |
|          |
|          |
|          |
|          |
|          |
|          |
|        K |
\__________/

R, 175 байт

for(x in c(2:10,"J","Q","K","A")){r=c("|"," ",x,rep(" ",9-nchar(x)),"|");cat(" __________ \n/          \\\n",r,"\n",rep("|          |\n",5),rev(r),"\n\\__________/\n",sep="")}

Цього разу досить конкурентоспроможною відповіддю на виклик мистецтву, і, безумовно, має бути гофрованим.

Спробуйте це на R-скрипці

Необережений і пояснив

for(x in c(2:10,"J","Q","K","A")){          # For each card in vector 1,...,10,J,Q,K,A
    r=c("|"," ",x,rep(" ",9-nchar(x)),"|")  # Create variable for 3rd row called "r".
    ;cat(" __________ \n/          \\\n",   # Print: hardcoded top two rows,
    r,"\n",                                 # 3rd row,
    rep("|          |\n",5),                # Repeat middle section 5 times,
    rev(r),                                 # Reversed 3rd row,
    "\n\\__________/\n",                    # Hardcoded bottom row
    sep="")                                 # Set separator to empty string
}

Найцікавішим аспектом, де зберігається кілька байтів, є призначення третього ряду:

r=c("|"," ",x,rep(" ",9-nchar(x)),"|")

Тому що 8між символом, що позначає значення картки, і кінцевим |(крім винятків) є пробіли10 ) , можемо повторити9 пробіли, пробіли і віднімати кількість символів на друкованій в даний час картці.

Зберігаючи кожен символ у 3rdрядку як його власний елемент у рядковому векторі, rми можемо перевернути вектор і повторно використовувати його для 9thрядка.

C #, 385 байт

Мій перший виклик мистецтва ASCII - це було весело!

Гольф:

string D(){var d=new string[15];for(int i=2;i<15;i++){var a=i>10?new Dictionary<int,string>(){{ 11,"J"},{12,"Q"},{13,"K"},{14,"A"},}[i]:i+"";var r="|          |";d[i]=string.Join("\n",new string[]{" __________",@"/          \",a.Length>1?"| "+a+"       |":"| "+a+"        |",r,r,r,r,r,a.Length>1?"|       " + a +" |" : "|        "+a+" |",@"\__________/"});}return string.Join("\n",d);}

Безголівки:

public string D()
{
  var d = new string[15];

  for (int i = 2; i < 15; i++)
  {
    var a = i > 10 ? new Dictionary<int, string>() {
    { 11, "J" },
    { 12, "Q" },
    { 13, "K" },
    { 14, "A" },
    }[i] 
      : i+"";

    var r = "|          |";

    d[i] = string.Join("\n", new string[] {
      " __________",
      @"/          \",
      a.Length > 1 ? "| " + a + "       |" : "| " + a + "        |",
      r,
      r,
      r,
      r,
      r,
      a.Length > 1 ? "|       " + a +" |" : "|        " + a +" |",
      @"\__________/"});
  }

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

Власне , 91 байт

"JQKA"#9⌐2x+`;k' ;'_9u*@++'\' 9u*'/++"| {:<9}|"5'|;' 9u*@++n"|{:>9} |"'/'_9u*'\++kp@'
jf`Mi

Спробуйте в Інтернеті!

Пояснення

Частина 1: налаштування списку номінальних значень:

"JQKA"#9⌐2x+`PART 2 CODE`Mi
       9⌐2x                  range(2,11) ([2, 10])
"JQKA"#    +                 extend with ["J", "Q", "K", "A"]
            `PART 2 CODE`M   do Part 2 for each item in list
                          i  flatten resulting list and implicitly print

Частина 2: створення карток (новий рядок замінено на \nдля читабельності):

;k' ;'_9u*@++'\' 9u*'/++"| {:<9}|"5'|;' 9u*@++n"|{:>9} |"'/'_9u*'\++kp@'\njf
;k                                                                            duplicate the face value, push both copies to a list
  ' ;'_9u*@++                                                                 construct the top line
             '\' 9u*'/++                                                      construct the second line
                        "| {:<9}|"                                            create a format string to place the value in a left-aligned 9-width field in the top left of the card, one space away from the edge
                                  5'|;' 9u*@++n                               create 5 copies of the blank middle section
                                               "|{:>9} |"                     like before, but right-align the face value
                                                         '/'_9u*'/++          construct the bottom of the card
                                                                    kp@'\nj   push entire stack to a list, pop the list containing the face values out of that list, and join the rest (the card strings) with newlines
                                                                           f  format the card with the face values