Quem ganhou um jogo de dados de bar?

24

Desafio

Bar Dice é um jogo simples jogado em uma barra com dados (daí o nome). Você joga 5 dados de seis lados e tenta fazer a melhor mão.

A pontuação é baseada na acumulação do maior número de dados com os mesmos dígitos. Cada mão deve incluir pelo menos um único "ás", ou um, para ser uma mão válida; Ases atuam como "wilds" e podem ser emparelhados com qualquer outro dígito. A força da mão de um jogador depende primeiro do número de dígitos e depois do valor desses dígitos. Como exemplo, uma mão (contando wilds) com quatro 3's é melhor que uma mão com três 5's, mas não melhor que uma mão com cinco 2's.
Retirado do artigo da Wikipedia

Isso significa que a mão mais alta é composta inteiramente de 6 e 1, e a mais baixa é qualquer mão sem 1.

Seu desafio é pegar duas mãos e retornar qual jogador venceu ou se empatou.

Entrada

Duas listas não ordenadas de 5 números, variando de 1 a 6. Cada lista representa a mão de um jogador. O formato de entrada é flexível.

Saída

Quaisquer três valores estáticos distintos, mas consistentes (intervalos não são permitidos), significando se o jogador 1 ou o jogador 2 venceu ou se foi um empate. Indique na sua resposta quais valores você está usando para quê. Por exemplo, você pode retornar -1se P1 vencer, 0se for um empate e 1se P2 vencer.

Regras

  • A entrada sempre será válida
  • Somente a melhor pontuação possível de cada mão é usada para determinar um vencedor. Não há desempate. Por exemplo, [1,4,4,3,3]empatará em [1,4,4,2,2]vez de usar os 3 e 2 como desempate.
  • A saída deve ser um dos 3 valores escolhidos sempre. Simplesmente mapear todos os números negativos para P1 Winsnão é permitido e deve ser normalizado.
  • Mãos inválidas, ou seja, aquelas sem 1, perdem para todas as mãos válidas, mas empatam com todas as outras mãos inválidas. Por exemplo, [2,2,2,2,2]laços [3,3,3,3,3].
  • Uma mão de [1,1,1,1,1]contagens como um conjunto válido de 6s para fins de classificação.
  • Isso é e a menor contagem de bytes vence.

Exemplos

#You guys are pretty good at finding edge-cases that break things. Good job!
Input:  [2,1,5,6,6], [6,2,6,6,6]
Output: P1 Wins

Input:  [2,4,5,6,6], [6,2,6,6,6]
Output: Tie

Input:  [1,2,3,4,5], [5,4,3,2,1]
Output: Tie

Input:  [1,5,5,3,2], [5,4,1,6,6]
Output: P2 Wins

Input:  [3,2,2,2,1], [4,1,3,6,6]
Output: P1 Wins

Input:  [1,1,1,1,1], [6,1,1,6,6]
Output: Tie

Input:  [1,3,3,4,4], [1,2,2,5,5]
Output: P2 Wins

Input:  [1,3,3,5,5], [1,3,3,2,2]
Output: P1 Wins

Input:  [1,3,3,3,4], [1,1,3,3,3]
Output: P2 Wins

Input:  [2,2,2,6,1], [5,3,3,1,2]
Output: P1 Wins

Input:  [5,5,5,1,5], [1,1,1,1,1]
Output: P2 Wins

Input:  [1,1,1,1,1], [1,1,5,1,1]
Output: P1 Wins
Veskah
fonte

Respostas:

10

Geléia , 17 14 bytes

ċⱮ6Ḣ©+$®aĖUṀ)M

Experimente online!

Um link monádico que pega uma lista das duas listas como argumento e retorna [1]para o jogador 1 vence, [2]para o jogador 2 vence e [1, 2]para um empate. O link TIO arruma isso para exibição.

Obrigado a @ JonathanAllan por salvar 3 bytes!

Explicação

            )   | For each input list (e.g. of one list 1,1,3,3,4)
