Giriş

Bir park yerinin gözetmenisiniz ve müdürünüz büyüklüğün aşırıya çekilmesine hazırlanıyor.

Geçen yılın PAT üst düzeyindeki bir sorunun basitleştirilmiş ve uyarlanmış bir versiyonudur .

Meydan okuma

Sen aynı anda yerinde kaç tane araba ölçüsü sorulabilir en fazla .

Standart kurallar geçerlidir. Ve bu bir kod golf çok kısa kod kazanır.

Birinci satır girişlerinin miktarı (en fazla olduğu 100,000, İsterseniz girişinizi nerede girdi uçlarını belirlemek için yalnızca bir eğreti olduğu için, bu çizgi içeremez ). Aşağıdaki metin satır başına bir girdi içerir. Ve her giriş üç sayı içerir:

<Car plate number> <Time (seconds) since open> <0(In) | 1(Out)>

Değişiklik 2: Giriş olarak üçlü bir dizi kullanmak uygundur.

Değişiklik 3: Bir girişteki sayıların sırasını değiştirebilirsiniz. Ve hangisini kullanacağınızı seçebilirsiniz. (Notlar bölümüne bakın)

Girdinin, aşağıdaki varsayımlarla geçerli olduğu garanti edilir:

• Car plate number10000~ aralığında bir tamsayıdır99999
• Time0~ aralığında bir tamsayıdır86400

Ve

• Girişlerin kronolojik olarak sıralanması gerekmez .
• İlk saniyeden önce hiç araba yok.
• Orada mutlaka değil son saniyede sonra hiç araba.
• Bir araba içeri girmeden çıkmazdı.
• Car plate numberbenzersiz. (ancak aynı araba birden fazla kez ziyaret edebilir)
• Bu nedenle, bir arabanın zaten içinde olduğu zaman partiye girmesi imkansızdır.
• Aynı araba aynı anda içeri ve dışarı çıkmazdı time.
• Bir arabanın içeri / dışarı zamanında lotta olduğu kabul edilir.

örnek 1

Giriş

11
97845 36000 1
75487 16500 1
12345 16 0
75486 3300 0
12345 6500 1
97845 32800 0
12345 16400 0
97846 16501 1
97846 16500 0
75486 8800 1
75487 3300 0

Çıktı

3

açıklama

At 16500, araba 12345ve 75487park yerinde idi.

ÖRNEK 2

Ben bunu başarısız birçok kod bulundu çünkü yaptım.

Giriş (ilk satır dışarıda iken)

12345 16400 0
12345 16500 1
75487 16500 0
75487 16600 1

Çıktı

2

açıklama

At 16500, araba 12345ve 75487park yerinde idi.

Uyarılar

Aslında, çıktı için her üçüne de gerek yoktur. En azından, sonuç için sadece plaka + zamanına veya giriş / çıkış + zamanına ihtiyacınız var. Ancak algoritma iki koşulda biraz farklıdır, bu nedenle daha kısa olma seçimi belirli bir dilde bilinmemektedir. Ve elbette üç sayıyı da kullanabilirsiniz. Bu yüzden onları zor durumda bırakıyorum.

Mathematica, 33 bayt

