language-agnostic - コード ゴルフ: ダイヤモンド ブラックジャック

Question

チャレンジ

与えられた数字カードのリストから最良のケースのブラックジャック ハンドを出力するための、文字数による最短コード。

入力は、スペースで区切られた 1 ～ 10 (両端を含む) の数字のリストです。

出力は、そのカードのリストから形成された最高のブラックジャック ハンドになります。それを超えることなく、すべてのカードの値の合計が 21 に達する最も近い利用可能なコンボです。カードは削除できますが、追加はできません。

同じ結果を達成するために 1 枚のカードを優先して 2 枚以上のカードを削除する場合 (5 または 4,1 を削除して 21 を得る)、最小のカードを削除する必要があります。同量のカードを取り除く場合 (1,4 または 3,2 を取り除く)、最小のうち最小のグループが取り除かれます (前の例では、1,4 がmin(min(3,2), min(1,4))そのペアに属するものとして取り除かれます)。カードが重複している場合は、最初の遭遇を削除する必要があります。

出力はダイヤモンド カードとして形成され、入力順序は保持されます。

__________ __________
| | || | |
| | || /\ |
| | || \/ |
| | /\ || | |
| | \/ || | |
| | || /\ |
| | || \/ |
|__________||__________|
 __________ __________
| | || | |
| | /\ || /\ /\ |
| | \/ || \/ \/ |
| | /\ || | |
| | \/ || | |
| | /\ || /\ /\ |
| | \/ || \/ \/ |
|__________||__________|
 __________ __________
| | || | |
| | /\ /\ || /\ /\ |
| | \/ \/ || \/ \/ |
| | /\ || /\ /\ |
| | \/ || \/ \/ |
| | /\ /\ || /\ /\ |
| | \/ \/ || \/ \/ |
|__________||__________|
 __________ __________
| | || | |
| | /\ /\ || /\ /\ |
| | \/ /\ \/ || \/ /\ \/ |
| | /\ \/ /\ || /\ \/ /\ |
| | \/ \/ || \/ /\ \/ |
| | /\ /\ || /\ \/ /\ |
| | \/ \/ || \/ \/ |
|__________||__________|
 __________ __________
| | /\ /\ || /\ /\ |
| | \/ \/ || \/ /\ \/ |
| | /\ /\ || /\ \/ /\ |
| | \/ /\ \/ || \/ \/ |
| | /\ \/ /\ || /\ /\ |
| | \/ \/ || \/ /\ \/ |
| | /\ /\ || /\ \/ /\ |
|_\/____\/_||_\/____\/_|

テストケース

Input:
    1 5 7 8
Output:
     __________  __________  __________  __________ 
    |          ||          ||          ||          |
    |          || /\    /\ || /\    /\ || /\    /\ |
    |          || \/    \/ || \/ /\ \/ || \/ /\ \/ |
    |    /\    ||    /\    || /\ \/ /\ || /\ \/ /\ |
    |    \/    ||    \/    || \/    \/ || \/ /\ \/ |
    |          || /\    /\ || /\    /\ || /\ \/ /\ |
    |          || \/    \/ || \/    \/ || \/    \/ |
    |__________||__________||__________||__________|

---

Input: 
    10 3 4 2 6
Output:
     __________  __________  __________  __________ 
    | /\    /\ ||          ||          ||          |
    | \/ /\ \/ || /\       || /\       || /\    /\ |
    | /\ \/ /\ || \/       || \/       || \/    \/ |
    | \/    \/ ||    /\    ||          || /\    /\ |
    | /\    /\ ||    \/    ||          || \/    \/ |
    | \/ /\ \/ ||       /\ ||       /\ || /\    /\ |
    | /\ \/ /\ ||       \/ ||       \/ || \/    \/ |
    |_\/____\/_||__________||__________||__________|

---

Input 
    5 10 5 2 3
Output:
     __________  __________  __________  __________ 
    | /\    /\ ||          ||          ||          |
    | \/ /\ \/ || /\    /\ || /\       || /\       |
    | /\ \/ /\ || \/    \/ || \/       || \/       |
    | \/    \/ ||    /\    ||          ||    /\    |
    | /\    /\ ||    \/    ||          ||    \/    |
    | \/ /\ \/ || /\    /\ ||       /\ ||       /\ |
    | /\ \/ /\ || \/    \/ ||       \/ ||       \/ |
    |_\/____\/_||__________||__________||__________|

