10

^{Desafio Tomado com permissão do meu Concurso de Desafio de Código da Universidade}

Depois de terminar seus estudos há alguns meses, Marie abriu uma conta bancária para começar a receber o pagamento de seu primeiro emprego na cidade. Desde então, ela vem realizando algumas transações com ele. Seu primeiro pagamento foi de US $ 1000. Com esse dinheiro, ela pagou por um jantar no qual convidou seus pais (o jantar custou US $ 150 dólares); depois, fez uma compra em um supermercado conhecido (US $ 80 dólares) e uma reserva de hotel para suas férias (US $ 200). No final do mês, ela recebeu seu pagamento novamente (1040 dólares, um pouco mais que o mês anterior) e no dia seguinte ela gastou outros 70 dólares no supermercado.

Hoje, ela percebeu que se depois de pagar os primeiros US $ 80 no supermercado uma segunda conta tivesse sido criada e a primeira congelada, as duas contas teriam exatamente o mesmo saldo:

\underset{T o t uma eu = 770}{\underset{⏟}{1000 - 150 - 80}} \underset{T o t uma eu = 770}{\underset{⏟}{- 200 1040 - 70}}

$\underbrace{1000\quad -150\quad -80}_{Total=770}\quad \underbrace{-200\quad 1040\quad -70}_{Total=770}$

O evento foi tão raro para ela que ela deseja continuar verificando se os movimentos de sua conta e os de seus amigos também têm esse recurso ou não.

Desafio

Dada uma lista de transações, produza o número de instantes de tempo em que o proprietário da conta bancária poderia ter criado uma segunda conta para que ambos tivessem o mesmo saldo final.

Exemplo: [1000, -150, -80, -200, 1040, -70]

1 1) \underset{T o t uma eu = 0 0}{\underset{⏟}{}} \underset{T o t uma eu = 1540}{\underset{⏟}{1000 - 150 - 80 - 200 1040 - 70}}

$\color{red}{1)\quad\underbrace{}_{Total=0}\quad \underbrace{1000\quad -150\quad -80\quad -200\quad 1040\quad -70}_{Total=1540}}$

2) \underset{T o t uma eu = 1000}{\underset{⏟}{1000}} \underset{T o t uma eu = 540}{\underset{⏟}{- 150 - 80 - 200 1040 - 70}}

$\color{red}{2)\quad\underbrace{1000}_{Total=1000}\quad \underbrace{-150\quad -80\quad -200\quad 1040\quad -70}_{Total=540}}$

3) \underset{T o t uma eu = 850}{\underset{⏟}{1000 - 150}} \underset{T o t uma eu = 690}{\underset{⏟}{- 80 - 200 1040 - 70}}

$\color{red}{3)\quad\underbrace{1000\quad -150}_{Total=850}\quad \underbrace{-80\quad -200\quad 1040\quad -70}_{Total=690}}$

4) \underset{T o t uma eu = 770}{\underset{⏟}{1000 - 150 - 80}} \underset{T o t uma eu = 770}{\underset{⏟}{- 200 1040 - 70}}

$\color{green}{4)\quad\underbrace{1000\quad -150\quad -80}_{Total=770}\quad \underbrace{-200\quad 1040\quad -70}_{Total=770}}$

5) \underset{T o t uma eu = 570}{\underset{⏟}{1000 - 150 - 80 - 200}} \underset{T o t uma eu = 970}{\underset{⏟}{1040 - 70}}

$\color{red}{5)\quad\underbrace{1000\quad -150\quad -80\quad-200}_{Total=570}\quad \underbrace{ 1040\quad -70}_{Total=970}}$

6) \underset{T o t uma eu = 1610}{\underset{⏟}{1000 - 150 - 80 - 200 1040}} \underset{T o t uma eu = - 70}{\underset{⏟}{- 70}}

$\color{red}{6)\quad\underbrace{1000\quad -150\quad -80\quad -200\quad 1040}_{Total=1610}\quad \underbrace{-70}_{Total=-70}}$

7) \underset{T o t uma eu = 1540}{\underset{⏟}{1000 - 150 - 80 - 200 1040 - 70}} \underset{T o t uma eu = 0 0}{\underset{⏟}{}}

$\color{red}{7)\quad\underbrace{1000\quad -150\quad -80\quad-200\quad 1040\quad -70}_{Total=1540}\quad \underbrace{}_{Total=0}}$

Caso de teste

Entrada: 1000 -150 -80 -200 1040 -70Saída:1
Entrada: 100 -100Saída:2
Entrada: 1 2 3Saída:1
Entrada: 10 -20 15Saída:0
Entrada: 15 -15 15 -15Saída:3
Entrada: 1Saída:0

Notas

Você pode assumir que não haverá transações de US $ 0
Você pode receber sugestões de qualquer maneira razoável

code-golf

— Luis felipe De jesus Munoz
fonte

11

Após 6 meses de contas congeladas e recém-criadas, é relatado que o banqueiro de Marie agora está internado em um sanatório. "Nós somos seus amigos. Você precisa descansar", disseram eles.

— Arnauld

2

Caso de teste sugerido para uma única transação

— Veskah 08/02/19

5

C # (compilador interativo do Visual C #) , 63 bytes

n=>n.Append(0).Where((a,b)=>n.Take(b).Sum()*2==n.Sum()).Count()

Guardado 6 bytes graças a dana

Contas paralelas (dia 2)

C # (compilador interativo do Visual C #) , 63 bytes

Perl 6 , 25 bytes

Explicação

05AB1E , 11 bytes

Geléia , 11 6 bytes

JavaScript (Node.js) , 45 bytes

Perl 5 -p , 42 41 bytes

JavaScript (ES6), 52 bytes

Comentado

Versão recursiva, 54 53 bytes

APL (Dyalog Unicode) , SBCS de 21 bytes

Lote, 84 bytes

Carvão , 15 bytes

Python 3 , 67 58 bytes

R , 50 bytes 37

MATL , 9 bytes

Japonês -x , 14 11 bytes

PowerShell , 88 82 bytes

PowerShell , 49 45 36 bytes

Brachylog , 9 bytes

Explicação

bash, 52 bytes

Haskell, 46 35 bytes

J , 19 bytes

explicação

Perl 5 `-p` , 42 41 bytes

APL (Dyalog Unicode) , ^{SBCS de} 21 bytes

Japonês `-x` , 14 11 bytes