ċⱮ6             | - Count each of 1..6 (e.g. 2,0,2,1,0,0)
      $         | - Following as a monad:
   Ḣ            |   - Head (number of 1s)
    ©︎           |   - Copy to register
     +          |   - Add (e.g. 2,4,3,0,0)
       ®a       | - Register logical and with this
         Ė      | - Enumerate (e.g. [1,2],[2,4],[3,3],[4,0],[5,0])
          U     | - Reverse each (e.g. [2,1],[4,2],[3,3],[0,4],[0,5])
            Ṁ   | - Max (e.g. 4,2)
              M | Index/indices of maximal score
Nick Kennedy
fonte
11
Você pode substituir IṠpor Me exibir uma lista dos vencedores.
Jonathan Allan
@JonathanAllan Good point! Obrigado
Nick Kennedy
11
15 bytes usando o registro.
Jonathan Allan
11
Acho que agora também pode ser redundante, uma vez que as listas são iguais às inteiras.
Jonathan Allan
11
Essa é uma abordagem adorável. Bem feito.
Jonah
9

R , 115 96 bytes

-6 bytes graças a Giuseppe.

-6 bytes graças a Aaron Hayman.

-2 bytes graças a Arnauld, seguindo o formato de saída em sua resposta JavaScript .

function(i,j)(f(i)-f(j))/0
f=function(x,s=tabulate(x,6),l=s[1]+s[-1]*!!s[1])max(l)*6+order(l)[5]

Experimente online!

Retorna Infpara P1, NaNpara um empate, -Infpara P2.

Usa a função auxiliar fque calcula uma pontuação para cada mão. A pontuação é definida da seguinte forma: dseja o dígito que mais se repete e no número de vezes que se repete. A pontuação é 6*n+dse houver pelo menos um ás e 0se não houver ases. Só precisamos encontrar o jogador com a maior pontuação.

Ungolfed:

f = function(x) {
  s = tabulate(x, 6)         # number of occurrences of each integer
  l = s[1] + s[-1] * !!s[1]  # add the number of wild aces to all values; set to 0 if s[1] == 0
  max(l) * 6 +               # highest number of repetitions (apart from aces)
    order(l)[5]              # most repeated integer (take largest in case of tie)
}
function(i, j){
  sign(f(i) - f(j))
}
Robin Ryder
fonte
Você pode usar em order(l)[5]vez de max.col(t(l),"l")obter uma solução de 96 bytes: Experimente online!
Aaron Hayman
@AaronHayman Muito bom, obrigado!
Robin Ryder
6

JavaScript (ES6),  97  90 bytes

Toma entrada como (a)(b). Retorna +Infinitypara P1, -InfinityP2 ou NaNempate.

a=>b=>((g=(x,m)=>x>6?m*/1/.test(a):g(-~x,a.map(k=>n+=k<2|k==x,n=x/6)|m>n?m:n))()-g(a=b))/0

Experimente online!

Comentado

a => b => (                 // a[] = dice of P1; b[] = dice of P2
  ( g = (                   // g is a recursive function taking:
      x,                    //   x = dice value to test; initially, it is either undefined
                            //       or set to a non-numeric value
      m                     //   m = maximum score so far, initially undefined
    ) =>                    //
      x > 6 ?               // if x is greater than 6:
        m * /1/.test(a)     //   return m, or 0 if a[] does not contain any 1 
      :                     // else:
        g(                  //   do a recursive call:
          -~x,              //     increment x (or set it to 1 if it's non-numeric)
          a.map(k =>        //     for each dice value k in a[]:
            n +=            //       add 1 to n if:
              k < 2 |       //         k is equal to 1
              k == x,       //         or k is equal to x
            n = x / 6       //       start with n = x / 6
          ) |               //     end of map()
          m > n ?           //     if m is defined and greater than n:
            m               //       pass m unchanged
          :                 //     else:
            n               //       update m to n
        )                   //   end of recursive call
  )()                       // first call to g, using a[]
  - g(a = b)                // subtract the result of a 2nd call, using b[]
) / 0                       // divide by 0 to force one of the 3 consistent output values
Arnauld
fonte
6

