シャッフルアップとディール!


14

金曜日だから疲れたので、さっそくやってみましょう!何も入力しませんが、標準のカードデッキにある13枚の異なる番号のカードをすべて出力する必要があります。Ace(Suit agnostic)を介して2を出力する必要があります。

各カードの上部には、スペース と10個_のスペースがあり ます。

上から2番目の行は、a /と10個のスペース 、a\

3番目の行は、カードの値を示す文字がエッジの右に2スペース(上にある場合)または左に2スペース(下にある場合)に表示されることを除いて、すべての中程度の行と同じです。

それぞれの真ん中の行はシンプルで|、10個のスペース ともう1 個のスペースです。|

最後の行はa \と10で_あり、最後に/

値が複数桁の場合、カードの全体の幅と高さは変わらないはずです。(つまり、10はカードの側面を広くしません)

キングの例:

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

9例

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

10例

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

それらを最小から最大の順に出力します(エースが高い!)。

これはコードゴルフなので、最短のコードが優先されます。

楽しい週末をお過ごしください!


2
10個の例で、下の10個が右端に貼り付いているかどうかを確認できますか?
サニーしゃれ

@SunnyPun理由はもちろん
jacksonecac

1
カードは垂直、水平に配置する必要がありますか、それとも重要ですか?
DLosc

左から右または上から下のプレイヤーの選択。
jacksonecac

回答:


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かどうか)、セット$x10アンダースコア、およびセット$y10スペース。

次に、配置を開始します。デフォルトを活用しますWrite-Outputパイプライン要素の間に改行を挿入するので、パイプラインにあるものを取得するだけです。ほとんどの場所で、文字列を閉じて再度開いて数バイトを節約するのではなく、リテラルの改行を使用していることに注意してください。

最初は$x2つのスペース、次に$y2つのスラッシュ、| $_$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        |
...

1
PowerShellが勝っているのは奇妙な日です!良い仕事:)
Kade

@Shebangありがとう!サブ100は非常に近いが、私がそれを作ることができるかどうかはわからない。
AdmBorkBork

[握りこぶし]あなたは私を3バイト倒している。3バイト!!
ガブリエルベナミー

6

Python、161 160 156 149バイト

Shebangによって保存された1バイト

これはいくつかの作業を使用できますが、ここでは次のとおりです。

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

長さが2つで、他のすべては幅が1つな.ljustので、使用します10

次に、中央の5行を印刷します。

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

最下位:

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

最後に、カードの下部を印刷します。

"\\"+v+"/"

2
Holy Molyは速かった
jacksonecac

バイトカウントがオフになっているようです(155をカウント)。ただし、変数を作成してv="_"*10それらのインスタンスを置き換えると、別のバイトが節約されます!
カーデ

5

JavaScript(ES6)、151バイト

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


@Emignaありがとう、他の回答でも忘れてしまいました。
ニール

4

Perl、128 117 111バイト

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

6つのリテラル改行は、それぞれ1バイトを節約します。 バックスラッシュをエスケープせずに1バイトを節約するために、2行目と4行目に一重引用符が含まれているため、これをコマンドラインから直接実行することはできません

編集:私はエースを最初に置きましたが、最後にあるはずです。バイト数は変わりません。

編集2:-11バイト:いくつかの不要なステートメントを取り除き、別のリテラル改行を追加しました。すべてが1つのprintfを介して出力されるようになりました。

編集3:@Ton Hospelのおかげで-5バイト。しかし、何らかの理由で、職場と比較して自宅で112バイトではなく111バイトを取得しているため、自宅のコンピューターが提供するバイトカウントを使用します。


あなたはそう、有効なシンボル名でリテラルを引用する必要はありません_ x10代わりに"_"x10。またqw、ほとんど役に立ちません。ゴルフで。J,Q,K,A代わりに引用符を付けずに使用し ます(を()
省い

アンダースコアの周りの引用符を削除すると、インタープリターエラーが発生します。Can't locate object method "_" via package "x10" (perhaps you forgot to load "x10"?) at shuffle.pl line 1. 理由は
わかり

1
もう少しゴルフ(\n実際の改行で置き換える):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
トンホスペル

4

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

1
最後のifをに置き換えると$k>9&&$c[29]=$c[113]=0&$c[112]=1;、数バイト節約できます。また、Notepad ++は、コードが実際に241バイトの長さであると言っています。これらのバイトの1つが改行からのものであることは知っています。しかし、もう1つは私には謎です。
イスマエルミゲル

3

///、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%

オンラインでお試しください!

m-chrzanのおかげで-2バイト


+わずか5 _秒の代わりに2バイトを使用することで2バイト節約できます。++現在は1。
m-chrzan

3

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)

プリント

  • 上の2つのラインであります' %s\n/%%11s\n'%u%'\\'u'_'*10
  • 中央の7行'| %-2s %2s |\n'。各行には2つの文字列フォーマットスロットがあります。最初と最後はカードの値で埋められ、残りは効果のないスペースで埋められます
  • 一番下の行 '\%s /'%u

Python 3.5の新しいアンパック機能は2つの場所で使用されます。ラベルのリストは[*range(2,11),*'JQKA']、数字と文字を1つのリストに解凍します。そして、タプルは(c,*' '*12,c)12個のスペースのエントリを中心に展開します。


2

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

2

バッチ、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 \__________/

私はこれを3つの異なる方法でゴルフしようとしましたが、毎回同じバイト数になりました...


2

05AB1E71 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行を構成する(第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

2

V、87バイト

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

オンラインでお試しください!

これには印刷できないものが含まれているので、hexdumpを次に示します。

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バイト

うまくいけば、これをもう少し短くする方法を見つけることができます。

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

おかげイェルクHülsermannバグを検出するため、私はそれによって減少彼のコードの一部を使用させるための4つのバイトを!そして致命的なバグを見つけました。


10は奇妙に見えます。私はあなたが余分な作業しなければならないと考えている
イェルクHülsermann

@JörgHülsermannそうですね。10盗聴されています。配列を使用しても大丈夫ですか?[2,3,4,5,6,7,8,9,10,J,Q,K,A]その分割の代わりに使用すると、4バイト節約できます。あなたがそれを許可しない場合、私は理解します。
イスマエルミゲル

取って PHPでより良い方法を作成し、必要なものはすべてサポートしています。
ヨルクヒュルサーマン

@JörgHülsermannありがとうございます。私はあなたの答えを見ており、いくつかのバイトを削る場所を見つけています。
イスマエルミゲル

代わりの$C$S $C".($P=substr($S,$C>9))."値が10とスペースとの代わりに、ハンドルに$S$Cあなたが必要$P$C
イェルクHülsermann

1

ルビー、115バイト

のかなり簡単な使用printf

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

1

ラケット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 |
\__________/

1

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

OK、これはくてあまり効率的ではありませんが、機能します。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 |
\__________/

1

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でのかなり競争力のある回答で、アスキーアートの挑戦であり、間違いなくゴルフができるはずです。

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
}

数バイトが保存される最も興味深い側面は、3番目の行の割り当てです。

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

8カードの価値を示すキャラクターとファイナル|(を除く10)の間に合計スペースがあるので 、繰り返すことができます9て、現在印刷されているカードの文字数を引くます。

3rd行の各文字を文字列ベクトルの独自の要素として保存することにより、ベクトルrを逆にして9th行に再利用できます。


1

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

1

実際には、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
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.