Resolva uma decomposição numérica

A nova função Groupings oferece um método poderoso de possíveis resultados da combinação de certos objetos e operações. Em especial, é muito útil para resolver alguns jogos numéricos tais como aqueles do programa de TV francês "Des chiffres et des lettres", ou algumas questões aritméticas populares recetemente postadas em redes sociais.

Determine como obter 10 usando os números inteiros 1, 1, 5, 8 e as quatro operações aritméticas básicas.

In[1]:=

ints = {1, 1, 5, 8}; ops = {Plus, Subtract, Times, Divide};

Existem 3.840 combinações possíveis desses quatro números inteiros e as operações binárias dadas.

In[2]:=

Length[combs = Groupings[Permutations[ints], ops -> 2, HoldForm]]

Out[2]=

Abaixo, uma amostra dessas combinações.

In[3]:=

RandomSample[combs, 10]

Out[3]=

Calcule o resultado de cada combinação, muitas delas envolvendo a divisão por 0.

In[4]:=

results = Quiet@ReleaseHold[combs];

Esta é a única combinação que resulta em 10.

In[5]:=

Cases[Thread[Equal[combs, results]], _ == 10]

Out[5]=

O resultado mais frequente é 13, gerado em 240 formas diferentes.

In[6]:=

TakeLargestBy[Tally[results], Last, 5]

Out[6]=