Wolfram Language

Álgebra e teoria dos números

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]:=
Click for copyable input
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]:=
Click for copyable input
Length[combs = Groupings[Permutations[ints], ops -> 2, HoldForm]]
Out[2]=

Abaixo, uma amostra dessas combinações.

In[3]:=
Click for copyable input
RandomSample[combs, 10]
Out[3]=

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

In[4]:=
Click for copyable input
results = Quiet@ReleaseHold[combs];

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

In[5]:=
Click for copyable input
Cases[Thread[Equal[combs, results]], _ == 10]
Out[5]=

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

In[6]:=
Click for copyable input
TakeLargestBy[Tally[results], Last, 5]
Out[6]=

Exemplos Relacionados

de en es fr ja ko ru zh