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

РЕДАКТИРОВАТЬ: вернуться к более ранней версии, которая работает, когда 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

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

Принимает ввод в синтаксисе карри (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 для вывода. Должен быть достаточной длины и возвращает результат в O.
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 байта!