Код Гольф: Бриллиантовый Блэкджек
Задача
Самый короткий код по количеству символов, чтобы вывести из бланка наилучшего блэкджека из списка указанных числовых карт.
Ввод представляет собой список чисел от 1 до 10 (включительно), разделенных пробелом.
Вывод будет лучшей блэкджек-ручкой, сформированной из этого списка карт - ближайшей доступной комбо, чтобы достичь 21 суммой всех значений карты, не превзойдя ее. Карты можно удалить, но не добавить.
Если требуется удаление двух или более карт в пользу одной карты для достижения того же результата (удаление 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:
__________ __________ __________ __________
| /\ /\ || || || |
| \/ /\ \/ || /\ /\ || /\ || /\ |
| /\ \/ /\ || \/ \/ || \/ || \/ |
| \/ \/ || /\ || || /\ |
| /\ /\ || \/ || || \/ |
| \/ /\ \/ || /\ /\ || /\ || /\ |
| /\ \/ /\ || \/ \/ || \/ || \/ |
|_\/____\/_||__________||__________||__________|
Количество кодов включает ввод/вывод (т.е. полную программу).
Ответы
Ответ 1
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'@'*'[email protected]@[email protected]@[email protected]@[email protected]``[email protected]'8'?'*]']]'+10r*[email protected]/3&=}%[x]++' _'1/7r&!=*}%'|':x;n}%
$ echo 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'@'*'[email protected]@[email protected]@[email protected]@[email protected]``[email protected]'8'?'*']]'++++10r*[email protected]/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
Ответ 2
J, 303 символа
4(1!:2)~,&(10{a.)"1>,.&.>/4 :'''/\/\''(x(<@:+)"1]4 2$1|.4#0 1)}y'&.>/@((<>1 7 1#1&|[email protected](2 10&#)&.>' _';'| ';'|_'),~>)"0(>({~[:(i.[:>./[*22&>)+/@>)(#:@[email protected](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&>)+/@>)(#:@[email protected](2&^)@#<@#"1 _])
Затем мы начинаем с пустой карты
<>1 7 1#1&|[email protected](2 10&#)&.>' _';'| ';'|_'
и слой на бриллиантах в соответствующих местах.
'/\/\'(x(<@:+)"1]4 2$1|.4#0 1)}y
В остальной части программы преобладает таблица того, какие алмазы идут туда.
Ответ 3
Python - 365 символов
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(('?'*11+'@'*8+'[email protected]@[email protected]@[email protected]@[email protected]``[email protected]????????]]')[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 2 4 8 1 8 3| python blackjack.py
__________ __________ __________ __________
| || || || |
| /\ || /\ /\ || /\ /\ || /\ |
| \/ || \/ /\ \/ || \/ /\ \/ || \/ |
| || /\ \/ /\ || /\ \/ /\ || /\ |
| || \/ /\ \/ || \/ /\ \/ || \/ |
| /\ || /\ \/ /\ || /\ \/ /\ || /\ |
| \/ || \/ \/ || \/ \/ || \/ |
|__________||__________||__________||__________|
$ echo 1 4 5 4 7 4 8| python blackjack.py
__________ __________ __________ __________ __________
| || || || || |
| || /\ /\ || /\ /\ || /\ /\ || /\ /\ |
| || \/ \/ || \/ \/ || \/ /\ \/ || \/ \/ |
| /\ || /\ || || /\ \/ /\ || |
| \/ || \/ || || \/ \/ || |
| || /\ /\ || /\ /\ || /\ /\ || /\ /\ |
| || \/ \/ || \/ \/ || \/ \/ || \/ \/ |
|__________||__________||__________||__________||__________|
369 Символы
h=map(int,raw_input().split());H=len(h);R=range;j=[]
for n in R(1<<H):c=[h[b]for b in R(H)if n&1<<b];j+=[(sum(c)<22,sum(c),len(c),sorted(c),c)]
for r in R(9):x=["| "[1>r]];print"".join("_ "[0<r<8].join(x+[" \//\__"[ord(('?'*11+'@'*8+'[email protected]@[email protected]@[email protected]@[email protected]``[email protected]????????]]')[r*10+c])*2>>i&6:][:2]for i in 0,2,4]+x)for c in max(j)[-1])
377 символов
h=map(int,raw_input().split());H=len(h);R=range;j=[]
for n in R(1<<H):c=[h[b]for b in R(H)if n&1<<b];j+=[(sum(c),len(c),sorted(c),c)]*(sum(c)<22)
T="@@@[email protected]@[email protected]@@`[email protected]`[email protected]@@[email protected][email protected][email protected][email protected]?bQbYfQb]bYfQbYf]"
for r in R(9):x=["| "[1>r]];print"".join("_ "[0<r<8].join(x+[" \//\__"[ord(('?'+T[c*8-8:])[r])*2>>i&6:][:2]for i in 0,2,4]+x)for c in max(j)[-1])
408 символов
h=map(int,raw_input().split());H=len(h);R=range;j=[]
for n in R(1<<H):c=[h[b]for b in R(H)if n&1<<b];j+=[(sum(c),len(c),sorted(c),c)]*(sum(c)<22)
T="@@@[email protected]@ @[email protected]@P` @ABDHP` @[email protected]@Qb @QbDHQb @QbQbQb @QfYbQb @QfYfYb QbQfYbQn QfYbQfYn".split();U="\x3f"
for r in R(9):s="_ "[0<r<8];x=["| "[1>r]];print"".join(s.join(x+[(" ","/\\","\/","__")[ord((U+T[c-1]+U)[r])>>i&3]for i in 0,2,4]+x)for c in sorted(j)[-1][-1])
Ответ 4
Блаженно украден из gnibbler Python solution; оказывается на три символа короче, на 362 - если ввод задан в командной строке.
sub p{(local$z=pop)?(@z=&p,map[@$_,$z],@z):[]}
for([email protected]){$t=0;$t+=$_ [email protected]$_;($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//,
'[email protected]@[email protected]@[email protected]@[email protected]``[email protected]????????]]'
)[$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' \
> >'[email protected]@[email protected]@[email protected]@[email protected]``[email protected]????????]]'
> sub p{(local$z=pop)?(@z=&p,map[@$_,$z],@z):[]}
> for([email protected]){$t=0;$t+=$_ [email protected]$_;($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
$ echo 10 5 2 9 3 | perl -an bb*
__________ __________ __________
| /\ /\ || || /\ /\ |
| \/ /\ \/ || /\ || \/ \/ |
| /\ \/ /\ || \/ || /\ /\ |
| \/ \/ || || \/ /\ \/ |
| /\ /\ || || /\ \/ /\ |
| \/ /\ \/ || /\ || \/ \/ |
| /\ \/ /\ || \/ || /\ /\ |
|_\/____\/_||__________||_\/____\/_|
Ответ 5
Lua, 895
ОК, исправьте сейчас. Может даже забить 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
__________ __________ __________
| || || |
| || /\ /\ || /\ /\ |
| || \/ \/ || \/ \/ |
| /\ || /\ || /\ |
| \/ || \/ || \/ |
| || /\ /\ || /\ /\ |
| || \/ \/ || \/ \/ |
|__________||__________||__________|
Ответ 6
Python - 298 символов
просто переименуйте script следующим образом
mv blackjack.py '[email protected]@@@@@@@[email protected]@[email protected]@[email protected]@[email protected]``[email protected]????????]].py'
Вот script
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 '[email protected]@@@@@@@[email protected]@[email protected]@[email protected]@[email protected]``[email protected]????????]].py'
__________ __________ __________ __________ __________
| || || || || |
| || /\ || /\ || /\ /\ || /\ /\ |
| || \/ || \/ || \/ \/ || \/ \/ |
| /\ || || /\ || || /\ |
| \/ || || \/ || || \/ |
| || /\ || /\ || /\ /\ || /\ /\ |
| || \/ || \/ || \/ \/ || \/ \/ |
|__________||__________||__________||__________||__________|
Ответ 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
__________ __________ __________ __________ __________
| /\ /\ || || || || |
| \/ /\ \/ || /\ /\ || /\ /\ || || |
| /\ \/ /\ || \/ \/ || \/ \/ || || |
| \/ \/ || /\ || || /\ || /\ |
| /\ /\ || \/ || || \/ || \/ |
| \/ /\ \/ || /\ /\ || /\ /\ || || |
| /\ \/ /\ || \/ \/ || \/ \/ || || |
|_\/____\/_||__________||__________||__________||__________|
Ответ 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
Ответ 9
Perl, 410 char
Не знаю, насколько больше возможно улучшение, но, возможно, это будет проще переносить в GolfScript, чем алгоритм gnibbler:
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<<(@[email protected])){$s=$n=0;$i&1<<$n++&&($s+=21*$_+1)[email protected];
$q=$s,$N=$i if$s<462&&$q<$s}
@q=($/)x9;for$p(grep$N&1<<$_,[email protected]){
s/$/| |/[email protected];
$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/ /_/;[email protected]
