10

^{Вызов с разрешения моего конкурса на участие в университетском коде}

После окончания учебы пару месяцев назад Мари открыла банковский счет, чтобы начать получать оплату за свою первую работу в городе. С тех пор она провела несколько транзакций с ним. Ее первый платеж составил 1000 долларов. На эти деньги она заплатила за ужин, на который пригласила своих родителей (ужин стоил 150 долларов), затем она сделала покупку в известном супермаркете (80 долларов) и зарезервировала гостиницу для отпуска (200 долларов). В конце месяца она снова получила свой платеж (1040 долларов, чуть больше, чем в предыдущем месяце), а на следующий день она потратила еще 70 долларов в супермаркете.

Сегодня она поняла, что если после оплаты первых 80 долларов в супермаркете будет создан второй счет, а первый заморожен, то оба счета будут иметь одинаковый баланс:

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

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

Это событие было настолько редким для нее, что она хочет продолжать выяснять, есть ли у этой функции и ее друзей движения в этой учетной записи или нет.

Вызов

Учитывая список транзакций, выведите количество моментов времени, в течение которых владелец банковского счета мог создать вторую учетную запись, чтобы у обоих был один и тот же конечный баланс.

Пример: [1000, -150, -80, -200, 1040, -70]

1) \underset{T o t a l = 0}{\underset{⏟}{}} \underset{T o t a l = 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 a l = 1000}{\underset{⏟}{1000}} \underset{T o t a l = 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 a l = 850}{\underset{⏟}{1000 - 150}} \underset{T o t a l = 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 a l = 770}{\underset{⏟}{1000 - 150 - 80}} \underset{T o t a l = 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 a l = 570}{\underset{⏟}{1000 - 150 - 80 - 200}} \underset{T o t a l = 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 a l = 1610}{\underset{⏟}{1000 - 150 - 80 - 200 1040}} \underset{T o t a l = - 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 a l = 1540}{\underset{⏟}{1000 - 150 - 80 - 200 1040 - 70}} \underset{T o t a l = 0}{\underset{⏟}{}}

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

Прецедент

Вход: 1000 -150 -80 -200 1040 -70Выход:1
Вход: 100 -100Выход:2
Вход: 1 2 3Выход:1
Вход: 10 -20 15Выход:0
Вход: 15 -15 15 -15Выход:3
Вход: 1Выход:0

Ноты

Вы можете предположить, что не будет никакой транзакции в $ 0 долларов
Вы можете принять участие любым разумным способом

code-golf

— Луис Фелипе Де Иисус Муньос
источник

11

Сообщается, что после 6 месяцев замороженных и вновь созданных счетов банкир Мари теперь интернирован в санатории. «Мы ваши друзья. Вам нужен отдых», - сказали они.

— Арно

2

Предлагаемый тестовый пример для одной транзакции

— Веска

5

C # (интерактивный компилятор Visual C #) , 63 байта

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

Сохранено 6 байтов благодаря Дана

Параллельные счета (день 2)

C # (интерактивный компилятор Visual C #) , 63 байта

Perl 6 , 25 байт

объяснение

05AB1E , 11 байт

Желе , 11 6 байт

JavaScript (Node.js) , 45 байт

Perl 5 -p , 42 41 байт

JavaScript (ES6), 52 байта

комментарии

Рекурсивная версия, 54 53 байта

APL (Dyalog Unicode) , 21 байт SBCS

Пакетная, 84 байта

Древесный уголь , 15 байт

Python 3 , 67 58 байт

R , 50 37 байт

MATL , 9 байт

Japt -x , 14 11 байт

PowerShell , 88 82 байта

PowerShell , 49 45 36 байт

Брахилог , 9 байт

объяснение

Баш, 52 байта

Haskell, 46 35 байт

J , 19 байт

объяснение

Perl 5 `-p` , 42 41 байт

APL (Dyalog Unicode) , 21 байт ^SBCS

Japt `-x` , 14 11 байт