Bu meydan okumadaki görev, bir dizinin elemanlarını zaman bölmelerine koymaktır. Girdi, olayların zamanını temsil eden azalmayan pozitif bir tamsayı dizisi ve her bir bölmenin boyutunu temsil eden bir tamsayı olacaktır. Bir örnekle başlayalım. Girdi dizisini Ave çıktı dizisini çağırıyoruz O.

`A = [1,1,1,2,7,10]` and `bin_size = 2`.

`O = [4,0,0,1,1]`.

Neden ? A ile bin_size = 2aşağıdaki aralıklara sahip olacağız: (0,2], (2,4], (4,6], (6,8], (8,10]burada dört öğe (1,1,1,2)ilk aralıkta (0,2], hiçbiri ikinci ve üçüncü aralıklarda, biri 7aralıkta (6,8]ve biri 10aralıkta (8,10].

Kodunuz uzunluğu her aralığını dikkate almalıdır bin_sizegelen başlangıç 0ve kaç numara saymak Aher vardır. Yukarıdaki örnekte 2sayıya dahil edilmesi için her zaman bir bölmenin sağ ucunu bir kutuya eklemeniz gerekir 4. Kodunuz, girdi ve çıktı uzunluklarının toplamı olarak doğrusal sürede çalışmalıdır.

Daha fazla örnek:

`A = [1,2,7,12,15]`  and `bin_size = 5`.

`O = [2, 1, 2]`.

`A = [1,2,7,12,15]`  and `bin_size = 3`.

`O = [2,0,1,1,1]`.

Giriş ve çıktının uygun bulduğunuz herhangi bir biçimde verilebileceğini varsayabilirsiniz. İstediğiniz dilleri ve kütüphaneleri kullanabilirsiniz.

R , 48 bayt

function(n,s)table(cut(n,0:ceiling(max(n)/s)*s))

Çevrimiçi deneyin!

Bir kez daha tableve cutbining için factorhile yapmak. Aralık gösterimindeki aralıkların vectorolduğu bir adlandırılmış çıktı verir .names(0,5]

DÜZENLEME: eserler olduğunu önceki sürümüne Geri Al geri sbölmek yok n.

Oktav , 36 bayt

@(A,b)histc(A,1:b:A(end)+b)(1:end-1)

Çevrimiçi deneyin!

Paskalya yumurtaları avlamak ve şenlik ateşi yapmak. Zamanım olduğunda bir açıklama ekleyeceğim.

Perl 5 -a -i , 32 28 bayt

-İ seçeneğinden sonra sayım verin. STDIN üzerindeki her bir giriş öğesini ayrı bir satıra verin