05AB1E , 16 15 bytes

-1 byte graças a JonathanAllan

εWΘ*6L¢ć+°ƶà}ZQ

Experimente online!

Retorna [1, 0] para vitórias P1, [1, 1] para empates, [0, 1] para vitórias P2.

Em vez de usar a ordem lexicográfica em duas tuplas (contagem de dados, valor dos dados), isso calcula a pontuação como 10 ** contagem de dados * valor dos dados. Mãos sem pontuação 1.

ε           }           # map each hand to its computed score
 WΘ                     # minimum == 1 (1 if the hand contains a 1, 0 otherwise)
   *                    # multiply (sets hands without 1 to [0, 0, 0, 0, 0])
    6L                  # range [1..6]
      ¢                 # count occurences of each in the hand
       ć                # head extract (stack is now [2-count, ..., 6-count], 1-count)
        +               # add the 1-count to all the other counts
         °              # 10**x
          ƶ             # multiply each element by its 1-based index
           à            # take the maximum

Z                       # maximum
 Q                      # equality test (vectorizes)
Grimmy
fonte
11
Ohhh .. eu gosto do ć+(agora que eu vejo isso, eu não posso acreditar que não tinha pensado nisso ..)! Isso é muito melhor do que o que eu estava tentando .. Eu tive uma idéia semelhante °. :) Exceto que eu já tinha 20 bytes e ainda tinha que corrigir um problema no caso de teste [[1,1,1,1,1],] [6,1,1,6,6]].. Então, obrigado por me poupar tempo para que eu possa colocar minha tentativa na lixeira ..; p
Kevin Cruijssen
11
@KevinCruijssen Sim, é incrível como ć+funciona bem . Minha idéia inicial começou com æʒW}ʒ1KË, mas isso foi morto pelo [1,1,1,1,1]problema.
Grimmy 06/06
11
Sim, minha abordagem foi ao longo das linhas de ε1¢©Āy{γéθ¬sg®+°P}`.S, mas a [1,1,1,1,1]ferrou tudo também. A sua resposta inteira tem uma boa sinergia com o WΘ*, 6L¢, ć+, e °ƶ. Especialmente os builtins Wćƶrealmente mostram sua força aqui.
Kevin Cruijssen 06/06
Wnão é realmente necessário, 6L¢¬Ā*é o mesmo número de bytes que WΘ*6L¢.
Grimmy 06/06
Hmm, bom ponto. :) Pensei Wsem estourar e depois *mostrei sua força, mas ¬sem estourar e então *é basicamente o mesmo. O fato de não aparecer é a força que eu estava implicando, economizando um byte. Mas é de fato principalmente ćƶ.
Kevin Cruijssen 06/06
6

Python 2 , 85 81 80 bytes

lambda p:cmp(*[max((h.count(i)+h.count(i>1),i)*(1in h)for i in[6]+h)for h in p])

Experimente online!

Retorna 1para P1, 0empate e -1P2.

-1 byte, graças ao squid

TFeld
fonte
11
Espaço em branco entre 1e inpode ir
Reinstate Monica
@squid Obrigado, :)
TFeld
4

Perl 6 , 60 49 bytes

&[cmp]o*.map:{.{1}&&max (.{2..6}X+.{1})Z ^5}o&bag

Experimente online!

Retornos More, Same, Lesspara P1 Wins, Tie, P2 Wins.

Explicação

       *.map:  # Map input lists
                                             &bag  # Convert to Bag
             {                             }o  # Pass to block
              .{1}&&  # Return 0 if no 1s
                    max  # Maximum of
                         .{2..6}  # number of 2s,3s,4s,5s,6s
                                X+.{1}  # plus number of 1s
                        (             )Z     # zipped with
                                         ^5  # secondary key 0,1,2,3,4
&[cmp]o  # Compare mapped values
Nwellnhof
fonte
4

Consulta T-SQL, 148 bytes

Usando variável de tabela como entrada

p: jogador

v: valor para rolo

DECLARE @ table(p int,v int)
INSERT @ values(1,5),(1,5),(1,5),(1,5),(1,5)
INSERT @ values(2,4),(2,3),(2,3),(2,1),(2,4)

SELECT sign(min(u)+max(u))FROM(SELECT(p*2-3)*(s+sum(sign(s)-1/v))*(s/5*5+v+30)u
FROM(SELECT*,sum(1/v)over(partition by p)s FROM @)c GROUP BY v,s,p)x

Experimente online

Player 1 wins returns -1
Tie returns 0 
Player 2 wins returns 1
t-clausen.dk
fonte
2

Geléia , 21 bytes

esmagado antes mesmo de eu postá-lo por Nick Kennedy :)

’-oÆṃṀ$$Ạ?fÆṃ$L;$o5)M

Um link monádico que aceita uma lista de jogadores que gera uma lista de vencedores (indexados 1).

Então P1 é [1], P2 é [2]e um empate é [1,2].

Experimente online!

Jonathan Allan
fonte
2

PowerShell , 112 126 123 121 bytes

Toma entrada como (a)(b). Retorna -1para vitória P1, 1P2 ou 0empate.

$args|%{$d=$($_-ne1|group|sort c*,n*|%{$m=$_};(7*(($o=($_-eq1).Count)+$m.Count)+$m.Name+6*!$m)[!$o])-$d}
[math]::Sign($d)

Experimente online!

Caso de teste @( @(1,1,5,1,1), @(1,1,1,1,1), 1)adicionado.

Desenrolado:

$args|%{
    $score=$(                                            # powershell creates a new scope inside expression $(...)
        $_-ne1|group|sort count,name|%{$max=$_}          # $max is an element with the widest group and the maximum digit except 1
        $ones=($_-eq1).Count                             # number of 1s in a player's hand
        $scoreRaw=7*($ones+$max.Count)+$max.Name+6*!$max # where $max.Name is digit of the widest group
        $scoreRaw[!$ones]                                # output $scoreRaw if the array contains 1, otherwise output $null 
    )                                                    # powershell deletes all variables created inside the scope on exit
    $diff=$score-$diff
}
[math]::Sign($diff)                                     # output the score difference
confuso
fonte
2

Wolfram Language (Mathematica) , 78 75 74 bytes

-1 byte por Greg Martin

Order@@(#~FreeQ~1||Last@Sort[Reverse/@Tally@Flatten[#/. 1->Range@6]]&)/@#&

Experimente online!

Produz -1 quando o jogador 1 vence, 1 quando o jogador 2 vence e 0 para um empate.

                                    Helper function to score a list:
FreeQ[#,1] ||                       If there are 0 1s, score is True
Last@Sort[                          Otherwise, take the largest element of
    Reverse/@Tally@                 the {frequency, number} pairs in the flat list
       Flatten[ #/. 1->Range@6]     where each 1 is replaced by {1,2,3,4,5,6}.
]&                              e.g. {1,3,3,5,5} -> {1,2,3,4,5,6,3,3,5,5} -> {3,5}

Order @@ (...) /@ #&                Apply this function to both lists,
                                    then find the ordering of the result.
lirtosiast
fonte
Você pode salvar um byte, substituindo FreeQ[#,1]por #~FreeQ~1.
Greg Martin
2

Java 8, 244 240 236 215 199 bytes

a->b->{int c[][]=new int[2][7],m[]=new int[2],p,i=5;for(;i-->0;c[1][b[i]]++)c[0][a[i]]++;for(i=14;i-->4;)m[p=i%2]=Math.max(m[p],c[p][1]>0?i/2+9*(c[p][i/2]+c[p][1]):0);return Long.compare(m[0],m[1]);}

-4 bytes graças a alguém .
-21 bytes graças a @Neil .
-16 bytes graças a @ceilingcat .

Retorna 1se P1 vencer; -1se P2 vencer; 0se é um empate.

Experimente online.

Explicação:

a->b->{                        // Method with 2 integer-array parameters & integer return
  int c[][]=new int[2][7],     //  Create a count-array for each value of both players,
                               //  initially filled with 0s
      m[]=new int[2],          //  The maximum per player, initially 0
      p,                       //  Temp-value for the player
  i=5;for(;i-->0;              //  Loop `i` in the range (5, 0]:
    c[1]                       //   For player 2:
        [b[i]                  //    Get the value of the `i`'th die,
             ]++)              //    and increase that score-count by 1
    c[0][a[i]]++;              //   Do the same for player 1
  for(i=14;i-->4;)             //  Then loop `i` in the range (14, 4]:
    m[p=i%2]=                  //   Set the score of a player to:
                               //   (even `i` = player 1; odd `i` = player 2)
      Math.max(                //    The max between:
        m[p],                  //     The current value,
                               //     And the value we calculate as follows:
        c[p][1]>0?             //     If this player rolled at least one 1:
          i/2                  //      Use the current value `i` integer-divided by 2
          +9*                  //      With 9 times the following added:
             (c[p][i/2]        //       The amount of dice for value `i//2`
              +c[p][1])        //       Add the amount of dice for value 1
        :                      //     Else (no 1s were rolled):
         0);                   //      Use 0
  return Long.compare(m[0],m[1]);}
                               //  Finally compare the maximum scores of the players,
                               //  resulting in -1 if a<b; 0 if a==b; 1 if a>b
