Nhiệm vụ trong thử thách này là đưa các yếu tố của một mảng vào các thùng thời gian. Đầu vào sẽ là một mảng không giảm các số nguyên dương biểu thị thời gian của các sự kiện và một số nguyên biểu thị kích thước của mỗi thùng. Hãy để chúng tôi bắt đầu với một ví dụ. Chúng tôi gọi mảng đầu vào Avà mảng đầu ra O.

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

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

Tại sao ? Với a bin_size = 2, chúng ta sẽ có các khoảng sau : (0,2], (2,4], (4,6], (6,8], (8,10], trong đó bốn mục (1,1,1,2)nằm trong khoảng đầu tiên (0,2], không có mục nào trong khoảng thứ hai và thứ ba, một 7trong khoảng (6,8]và một 10trong khoảng (8,10].

Mã của bạn nên xem xét từng khoảng thời gian bin_sizebắt đầu từ 0và đếm xem có bao nhiêu số Atrong mỗi số. Bạn phải luôn bao gồm đầu bên phải của một khoảng trong một thùng để trong ví dụ trên 2được bao gồm trong số đếm 4. Mã của bạn sẽ chạy trong thời gian tuyến tính bằng tổng độ dài của đầu vào và đầu ra.

Ví dụ khác:

`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]`.

Bạn có thể cho rằng đầu vào và đầu ra có thể được cung cấp ở bất kỳ định dạng nào bạn thấy thuận tiện. Bạn có thể sử dụng bất kỳ ngôn ngữ và thư viện nào bạn thích.

R , 48 byte

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

Hãy thử trực tuyến!

Một lần nữa, tablevà cutting đến một factorlàm các trick cho di chuyển chuột. Ví dụ, xuất ra một tên được đặt vectortrong đó các nameskhoảng, theo ký hiệu khoảng (0,5].

EDIT: Hoàn nguyên về phiên bản cũ hoạt động khi skhông phân chia n.

Octave , 36 byte

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

Hãy thử trực tuyến!

Ra ngoài săn trứng Phục sinh và đốt lửa trại. Tôi sẽ thêm một lời giải thích khi tôi có thời gian.

Perl 5 -a -i , 32 28 byte

Hãy đếm sau tùy chọn -i. Cung cấp cho mỗi phần tử đầu vào trên một dòng riêng biệt trên STDIN

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

Hãy thử trực tuyến!

Python 2 , 62 byte

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

Hãy thử trực tuyến!

05AB1E , 18 byte

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

Hãy thử trực tuyến!

APL + THẮNG, 23 byte

Lời nhắc cho đầu vào màn hình của các thùng sau đó vectơ số nguyên:

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

Giải trình:

⎕ 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 byte

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

Hãy thử trực tuyến!

Java 8, 75 byte

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

Câu trả lời Python 2 của Port @ DeadPossum , vì vậy hãy đảm bảo nâng cao câu trả lời của anh ấy!

Giải trình:

Hãy thử trực tuyến.

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

Ruby , 60 byte

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

Hãy thử trực tuyến!

JavaScript (ES6), 60 byte / O (len (a) + max (a) / n)

Đã lưu 5 byte nhờ @Neil

Đưa đầu vào theo cú pháp currying (a)(n).

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

Hãy thử trực tuyến!

Hoặc chỉ 43 byte / O (len (a)) nếu các phần tử trống được cho phép.

Haskell , 63 75 70 byte

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

Rất tiếc, cái ngắn hơn này không phải là tuyến tính mà là bậc hai;

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

Hãy thử trực tuyến!

Bình thường, 23 22 byte

Jm/tdeQhQK*]ZheJhXRK1J

Hãy thử nó ở đây

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).

Ruby , 53 50 byte

Chỉnh sửa: -3 byte bởi iamnotmaynard.

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

Hãy thử trực tuyến!

Câu đố này về cơ bản là một Count-sort. Chúng tôi không biết độ dài của đầu ra mà không thông qua đầu vào.

C (tiếng kêu) , 53 byte

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

Hãy thử trực tuyến!

Giải pháp này có các tham số sau: chiều dài
Amảng đầu vào
lcủa bộ lưu trữ
bbin_size
Ocho Đầu ra. Phải đủ độ dài
và trả về đầu ra trong O.

Giải pháp này có một điểm chấp: nó không trả về độ dài của mảng đầu ra O và vì vậy người gọi không biết in bao nhiêu.

Phiên bản sau khắc phục điểm chấp đó:

C (tiếng kêu) , 79 byte

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;}

Hãy thử trực tuyến!

Nó cần một tham số bổ sung mvà trả về độ dài của Onó. Nó có giá 26 byte.

C (gcc) , 102 90 89 86 byte

#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;}

Hãy thử trực tuyến!

Cảm ơn Kevin Cruijssen vì đã cắt giảm 12 byte và trần cho thêm 4 byte!