这项挑战中的任务是将数组的元素放入时间仓。输入将是一个非递减的正整数数组，该整数表示事件的时间，而整数则表示每个bin的大小。让我们从一个例子开始。我们称为输入数组A和输出数组O。

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

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

为什么呢 使用a bin_size = 2，我们将具有以下间隔：在第一个间隔内(0,2], (2,4], (4,6], (6,8], (8,10]有四个项目，在第二个和第三个间隔(1,1,1,2)内(0,2]没有一个7，在间隔中(6,8]一个10，在间隔中一个(8,10]。

您的代码应考虑bin_size从开始的每个长度间隔，0并计算每个间隔中A有多少个数字。您应始终将区间的右端包括在bin中，因此在上面的示例2中将其包括在中4。您的代码应在输入和输出长度之和的线性时间内运行。

更多示例：

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

您可以假定输入和输出可以以您认为方便的任何格式给出。您可以使用任何喜欢的语言和库。

R，48个字节

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

在线尝试！

再次，table并做cut一个factor很好的装箱技巧。输出一个名为的vector，其中names表示间隔，以间隔符号表示，例如(0,5]。

编辑：恢复到s不分割时可以使用的早期版本n。

八度，36字节

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

在线尝试！

外出狩猎复活节彩蛋和篝火。有空的时候我会加解释。

Perl 5中 -a -i，32 28个字节

在-i选项之后给出计数。将每个输入元素放在STDIN上的单独一行中

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

在线尝试！

Python 2，62个字节

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

在线尝试！

05AB1E，18个字节

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

在线尝试！

APL + WIN，23个字节

提示屏幕输入箱，然后输入整数向量：

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

说明：

⎕ 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字节

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

在线尝试！

Java 8，75字节

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

@DeadPossum的Python 2 Answer的端口，因此请确保对他的答案进行投票！

说明：

在线尝试。

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

红宝石，60字节

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

在线尝试！

JavaScript（ES6），60字节/ O（len（a）+ max（a）/ n）

@Neil节省了5个字节

以currying语法接受输入(a)(n)。

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

在线尝试！

如果允许空元素，则仅为43个字节 / O（len（a））。

Haskell，63 75 70字节

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

糟糕，这个较短的不是线性的，而是二次的；

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

在线尝试！

Pyth，23 22字节

Jm/tdeQhQK*]ZheJhXRK1J

在这里尝试

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

红宝石，53 50字节

编辑：-3字节，iamnotmaynard。

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

在线尝试！

这个难题本质上是计数排序。如果不先进行输入，就无法知道输出的长度。

C（clang），53字节

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

在线尝试！

此解决方案采用以下参数：用于输出的bin_size 存储的
A输入数组
l长度。必须足够长， 并以O返回输出。
b
O

这个解决方案有一个障碍：它不返回输出数组O的长度，因此调用者不知道要打印多少。

后续版本克服了这一障碍：

C（clang），79字节

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

在线尝试！

它需要一个附加参数m并返回其中的长度O。它花费了我26个字节。

C（gcc），102 90 89 86字节

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

在线尝试！

感谢Kevin Cruijssen削减了12个字节，再加上ceilingcat减少了4个字节！