-Min@Accumulate[2#2-1&@@@Sort@#]&

Plaka bilgilerini gerektirmeyen çok daha basit bir algoritma olduğunu anlamak için sorun bildirimini daha iyi okumak zorunda kaldım.

Bir tamsayı döndüren adsız işlev; giriş biçimi, formdaki sıralı üçlülerin listesidir {time, 0|1, license plate}. Biz başlamak Sortliste kronolojik yapar, ing ve ayrıca sıralayarak zaman bağlarını kırar 0önce lar 1s; daha sonra 2#2-1&@@@varış / ayrılış bilgilerini saklar ve gerisini unutur ve ayrıca 0s'yi -1s'ye dönüştürür .

Accumulatebu listenin koşu toplamlarını hesaplar; sonuç, her varıştan / ayrılmadan sonra otoparktaki araç sayısının negatiflerinin bir listesidir . Sonra Minbunların en küçük (en negatif) olanını alır ve negatif işaret çıkarılır.

Mathematica, 56 bayt

Max[<|#|>~Count~0&/@FoldList[List,{},#3->#2&@@@Sort@#]]&

Orijinal gönderim (ilk birkaç yorum bu gönderimdir). Bir tamsayı döndüren adsız işlev; giriş biçimi, formdaki sıralı üçlülerin listesidir {time, 0|1, license plate}.

Zaman girişini önce ve giriş / çıkış girişini ikinci olarak seçmemizin nedeni Sort@#, listeyi kronolojik olarak sıralamak ve eşzamanlı olmaları durumunda kalkıştan önce varışları kaydetmek. Bundan sonra , hala kronolojik olarak sıralanmış #3->#2&@@@formun "kurallarının" bir listesini döndürür license plate -> 0|1.

Ardından, FoldList[List,{},...]bu kurallar listesinin tüm başlangıç ​​bölümlerinin bir listesini oluşturur. Aslında, bu ilk segmentleri berbat ediyor; kderinliği 2 az bir kural olarak, derinlik 3 az bir kural olarak, ..., ve derinlikte bir kuralı ile bir liste olmak kadar inci ilk parçasının uçları k+ 1. ( FoldList[Append,{},...]daha doğal sonuç verir.) Bununla birlikte, <|#|>bu başlangıç ​​segmentlerinin her birini, istenen iki etkiye sahip bir "ilişkilendirme" ye dönüştürür: ilk olarak, az önce oluşturduğumuz iç içe liste yapısını tamamen düzleştirir; ikincisi, daha sonraki kuralları, tam da burada ihtiyacımız olan şey olan önceki kuralları geçersiz kılmaya zorlar - otoparktan ayrılan herhangi bir araba için, ilk girişinin kaydı artık tamamen kaybolmuştur (ve benzer şekilde yeniden giren arabalar için) .

Yani geriye kalan tek şey, bu çağrışımların her birinde Countkaç tane 0var olduğudur Max.

Haskell, 76 63 61 bayt

@ Nimi'nin önerisinin bir varyasyonu ile 2 bayt kaydedildi.

f l=maximum$scanl1(+)[(-1)^c|i<-[0..8^6],(_,b,c)<-l,i==2*b+c]

Argümanı, problem ifadesi tarafından verilen sıraya göre üçlü bir liste olarak bekler.

Mümkün olan her bir zaman (ve biraz daha fazlası) için önce gelip sonra araba olaylarını terk etmek için arama yaparız ve bunları artı veya eksi olanların listesine dönüştürürüz. Bu listenin kısmi toplamlarını ve daha sonra bu kısmi toplamların maksimumunu alıyoruz.

PHP 7.1, 126 117 bayt

for(;$s=file(i)[++$i];)$d[+substr($s,6)][$s[-2]]++;ksort($d);foreach($d as$a){$r=max($r,$n+=$a[0]);$n-=$a[1];}echo$r;

dosyadan girdi alır i, ilk satırı yoksayar. İle çalıştırın -r.
Girdide bir satırsonu satırı gerektirir. Windows -2ile değiştirin -3.

Yıkmak

# generate 2-dim array; first index=time, second index=0/1 (in/out);
# values=number of cars arriving/leaging; ignore plate number
for(;$s=file(i)[++$i];) # read file line by line (includes trailing newline)
    $d[+substr($s,6)][$s[-2]]++;    # substring to int=>time, last but one character=>1/0
ksort($d);                      # sort array by 1st index (time)
foreach($d as$a)    # loop through array; ignore time
{
    $r=max($r,                      # 2. update maximum count
        $n+=$a[0]                   # 1. add arriving cars to `$n` (current no. of cars)
    );
    $n-=$a[1];                      # 3. remove leaving cars from `$n`
}
echo$r;                         # print result

C, 147 bayt

Tam bir program, girişini okur stdin.

int r[86402]={},u,i,n,t;g(s,o){for(;s<86401;n<r[s]?n=r[s]:0,++s)r[s+o]+=o?-1:1;}main(){for(n=0;scanf("%d%d%d",&u,&t,&i)==3;g(t,i));printf("%d",n);}

İdeone üzerinde deneyin .

Oktav, 50 , 64 38 bayt

@(A)-min(cumsum(sortrows(A)(:,2)*2-1))

@Greg Martin Mathematica yanıtıyla aynı

İşlev 3 sütunlu bir dizi alır [time, i/o,plateN]

önceki cevap:

@(A){[t,O]=A{:};max(cumsum(sparse({++t(!O),t}{2},1,!O*2-1)))}{2}

Fonksiyon sadece iki giriş alır t: üçlü giriş içeren Obir hücre dizisinin ilk iki elemanından zaman ve : G / Ç A!

Mevcut araçların kaydedilen her zaman sayısı için hesaplanan seyrek bir matris. Bunun için çıkış süresi + 1 araç çıkışı için kabul edilir ve karşılık gelen 1 -1 ve 0 olarak 1 olarak değiştirilir
.
Daha sonra lottaki mevcut araç sayısını temsil eden kümülatif toplam hesaplanır ve maksimumu bulunur.

JavaScript (ES6), 63 73 71 bayt

d=>Math.max(...d.sort((a,[b,c])=>a[s=0]-b||a[1]-c).map(e=>s+=1-e[1]*2))

Bu, girişi sipariş edilen bir dizi girdi olarak kabul eder [time, inout, plate]. Maalesef aynı inout kez araçlarının her iki araba sürede anda çok da göz önünde bulundurulması olması nedeniyle, sıralama algoritması sipariş gerekir nedeniyle 0önce 111 bayt mal olan oldu.

Kredi

• Harita işlevinin içinde kaydırma ve çarpma işlemini tamamen hareket ettirerek 1 bayt kazandım (teşekkürler Neil).
• Sıralama işlevinde bir yıkılmış bağımsız değişken kullanarak başka iki bayt kurtardım (teşekkürler edc65).

gösteri

// test the two examples
console.log([[[36000,1],[16500,1],[16,0],[3300,0],[6500,1],[32800,0],[16400,0],[16501,1],[16500,0],[8800,1],[3300,0]],[[16400,0],[16500,1],[16500,0],[16600,1]]].map(
// answer submission
d=>Math.max(...d.sort((a,[b,c])=>a[s=0]-b||a[1]-c).map(e=>s+=1-e[1]*2))
));

JavaScript (ES6), 83 … 68 70 bayt

EDIT: 2. örneği destekleyecek şekilde düzeltildi

Girdileri bir dizi [in_out, time, plate]dizisi olarak alır. Ancak platesütun aslında yok sayılır.

a=>a.sort(([a,b],[c,d])=>b-d||a-c).map(v=>a=(n+=1-v[0]*2)<a?a:n,n=0)|a

Ölçek

let f =

a=>a.sort(([a,b],[c,d])=>b-d||a-c).map(v=>a=(n+=1-v[0]*2)<a?a:n,n=0)|a

console.log(f([
  [1, 36000, 97845],
  [1, 16500, 75487],
  [0, 16,    12345],
  [0, 3300,  75486],
  [1, 6500,  12345],
  [0, 32800, 97845],
  [0, 16400, 12345],
  [1, 16501, 97846],
  [0, 16500, 97846],
  [1, 8800,  75486],
  [0, 3300,  75487]
]));

console.log(f([
  [0, 16400, 12345],
  [1, 16500, 12345],
  [0, 16500, 75487],
  [1, 16600, 75487]
]));