この課題のタスクは、配列の要素を時間ビンに入れることです。入力は、イベントの時間を表す正の整数の非減少配列と、各ビンのサイズを表す整数になります。例から始めましょう。入力配列Aと出力配列を呼び出しますO。

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

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

なんで？bin_size = 2：、我々は次のような間隔がありませんよ(0,2], (2,4], (4,6], (6,8], (8,10]、4つの項目は、(1,1,1,2)最初の区間内にあるが(0,2]、第二と第三の間隔、1でどれ7間隔で(6,8]、1 10時間間隔でを(8,10]。

コードは、bin_size先頭から始まるすべての間隔を考慮し、それぞれに含まれる0数字の数をカウントするA必要があります。間隔の右端を常にビンに含める必要があるため、上記の例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アンサーのポートです。彼のアンサーに必ず投票してください！

説明：

オンラインでお試しください。

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バイト

->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バイト節約

カリー化構文の入力を受け取ります(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バイト

編集：iamnotmaynardによる-3バイト。

->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]++);}

オンラインでお試しください！

この溶液は、以下のパラメータを取る：
A入力配列
lの長
bbin_sizeの
O出力のためのストレージを。十分な長さでなければならず
、出力を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;}

オンラインでお試しください！

12バイトを削減してくれたKevin Cruijssenと、さらに4バイトのceilingcatに感謝します！