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{Т о т а л = 0}{\underset{⏟}{}} \underset{Т о т а л = 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{Т о т а л = 1000}{\underset{⏟}{1000}} \underset{Т о т а л = 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{Т о т а л = 850}{\underset{⏟}{1000 - 150}} \underset{Т о т а л = 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{Т о т а л = 770}{\underset{⏟}{1000 - 150 - 80}} \underset{Т о т а л = 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 # Interactive Compiler) , 63 байти

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

Збережено 6 байт завдяки датам

Паралельні рахунки (2 день)

C # (Visual C # Interactive Compiler) , 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 байт