$G[~-$_/$^I]--}{say-$_ for@G

Çevrimiçi deneyin!

Python 2 , 62 bayt

I,s=input()
B=[0]*(~-I[-1]/s+1)
for i in I:B[~-i/s]+=1
print B

Çevrimiçi deneyin!

05AB1E , 18 bayt

θs/Å0¹vDyI/î<©è>®ǝ

Çevrimiçi deneyin!

APL + WIN, 23 bayt

Kutuların ekran girişi ve ardından tamsayıların vektörünün girilmesini ister:

+⌿<\v∘.≤b×⍳⌈⌈/(v←⎕)÷b←⎕    

Açıklama:

⎕ Prompt for input

⌈⌈/(v←⎕)÷b←⎕ divide the integers by bin size, take maximum and round up for number of bins

b×⍳ take number of bins from previous step and create a vector of bin upper boundaries

v∘.≤ apply outer product to generate boolean matrix where elements of vector ≤ boundaries

<\ switch off all 1's after first 1 in each row to filter multiple bin allocations

+⌿ sum columns for the result

C ++ (gcc) , 90 83 bayt

auto f(auto i,int s){typeof i j;for(auto v:i)--v/=s,j.resize(v+1),j[v]++;return j;}

Çevrimiçi deneyin!

Java 8, 75 bayt

a->b->{var r=new int[~-a[a.length-1]/b+1];for(int i:a)r[~-i/b]++;return r;}

Port of @ DeadPossum'un Python 2 cevabı , bu yüzden cevabını yükselttiğinizden emin olun!

Açıklama:

Çevrimiçi deneyin.

a->b->{          // Method with integer-array and integer parameters and no return-type
  var r=new int[~-a[a.length-1]/b+1];
                 //  Result integer-array of size `((last_item-1)/bin_length)+1`
  for(int i:a)   //  Loop over the input-array
    r[~-i/b]++;  //   Increase the value at index `(i+1)/bin_length` by 1
  return r;}     //  Return the result-array

Yakut , 60 bayt

->a,b{(b...a[-1]+b).step(b).map{|i|a.count{|n|n<=i&&n>i-b}}}

Çevrimiçi deneyin!

JavaScript (ES6), 60 bayt / O (len (a) + maks (a) / n)

@Neil sayesinde 5 bayt kaydedildi

Körili sözdiziminde girdi alır (a)(n).

a=>n=>[...a.map(x=>o[x=~-x/n|0]=-~o[x],o=[])&&o].map(n=>~~n)

Çevrimiçi deneyin!

Veya boş elemanlara izin verilirse sadece 43 bayt / O (len (a)) .

Haskell , 63 75 70 bayt

l!n=l#[n,2*n..]
[]#_=[]
l#(b:i)|h<-length$takeWhile(<=b)l=h:drop h l#i

Hata! Bu daha kısa olan doğrusal değil, ikinci dereceden;

l!n=l#[n,2*n..]
[]#_=[]
l#(b:i)=sum[1|a<-l,a<=b]:[a|a<-l,a>b]#i

Çevrimiçi deneyin!

Pyth, 23 22 bayt

Jm/tdeQhQK*]ZheJhXRK1J

Burada deneyin

Jm/tdeQhQK*]ZheJhXRK1J
Jm/tdeQhQ                 Find the bin for each time and save them as J.
         K*]ZheJ          Create empty bins.
                 XRK1J    Increment the bins for each time within them.
                h         Take the first (because mapping returned copies).

Yakut , 53 50 bayt

Düzenleme: iamnotmaynard tarafından -3 bayt.

->a,b{(0..~-a.max/b).map{|i|a.count{|x|~-x/b==i}}}

Çevrimiçi deneyin!

Bu bulmaca aslında bir Count-sort. İlk olarak girdiden geçmeden çıktının uzunluğunu bilmiyoruz.

C (clang) , 53 bayt

i,j;f(*A,l,b,*O){for(j=0;j<l;O[(A[j++]+b-1)/b-1]++);}

Çevrimiçi deneyin!

Bu çözüm aşağıdaki parametreleri alır:
A Çıktı için
lbir
bbin_size
Odepolama alanı girdi dizisi uzunluğu . Yeterli uzunlukta olmalı
ve çıktıyı O olarak döndürmelidir.

Bu çözümün bir handikabı vardır: O çıkış dizisinin uzunluğunu döndürmez ve bu nedenle arayan ne kadar yazdırılacağını bilmez.

Aşağıdaki sürüm bu handikapın üstesinden gelir:

C (clang) , 79 bayt

i,j,k;f(*A,l,b,*O,*m){for(k=j=0;j<l;O[i=(A[j++]+b-1)/b-1]++,k=k>i?k:i);*m=++k;}

Çevrimiçi deneyin!

Ek bir parametre alır mve içindeki uzunluğu döndürür O. Bana 26 byte mal oldu.

C (gcc) , 102 90 89 86 bayt

#define P!printf("%d ",k)
i,j,k;f(s){for(i=s;~scanf("%d",&j);k++)for(;j>i;i+=s)k=P;P;}

Çevrimiçi deneyin!

12 bayt ayırdığı için Kevin Cruijssen'e ve 4 bayt için tavan kedisine teşekkürler!