Завдання в цьому виклику полягає в тому, щоб розмістити елементи масиву в часові відрізки. Вхідними даними будуть не зменшується масив додатних цілих чисел, що представляють час подій, і ціле число, яке представляє розмір кожного біна. Почнемо з прикладу. Ми називаємо вхідний масив 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в кожному номері є. Ви завжди повинні включати правий кінець інтервалу у відро, так що в наведеному вище прикладі 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].

EDIT: Повернення до попередньої версії, яка працює, коли 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's 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

Рубін , 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)

Збережено 5 байт завдяки @Neil

Здійснює введення в синтаксис 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 (стук) , 53 байти

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

Спробуйте в Інтернеті!

Це рішення приймає такі параметри: довжина
Aвхідного масиву сховища bin_size для виводу. Повинна бути достатня довжина і повертає вихід у О.
l
b
O

Це рішення має гандикап: воно не повертає довжину вихідного масиву O, і тому абонент не знає, скільки друкувати.

Наступна версія долає цей гандикап:

C (стук) , 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 байт, а також котлів для стелі ще 4 байти!