10

^{Üniversite Kod Yarışması Yarışmamın izniyle Alınan Zorluk}

Birkaç ay önce çalışmalarını bitirdikten sonra Marie, kasabadaki ilk işinin ödemesini almaya başlamak için bir banka hesabı açtı. O zamandan beri onunla birkaç işlem yapıyor. İlk ödemesi 1000 dolardı. Bu parayla anne ve babasını davet ettiği bir akşam yemeği için ödedi (Akşam yemeği 150 dolara mal oldu), daha sonra tanınmış bir süpermarkette (80 dolar) bir satın alma ve tatilleri (200 $) için bir otel rezervasyonu yaptı. Ayın sonunda ödemesini tekrar aldı (bir önceki aydan biraz daha fazla 1040 dolar) ve ertesi gün süpermarkette 70 dolar daha harcadı.

Bugün, süpermarkette ilk 80 dolar ödendikten sonra ikinci bir hesap oluşturulduktan ve ilk hesap dondurulduysa, her iki hesabın da tamamen aynı bakiyeye sahip olacağını fark etti:

\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}$

Olay onun için o kadar nadirdi ki, hesabının ve arkadaşlarının hareketlerinin de bu özelliğe sahip olup olmadığını tespit etmeye devam etmek istiyor.

Meydan okuma

İşlemlerin bir listesi verildiğinde, banka hesabının sahibinin ikinci bir hesap oluşturabileceği anların sayısını, böylece her ikisinin de aynı bakiyeye sahip olmasını sağlayın.

Örnek: [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}}$

Test durumu

Giriş: 1000 -150 -80 -200 1040 -70Çıkış:1
Giriş: 100 -100Çıkış:2
Giriş: 1 2 3Çıkış:1
Giriş: 10 -20 15Çıkış:0
Giriş: 15 -15 15 -15Çıkış:3
Giriş: 1Çıkış:0

notlar

0 dolarlık herhangi bir işlem olmayacağını varsayabilirsiniz.
Girişi makul bir şekilde alabilirsiniz

code-golf

— Luis Felipe De Jesus Munoz
kaynak

11

6 aylık dondurulmuş ve yeni oluşturulan hesaplardan sonra Marie'nin bankacısının şu anda bir sanitariumda staj yaptığı bildiriliyor. "Biz arkadaşız. Biraz dinlenmen lazım" dediler.

— Arnauld

2

Tek bir işlem için önerilen test örneği

— Veskah

5

C # (Visual C # Etkileşimli Derleyici) , 63 bayt

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

Dana sayesinde 6 bayt kaydedildi

Paralel hesaplar (2.Gün)

C # (Visual C # Etkileşimli Derleyici) , 63 bayt

Perl 6 , 25 bayt

açıklama

05AB1E , 11 bayt

Jöle , 11 6 bayt

JavaScript (Node.js) , 45 bayt

Perl 5 -p , 42 41 bayt

JavaScript (ES6), 52 bayt

Yorumlananlar

Özyinelemeli sürüm, 54 53 bayt

APL (Dyalog Unicode) , 21 bayt SBCS

Toplu, 84 bayt

Kömür , 15 bayt

Python 3 , 67 58 bayt

R , 50 37 bayt

MATL , 9 bayt

Japt -x , 14 11 bayt

PowerShell , 88 82 bayt

PowerShell , 49 45 36 bayt

Brachylog , 9 bayt

açıklama

bash, 52 bayt

Haskell, 46 35 bayt

J , 19 bayt

açıklama

Perl 5 `-p` , 42 41 bayt

APL (Dyalog Unicode) , 21 bayt ^SBCS

Japt `-x` , 14 11 bayt