Kevin Cruijssen
fonte
No loop for sobre p, você pode substituir ...*(c[p][1]>0?1:0)por c[p][1]>0?...:0. Não posso postar um link TIO, pois é muito longo e não quero encurtá-lo. A versão não-gasta tem parênteses desequilibrados em algum lugar por aí.
meu pronome é monicareinstate
@ alguém Ah, claro, obrigado. Eu adicionei a c[p][1]>0?verificação mais tarde como correção de bugs, mas aparentemente sem pensar muito. Obrigado pelo -4. :)
Kevin Cruijssen
Por que o *(i<2?6:i)? Você está apenas duplicando o esforço para i=6e i=1. Isso pode ser justo *i(e pare de repetir quando chegar a 2).
Neil
Além disso, 9pode haver qualquer número mágico entre 5e sobre 32, certo? Se você usar 8, em vez de (int)Math.pow(8,(...)*i)você pode usar i<<3*(...).
Neil
11
Acabei com o a->b->{int c[][]=new int[2][7],m[]=new int[2],s,p,i=5;for(;i-->0;c[1][b[i]]++)c[0][a[i]]++;for(i=7;i-->2;)for(p=2;p-->0;m[p]=s>m[p]?s:m[p])s=c[p][1]>0?i+9*(c[p][i]+(i>1?c[p][1]:0)):0;return Long.compare(m[0],m[1]);}que parece passar todos os seus casos de teste ...
Neil
1

