Przetasuj i rozdaj!


14

Jest piątek i jestem zmęczony, więc zróbmy szybki! Nie wkładaj żadnych danych, jednak powinieneś wypisać wszystkie trzynaście kart o różnych numerach w standardowej talii kart. Powinieneś wypisać 2 poprzez asa (kolor agnostyczny).

Każda karta ma blat oznaczony spacją oraz dziesięć _i inną spację .

Drugi rząd od góry jest oznaczony a /oraz 10 spacjami i a\

Trzeci rząd jest taki sam, jak wszystkie środkowe rzędy, z wyjątkiem tego, że znak (i) oznaczający wartość karty pojawiają się dwa spacje po prawej stronie (jeśli u góry) lub dwa spacje po lewej stronie (jeśli u dołu) krawędzi.

Każdy środkowy rząd jest prostym |i dziesięcioma spacjami i jeszcze jednym|

Wreszcie ostatnia linia to a \i dziesięć, _a na końcu a/

Jeśli wartość jest wielocyfrowa, całkowita szerokość według wysokości karty nie powinna się zmienić. (tzn. 10 nie spowoduje poszerzenia boków karty)

Przykład króla:

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

9 Przykład

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

10 Przykład

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

Wydaj je w kolejności od najmniejszej do największej (asy są wysokie!).

To jest golf golfowy, więc wygrywa najkrótszy kod.

Miłej zabawy i miłego weekendu!


2
Czy możemy mieć 10 Przykład, aby sprawdzić, czy dolna 10 trzyma się prawej krawędzi, czy nie?
Sunny Pun

@SunnyPun dlaczego oczywiście
jacksonecac

1
Czy karty powinny być ułożone pionowo, poziomo, czy to ma znaczenie?
DLosc

Wybór graczy od lewej do prawej lub od góry do dołu.
jacksonecac

Odpowiedzi:


10

PowerShell v2 +, 120 116 114 108 bajtów

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

Konstruuje zakres 2..10i dokonuje konkatenacji tablicy za pomocą opcji char-array JQKA. Przekazuje to do pętli |%{...}. Każda iteracja, ustawiamy $zrówna odpowiedniej liczby miejsc (na podstawie tego, czy jesteśmy w karty 10lub nie), zestaw $xdo 10podkreślenia i zestaw $ydo 10przestrzeni.

Następnie rozpoczynamy nasze miejsca docelowe. Wykorzystamy wartość domyślną, Write-Outputaby wstawić nowy wiersz między elementami potoku, więc musimy tylko pobrać rzeczy do potoku. Zauważ, że w większości miejsc używamy dosłownie nowego wiersza zamiast zamykania i ponownego otwierania naszych ciągów, aby zaoszczędzić kilka bajtów.

Pierwszy to tylko $xdwie spacje, potem $ydwa ukośniki, następnie | $_$z|"rura, spacja, odpowiednia liczba spacji i inna rura. Tworzy to górę kart do linii wartości włącznie.

Mamy tutaj średnik, ponieważ następny używa tablicy. ,"|$y|"*5Konstruuje ciągu matrycą z przecinkiem operatorów, rury z przestrzeni - na wyjściu, każdy element tej tablicy otrzymuje przełamane za darmo.

Następnie "|$z$_ |oznaczenie dolnej wartości, a na końcu $xukośniki u dołu karty.

Fragment wyjściowy

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

1
To dziwny dzień, w którym wygrywa PowerShell! Dobra robota :)
Kade

@Shebang Thanks! Sub-100 jest tak blisko, ale nie jestem pewien, czy dam radę.
AdmBorkBork

[potrząsa pięścią] bijesz mnie o 3 bajty. TRZY BYTES !!
Gabriel Benamy,

6

Python, 161 160 156 149 bajtów

Jeden bajt zapisany przez Shebang

Przydałoby się to trochę pracy, ale oto:

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

Wyjaśnienie