コード カウントには、入力/出力 (つまり、完全なプログラム) が含まれます。

Answer 1

J、303文字

4(1!:2)~,&(10{a.)"1>,.&.>/4 :'''/\/\''(x(<@:+)"1]4 2$1|.4#0 1)}y'&.>/@((<>1 7 1#1&|.@(2 10&#)&.>' _';'| ';'|_'),~>)"0(>({~[:(i.[:>./[*22&>)+/@>)(#:@i.@(2&^)@#<@#"1 _])".1!:1]3){a:,(((1$7);(a 0 _1;7),(a 0 2 _3 _1;7),((a=:,&.>/\)0 2 6 8 _3 _1;4;_5)){&.><,{(2+i.5);2 5 8),(4 5;k);<2 5;6 5;k=:,{2 8;~>:+:i.4

$ echo -n 1 5 7 8 | jconsole test.ijs
 __________ __________ __________ __________
| || || || |
| || / \ / \ || / \ / \ || / \ / \ |
| || \ / \ / || \ / / \ \ / || \ / / \ \ / |
| / \ || / \ || / \ \ / / \ || / \ \ / / \ |
| \ / || \ / || \ / \ / || \ / / \ \ / |
| || / \ / \ || / \ / \ || / \ \ / / \ |
| || \ / \ / || \ / \ / || \ / \ / |
| __________ || __________ || __________ || __________ |

$ echo -n 10 3 4 2 6 | jconsole test.ijs
 __________ __________ __________ __________
| / \ / \ || || || |
| \ / / \ \ / || / \ || / \ || / \ / \ |
| / \ \ / / \ || \ / || \ / || \ / \ / |
| \ / \ / || / \ || || / \ / \ |
| / \ / \ || \ / || || \ / \ / |
| \ / / \ \ / || / \ || / \ || / \ / \ |
| / \ \ / / \ || \ / || \ / || \ / \ / |
| _ \ / ____ \ / _ || __________ || __________ || __________ |

$ echo -n 5 10 5 2 3 | jconsole test.ijs
 __________ __________ __________ __________
| / \ / \ || || || |
| \ / / \ \ / || / \ / \ || / \ || / \ |
| / \ \ / / \ || \ / \ / || \ / || \ / |
| \ / \ / || / \ || || / \ |
| / \ / \ || \ / || || \ / |
| \ / / \ \ / || / \ / \ || / \ || / \ |
| / \ \ / / \ || \ / \ / || \ / || \ / |
| _ \ / ____ \ / _ || __________ || __________ || __________ |

最高のハンドを見つけるコアは、実際には本当に簡単です。与えられたカードのべき集合を生成し、22未満の最も高い値を持つものを選択します。