Gelatina , 27 bytes

’o5Rṗ5¤ṢŒr$€UẎṀ1e⁸¤×µ€_/Ṡo/

Experimente online!

1 para P1, -1 para P2, 0 para empate

Explicação

’o5Rṗ5¤ṢŒr$€UẎṀ1e⁸¤×µ€_/Ṡo/  Main link
                    µ€       For each list
’                            Decrement each value (so 1s become falsy)
 o                           Vectorized logical or (this replaces previous 1s (now 0s) with the test values)
  5Rṗ5¤                      1..5 cartesian-power 5 (1,1,1,1,1; 1,1,1,1,2; 1,1,1,1,3; ...)
          $€                 For each test list
       ṢŒr                   Sort and run-length encode (gives [digit, #digit])
            U                Reverse each list (gives [#digit, digit])
             Ẏ               Tighten by one (gives a list containing each possible hand for each possible wildcard)
              Ṁ              Take the maximum
               1e⁸¤×         Multiply the list values by (whether or not the original contained a 1) - becomes [0, 0] if not
                      _/Ṡ    Take the sign of the difference between the #digits and the digits
                         o/  If the number of digits differs, then 1/-1 is returned; otherwise, check the value of the digit (could still be 0)
HyperNeutrino
fonte
1

Marreta 0.4 , 27 bytes

⢱⢙⢂⠠⡾⢃⠐⢈⠸⣞⠴⠻⠎⡥⡳⡐⢒⠘⢛⣩⡓⣮⡕⡠⣢⣡⠿

Descomprime nesta função da Wolfram Language:

Order @@ (FreeQ[#1, 1] || Last[Sort[Reverse[Tally[Flatten[#1 /. 1 -> Range[6]]], 2]]] & ) /@ #1 & 

que acaba sendo exatamente o mesmo que minha resposta do Mathematica .

lirtosiast
fonte
1

Carvão , 48 45 bytes

UMθ⮌E⁷№ι∨λ¹UMθ׬¬⊟ι⁺⊟ιιUMθ⟦⌈ι±⌕ι⌈ι⟧I⁻⌕θ⌈θ⌕θ⌊θ

Experimente online! Link é a versão detalhada do código. Recebe entrada como uma matriz de matrizes e saídas -1se o jogador 1 vencer, 0por empate e 1se o jogador 2 vencer. Explicação:

UMθ⮌E⁷№ι∨λ¹

Substitua cada mão pela contagem de quantas vezes os valores 6..1aparecem na mão. A lista é revertida porque a) facilita encontrar o valor mais alto com a contagem mais alta eb) facilita a remoção da contagem de 1s. A contagem de 1s é duplicada porque precisa ser removida duas vezes, uma vez para verificar se é diferente de zero e uma vez para adicioná-lo às outras contagens.

UMθ׬¬⊟ι⁺⊟ιι

Adicione a contagem de 1s às contagens de 6..2, mas configure todas as contagens para zero se a contagem de 1s for zero.

UMθ⟦⌈ι±⌕ι⌈ι⟧

Para cada mão, encontre a contagem mais alta e o valor mais alto com essa contagem. (Na verdade, encontramos valor menos, 6pois é mais golfista.)

I⁻⌕θ⌈θ⌕θ⌊θ

Determine qual mão ganhou subtraindo as posições das mãos vencedoras e perdedoras. (Se as mãos estão empatadas, a primeira mão ganha e perde, e o resultado é 0o desejado.)

Neil
fonte
1

C (gcc) / 32 bits, 117 bytes

t;m;s(int*r){int c[6]={};for(m=0;t=*r++;m=t>m?t:m)c[--t]+=5,t=t?c[t]+t:5;t=*c?*c+m:0;}f(a,b){t=s(a)-s(b);t=(t>0)-!t;}

Experimente online!

Toma duas matrizes inteiras terminadas em zero. Retornos 1, 0, -1para P1 Wins, P2 Wins, Tie.

Nwellnhof
fonte
11
@Veskah OK, fixo.
nwellnhof
1

J , 47 44 bytes

*@-&([:({.([:>./#\@]+9^*@[*+)}.)1#.i.@6=/<:)

Experimente online!

Inspirado na ideia de Nick Kennedy.

destroçado

*@-&([: ({. ([: >./ #\@] + 9 ^ *@[ * +) }.) 1 #. i.@6 =/ <:)
Jonah
fonte
1

Perl 5 -MList::Util=max -pl , 80 bytes

sub t{$t=pop;$_=max map$_ x$t=~s/$_//g,2..6;/./;$t&&$_.$t*($&||6)}$_=t($_)<=>t<>

Experimente online!

Entrada:

Cada jogador em uma linha separada, sem espaços

Saída:

1 A linha um vence

0 Gravata

-1 Linha dois vitórias

Xcali
fonte
11
Alterado com base no seu esclarecimento das regras do jogo
Xcali