Tworzymy listę wszystkich rang w kolejności użycia map(str,range(2,11). Następnie przeglądamy każdą z rang i tworzymy kartę.

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

Robimy górę karty:

o+v+"\n"

Następnie ranga idzie w lewo:

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

Używamy, .ljustponieważ 10dwa są długie, a wszystkie pozostałe są szerokie.

Następnie drukujemy 5 rzędów na środku:

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

i najniższy stopień:

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

Na koniec drukujemy spód karty:

"\\"+v+"/"

2
Holy Moly, to było szybkie
jacksonecac

Twoja liczba bajtów wydaje się wyłączona (liczę 155). Jeśli jednak utworzysz zmienną v="_"*10i zastąpisz te wystąpienia, zaoszczędzisz kolejny bajt!
Kade

5

JavaScript (ES6), 151 bajtów

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


@Emigna Dzięki, zapomniałem o tym również w mojej innej odpowiedzi.
Neil

4

Perl, 128 117 111 bajtów

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

6 dosłownych znaków nowej linii oszczędza 1 bajt. Nie można tego uruchomić bezpośrednio z wiersza poleceń ze względu na pojedyncze cudzysłowy w wierszach 2 i 4 , aby zaoszczędzić 1 bajt bez konieczności ucieczki przed odwrotnym ukośnikiem.

Edycja: Ace umieszczam na początku, ale ma być na końcu. Nie zmienia to liczby bajtów.

Edytuj 2: -11 bajtów: Pozbyłem się niepotrzebnych instrukcji i dodałem kolejną dosłowną linię. Wszystko jest teraz wyprowadzane przez pojedynczy printf.

Edytuj 3: -5 bajtów dzięki @Ton Hospel. Ale z jakiegoś powodu mam w domu 111 bajtów zamiast 112 w porównaniu do pracy, więc idę z liczbą bajtów, którą podaje mój komputer domowy.


Nie musisz cytować literałów, które są prawidłowymi nazwami symboli, więc _ x10zamiast "_"x10. Również qwprawie nigdy nie jest użyteczny. w golfa. J,Q,K,AZamiast tego użyj bez cudzysłowu (nawet pomijając ())
Ton Hospel

Gdy Can't locate object method "_" via package "x10" (perhaps you forgot to load "x10"?) at shuffle.pl line 1.
usuwam

1
Trochę bardziej golfa (zastąp \nprawdziwą printf' %2$s\n/%3$10s\\n| %-9s|\n'.'|%3$10s|\n'x5 .'|%1$9s |\n\%s/\n',$_,"_"x10for 2..10,J,Q,K,A
nową

4

PHP, 233 bajtów

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

1
Twój ostatni ifmożna zastąpić $k>9&&$c[29]=$c[113]=0&$c[112]=1;, aby zaoszczędzić kilka bajtów. Ponadto Notepad ++ mówi, że twój kod ma w rzeczywistości 241 bajtów. Wiem, że 1 z tych bajtów pochodzi z nowej linii. Ale druga sprawa jest dla mnie tajemnicą.
Ismael Miguel

3

///, 182 180 bajtów

/+/_____//*/# |
&//&/@@@@@|# //%/ |
\\\\++\\\/
//$/ ++
\\\/!\\\\
| //#/       //!/#   //@/|!|
/$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%

Wypróbuj online!

-2 bajty dzięki m-chrzan


Możesz zapisać dwa bajty, +zastępując tylko 5 _s, a następnie mając dwa +s tam, gdzie masz +teraz pojedyncze s.
m-chrzan

3

Python 3.5, 110 bajtów

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

Wydruki

  • Dwie górne linie, ' %s\n/%%11s\n'%u%'\\'gdzie ujest'_'*10
  • 7 środkowych wierszy '| %-2s %2s |\n', z których każdy ma dwa sloty formatowania ciągów. Pierwszy i ostatni są wypełnione wartością karty, a reszta spacjami bez efektu
  • Dolna linia '\% s /'% u

Nowe funkcje rozpakowywania w Pythonie 3.5 są używane w dwóch miejscach. Lista etykiet [*range(2,11),*'JQKA']rozpakowuje cyfry i litery na jedną listę. Krotka (c,*' '*12,c)rozpakowuje dwanaście wejść do środka.


2

Scala, 161 bajtów

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

2

Partia, 236 bajtów

@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 \__________/

Próbowałem grać w golfa na trzy różne sposoby, ale za każdym razem otrzymywałem tę samą liczbę bajtów ...


2

05AB1E , 71 70 68 66 65 64 bajtów

Wykorzystuje kodowanie CP-1252 .

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

Nieznacznie zmodyfikowany link, ponieważ nie działa z ÿbankomatem TIO.

Wypróbuj online!

Wyjaśnienie

TL¦"JQKA"S« przesuwa listę [2,3,4,5,6,7,8,9,10,J,Q,K,A]

Następnie zapętlamy każdą wartość karty za pomocą v

ð'_Tשðkonstruuje " __________ "
ðT×…/ÿ\konstruuje "/ \"
9yg-ð×y"| ÿÿ|"Âkonstruuje 2 wiersze z wartościami kart (drugi wiersz jest pierwszym odwróconym)
ðT×…|ÿ|5×konstruuje 5 wierszy formularza"| |"

Wtedy my

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

®…\ÿ/ konstruuje dolny rząd

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

2

V , 87 bajtów

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

Wypróbuj online!

Ponieważ zawiera on niektóre elementy niedrukowalne, oto zrzut zrzutu:

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.

2

PHP, 135 131 158 134 bajtów

Mam nadzieję, że znajdę sposób, aby nieco to skrócić.

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

Korzysta się z printfpowtarzania wielu znaków i ładnego formatowania wszystkiego.


Stara wersja:

Niezupełnie piękna, ale działa!

$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/
";

Dzięki Jörgowi Hülsermannowi za wykrycie błędu i pozwolenie na użycie części jego kodu, co zmniejszyło go o 4 bajty! I za znalezienie fatalnego błędu.


10 wygląda dziwnie. Uważam, że musisz wykonać dodatkową pracę
Jörg Hülsermann

@ JörgHülsermann Masz rację. 10Jest na podsłuchu. Czy mogę używać twojej tablicy? Zastosowanie [2,3,4,5,6,7,8,9,10,J,Q,K,A]zamiast tego podziału oszczędza mi 4 bajty. Jeśli nie autoryzujesz, zrozumiem.
Ismael Miguel

Weź to. W PHP masz lepszy sposób, a ja obsługuję wszystko, czego potrzebujesz.
Jörg Hülsermann

@ JörgHülsermann Dziękuję. Patrzę na twoją odpowiedź i znajduję miejsca, w których można się ogolić.
Ismael Miguel

Zamiast $C$S $C".($P=substr($S,$C>9))."obsługiwać spacje o wartości 10 i zamiast tego $S$Cpotrzebujesz$P$C
Jörg Hülsermann

1

Rubin, 115 bajtów

Dość proste użycie printf.

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

1

Rakieta 327 bajtów

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

Nie golfowany:

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

Testowanie:

(main)

Wynik:

 __________ 
/          \
| 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 |
\__________/

1

Java 7, 287 bajtów

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

Ok, to jest brzydkie i niezbyt wydajne, ale działa .. To 10jako specjalny przypadek ze spacją przed górą i potem w dolnej pozycji naprawdę pieprzy się ze wszystkimi ..

Kod niepoznany i testowy:

Wypróbuj tutaj.

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

Wynik:

 __________ 
/          \
| 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 |
\__________/

1

R, 175 bajtów

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="")}

Rywalizująca odpowiedź w R tym razem na wyzwanie ascii-art i zdecydowanie powinna być możliwa do gry w golfa.

Wypróbuj na skrzypcach R.

Nie golfił i wyjaśnił

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
}

Najciekawszym aspektem, w którym zapisanych jest kilka bajtów, to przypisanie trzeciego rzędu:

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

Ponieważ 8między postacią oznaczającą wartość karty a końcową spacją są w sumie spacje |(z wyjątkiem 10), możemy powtarzać 9spacje i odejmować liczbę znaków na aktualnie drukowanej karcie.

Przechowując każdy znak w 3rdrzędzie jako własny element w wektorze ciągów r, możemy odwrócić wektor i ponownie użyć go w 9thwierszu.


1

C #, 385 bajtów

Moje pierwsze wyzwanie ASCII Art - było fajnie!

Gra w golfa:

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

Nie golfowany:

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

1

Właściwie 91 bajtów

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

Wypróbuj online!

Wyjaśnienie

Część 1: Konfigurowanie listy wartości nominalnych:

"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

Część 2: tworzenie kart (nowy wiersz zastąpiono ze względu \nna czytelność):

;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
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.