({~[:(i.[:>./[*22&>)+/@>)(#:@i.@(2&^)@#<@#"1 _])

次に、空白のカードから始めます

<>1 7 1#1&|.@(2 10&#)&.>' _';'| ';'|_'

適切な場所でダイヤモンドを重ねます。

'/\/\'(x(<@:+)"1]4 2$1|.4#0 1)}y

プログラムの残りの部分は、ダイヤモンドがどこに行くかという表によって支配されています。

Answer 2

Golfscript - 228 文字

' ':x/{~}%:h;9,{:r;h,2\?,{:m;h,,{2\?m&},{h\=}%}%1>{:j[{+}*.22<\j,j$j]}$)\;{:c;[x]3,{4\?'  \//\__'2/[11'?'*8'@'*'bb@BBbbbbbQY@AAQQQYYbfH@H@HbffYQD@D@DQQYfb@``bbbbfQY@PPQQQQQbf'8'?'*]']]'+10r*c+=@/3&=}%[x]++' _'1/7r&!=*}%'|':x;n}%

$ エコー 10 9 8 7 6 5 | ../golfscript.rb black.gs
 __________ __________ __________
| | || || | |
| | /\ /\ || /\ /\ || /\ /\ |
| | \/ /\ \/ || \/ /\ \/ || \/ \/ |
| | /\ \/ /\ || /\ \/ /\ || /\ /\ |
| | \/ /\ \/ || \/ \/ || \/ \/ |
| | /\ \/ /\ || /\ /\ || /\ /\ |
| | \/ \/ || \/ \/ || \/ \/ |
|__________||__________||__________|

231文字

' ':x/{~}%:h,2\?,{:m;h,,{2\?m&},{h\=}%}%1>{:j[{+}*.22<\j,j$j]}$-1=:h;9,{:r;h{:c;[x]3,{4\?'  \//\__'2/11'?'*8'@'*'bb@BBbbbbbQY@AAQQQYYbfH@H@HbffYQD@D@DQQYfb@``bbbbfQY@PPQQQQQbf'8'?'*']]'++++10r*c+=@/3&=}%[x]++' _'1/7r&!=*}%'|':x;n}%

使い方

# parse input into a list 
' ':x/{~}%:h
# create the powerset
 ,2\?,{:m;h,,{2\?m&},
# map the powerset onto the cards
{h\=}%}%
# trim the empty set from the powerset
1>
# sort the hands. most preferred hand will be last
{:j[{+}*.22<\j,j$j]}$
# take the preferred hand from the end of the list
-1=:h;
# for r in 0..8
9,{:r
...more to follow

Answer 3

パール

明らかにgnibbler の Python ソリューションから盗まれました。コマンドラインで入力が与えられた場合、362 で 3 文字短くなります。

sub p{(local$z=pop)?(@z=&p,map[@$_,$z],@z):[]}
for(p@ARGV){$t=0;$t+=$_ for@$_;($s,@c)=($t,@$_)if$t>=$s&&$t<22}
for$r(0..8){$x=$r?'|':$";for$c(@c){print+join$r*($r<8)?$":'_',$x,
map(join('',((split//,'  \//\__')[ord((('?')x11,('@')x8,split//,
'bb@BBbbbbbQY@AAQQQYYbfH@H@HbffYQD@D@DQQYfb@``bbbbfQY@PPQQQQQbf????????]]'
)[$r*10+$c])*2>>$_&6..7])[0,1]),0,2,4),$x}print$/}

stdin から読み取るには、;に置き換え@ARGVて@F使用します。perl -an従来の Perl ゴルフ スコアリングを使用すると、362 とカウントされます。

そしてもちろん、gnibbler の他の Python トリックもコピーできます。

$ perl -pechomp <<'END' \ 
> >'bb@BBbbbbbQY@AAQQQYYbfH@H@HbffYQD@D@DQQYfb@``bbbbfQY@PPQQQQQbf??????????]]' 
> sub p{(local$ z=pop)?(@z=&p,map[@$_,$z],@z):[]} 
> for(p@F){$t=0;$t+=$_ for@$_ ;($s,@c)=($t,@$_)if$t>=$s&&$t<22} 
> for$r(0..8){$x=$r?'|': $";for$c(@c){print+join$r*($r<8)?$":'_',$x, 
> map(join('',((split//,' \ //\__')[ord((('?')x11,('@')x8,split//,$0) 
> [$r*10+$c])*2>>$_&6..7 ])[0,1]),0,2,4),$x}print$/} 
> END 
$ wc -c <bb*
287
$エコー 10 5 2 9 3 | perl -an bb*
 __________ __________ __________
| | /\ /\ || || /\ /\ |
| | \/ /\ \/ || /\ || \/ \/ |
| | /\ \/ /\ || \/ || /\ /\ |
| | \/ \/ || || \/ /\ \/ |
| | /\ /\ || || /\ \/ /\ |
| | \/ /\ \/ || /\ || \/ \/ |
| | /\ \/ /\ || \/ || /\ /\ |
|_\/____\/_||__________||_\/____\/_|

Answer 4

ルア、895

OK、今すぐ修正してください。エースとして 1 点を獲得することもできます。

t=table p=ipairs j=arg x={}r={}o={}b=0 function f()local e,s,n,m=0,0,{}for i,v in p(j)do s=s+v e=e+(v+0==1 and 1 or 0)n[i]=v end t.sort(n)for i,v in p(n)do if o[i]and v~=o[i]then m=v>o[i]break end end while e>0 and s<12 do s=s+10 e=e-1 end if s<=21 and s>b or(s==b and(#j>#r or(#j==#r and m)))then b=s for i=1,#r>#j and #r or #j do r[i]=j[i]o[i]=j[i]end t.sort(o)end if s>0 then for i=1,#j do t.insert(x,t.remove(j,i))f()t.insert(j,i,table.remove(x))end end end f()t={" __________ ","|          |","|__________|","|    /\\    |","| /\\       |","|       /\\ |","| /\\    /\\ |","| \\/ /\\ \\/ |","|_\\/____\\/_|"}c={"12224D223","125E226F3","125E4D6F3","127G227G3","127G4D7G3","127G7G7G3","1278HG7G3","1278H8HG3","17G78HG79","178HG78H9"}for i=1,9 do for j,x in p(r)do v=c[tonumber(x)]:sub(i,i):byte()io.write(v<64 and t[v-48]or(t[v-64]:gsub("[/\\]",{["/"]="\\",["\\"]="/"})))end io.write("\n")end

出力例:

>lua card.lua 8 9 10 7 
 __________  __________ 
| /\    /\ || /\    /\ |
| \/    \/ || \/ /\ \/ |
| /\    /\ || /\ \/ /\ |
| \/ /\ \/ || \/    \/ |
| /\ \/ /\ || /\    /\ |
| \/    \/ || \/ /\ \/ |
| /\    /\ || /\ \/ /\ |
|_\/____\/_||_\/____\/_|

>lua card.lua 1 4 5 4 7 4 8 
 __________  __________  __________  __________  __________ 
|          ||          ||          ||          ||          |
|          || /\    /\ || /\    /\ || /\    /\ || /\    /\ |
|          || \/    \/ || \/    \/ || \/ /\ \/ || \/    \/ |
|    /\    ||    /\    ||          || /\ \/ /\ ||          |
|    \/    ||    \/    ||          || \/    \/ ||          |
|          || /\    /\ || /\    /\ || /\    /\ || /\    /\ |
|          || \/    \/ || \/    \/ || \/    \/ || \/    \/ |
|__________||__________||__________||__________||__________|

>lua card.lua 1 9 5 5
 __________  __________  __________
|          ||          ||          |
|          || /\    /\ || /\    /\ |
|          || \/    \/ || \/    \/ |
|    /\    ||    /\    ||    /\    |
|    \/    ||    \/    ||    \/    |
|          || /\    /\ || /\    /\ |
|          || \/    \/ || \/    \/ |
|__________||__________||__________|

Answer 5

Python-298文字

スクリプトの名前を次のように変更するだけです

mv blackjack.py '???????????@@@@@@@@bb@BBbbbbbQY@AAQQQYYbfH@H@HbffYQD@D@DQQYfb@``bbbbfQY@PPQQQQQbf????????]].py'

これがスクリプトです

import sys
h=map(int,raw_input().split());H=len(h);R=range
for r in R(9):x=["| "[1>r]];print"".join("_ "[0<r<8].join(x+["  \//\__"[ord(sys.argv[0][r*10+c])*2>>i&6:][:2]for i in 0,2,4]+x)for c in max([[h[b]for b in R(H)if n&1<<b]for n in R(1<<H)],key=lambda c:(sum(c)<22,sum(c),len(c),sorted(c),c)))

とサンプル実行

$ echo 1 2 3 4 5 | python '???????????@@@@@@@@bb@BBbbbbbQY@AAQQQYYbfH@H@HbffYQD@D@DQQYfb@``bbbbfQY@PPQQQQQbf????????]].py'

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

Answer 6

Perl、410文字

どれだけ多くの改善が可能かはわかりませんが、おそらくこれはgnibblerのアルゴリズムよりもGolfScriptに移植する方が簡単でしょう。

sub R{for(@_){substr$q[$_],$B+$z,2,'/\\';substr$q[$_+1],$B+$z,2,'\/';
if($B==2){$B=8;R(8-$_);$B=2}}}
for$i(1..1<<(@p=@ARGV)){$s=$n=0;$i&1<<$n++&&($s+=21*$_+1)for@p;
$q=$s,$N=$i if$s<462&&$q<$s}
@q=($/)x9;for$p(grep$N&1<<$_,0..@p){
s/$/|          |/for@q;
$B=5;($P=$p[$p])&1&&R(4-($P==7));$P-8||R 5,3;$P>9&&R 6,2;
$B=2;if($P>8){R 1,3,5,7}else{R 2if$P>1;R 6if$P>3;R 4if$P>5}$z+=12}
$q[0]=~y/| / _/;$q[-1]=~y/ /_/;print@q

Answer 7

Python、632 文字

from itertools import*
o=sum;q=range;r=filter
l=map(int,raw_input().split())
s=r(lambda x:o(x)<22,chain.from_iterable(imap(combinations,repeat(l),q(len(l)+1))))
s=r(lambda x:o(x)==max(map(o,s)),s)
t=max(([(min(x),x)for x in s if len(x)==max(map(len,s))]))[1]
a=" __________ "
b="|          |"
c="| /\    /\ |";e=c[::-1]
d="| /\       |";l=d[::-1]
g="| \/       |";k=g[::-1]
i="|    /\    |";j=i[::-1]
h="| /\ \/ /\ |";f=h[::-1]
n="|_\/____\/_|"
m="|__________|"
y="aaaaaaaaaabbbbbbbbccbddcccccefbggeeeffchibibichhfejbjbjeefhcbkkcccchefblleeeeechmmmmmmmmnn"
for x in q(9):
 print''.join([globals()[y[x*10:(x+1)*10][v-1]]for v in t])

出力例:

10 5 7 4 1 1
 __________ __________ __________ __________ __________
| | /\ /\ || || || || | |
| | \/ /\ \/ || /\ /\ || /\ /\ || || | |
| | /\ \/ /\ || \/ \/ || \/ \/ || || | |
| | \/ \/ || /\ || || /\ || /\ |
| | /\ /\ || \/ || || \/ || \/ |
| | \/ /\ \/ || /\ /\ || /\ /\ || || | |
| | /\ \/ /\ || \/ \/ || \/ \/ || || | |
|_\/____\/_||__________||__________||__________||__________|

Answer 8

Haskell で最低限テストされた721文字

更新された Haskell バージョンは、おそらくすべてのケースで機能するようになりましたが、おそらくより多くのテストを行うことができます。

import Data.List --17

--shorteners

m=map --6
r=reverse --10
l=length --9
u=True --7
g=minimum --10

--printing of the cards

p=foldl1(zipWith(++)).m d --26
a=[" __________ ","|          |","| /\\    /\\ |",r(a!!2),"| /\\       |",r(a!!4),"| \\/       |",r(a!!6),"|    /\\    |",r(a!!8),"| /\\ \\/ /\\ |",r(a!!10),"|_\\/____\\/_|","|__________|"] --190
j(Just x)=x --12
d(n+1)=m(j.(flip$lookup)(zip"abcedlgkijhfnm"a).("aaaaaaaaaabbbbbbbbccbddcccccefbggeeeffchibibichhfejbjbjeefhcbkkcccchefblleeeeechmmmmmmmmnn"!!).(+n))[0,10..80] --160

-- interaction and pipeline

main=interact$unlines.p.f.m read.words --39
f x=head.filter((<22).sum).r.sortBy(o x)$x:z x --47

-- generate all possible hands (power set)

z[]=[] --7
z(x:s)=s:m(x:)(z s)++z s --25

-- sorting logic
c f a b=compare(f a)$f b --25

o x a b|l a==l b=s x a b|u=c l a b --35
s o a b|g a==g b=t o a b|u=c g a b --35
t o a b|all(`elem`b)a=c(n o)a b|u=GT --37
n t=m(j.(`elemIndex`t)) --24

---

Haskell版未完成 622文字

美容コンテストに勝てず、改善される可能性もあり、仕様に正確に従っていません（min(min(3,2), min(1,4))問題と重複フィルタリングに取り組んでいます（o関数にはより多くのケースが必要です））。不完全であるにもかかわらず、与えられたすべてのテストケースに合格します。

各行は--、改行を含む文字数でコメント ( ) されます。

import Data.List --17
p=foldl1(zipWith(++)).m d --26
r=reverse --10
a=[" __________ ","|          |","| /\\    /\\ |",r(a!!2),"| /\\       |",r(a!!4),"| \\/       |",r(a!!6),"|    /\\    |",r(a!!8),"| /\\ \\/ /\\ |",r(a!!10),"|_\\/____\\/_|","|__________|"] --190
j(Just x)=x --12
d(n+1)=m(j.(flip$lookup)(zip"abcedlgkijhfnm"a).("aaaaaaaaaabbbbbbbbccbddcccccefbggeeeffchibibichhfejbjbjeefhcbkkcccchefblleeeeechmmmmmmmmnn"!!).(+n))[0,10..80] --160
m=map --6

main=interact$unlines.p.snd.f.m read.words --43

f x=head.filter((<22).fst).m(\x->(sum x,x))$r$sortBy o$x:z x --61

c f a b=compare(f a)$f b --25
z[]=[] --7
z(x:s)=s:m(x:)(z s)++z s --25
l=length --9

o a b|l a==l b=GT|True=c l a b --31