Zadaniem w tym wyzwaniu jest umieszczenie elementów tablicy w przedziałach czasowych. Dane wejściowe będą stanowić nie malejącą tablicę dodatnich liczb całkowitych reprezentujących czas zdarzeń oraz liczbę całkowitą reprezentującą rozmiar każdego przedziału. Zacznijmy od przykładu. Nazywamy tablicę wejściową Ai tablicę wyjściową O.

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

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

Dlaczego ? Za pomocą a bin_size = 2mamy następujące przedziały:, w (0,2], (2,4], (4,6], (6,8], (8,10]których cztery elementy (1,1,1,2)znajdują się w pierwszym przedziale (0,2], żaden w drugim i trzecim przedziale, jeden 7w przedziale (6,8]i jeden 10w przedziale (8,10].

Twój kod powinien uwzględniać każdy przedział długości, bin_sizezaczynając od, 0i liczyć, ile jest w Anim liczb . Zawsze powinieneś umieszczać prawy koniec przedziału w pojemniku, więc w powyższym przykładzie 2jest on uwzględniony w liczbie 4. Twój kod powinien działać w czasie liniowym jako suma długości danych wejściowych i wyjściowych.

Więcej przykładów:

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

Możesz założyć, że dane wejściowe i wyjściowe można podawać w dowolnym dogodnym dla siebie formacie. Możesz używać dowolnych języków i bibliotek.

R , 48 bajtów

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

Wypróbuj online!

Jeszcze raz tablei cutzadzwoń do factorsztuczki na binowanie. Wypisuje nazwaną, vectorgdzie namessą przedziały, na przykład w notacji przedziałowej (0,5].

EDYCJA: Przywróć wcześniejszą wersję, która działa, gdy snie dzieli n.

Oktawa , 36 bajtów

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

Wypróbuj online!

Polowanie na pisanki i rozpalanie ogniska. Dodam wyjaśnienie, kiedy będę miał czas.

Perl 5 -a -i , 32 28 bajtów

Podaj liczbę po opcji -i. Daj każdy element wejściowy w osobnej linii na STDIN

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

Wypróbuj online!

Python 2 , 62 bajty

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

Wypróbuj online!

05AB1E , 18 bajtów

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

Wypróbuj online!

APL + WIN, 23 bajty

Monity o wprowadzenie ekranów pojemników, a następnie wektora liczb całkowitych:

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

Wyjaśnienie:

⎕ 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 bajtów

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

Wypróbuj online!

Java 8, 75 bajtów

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

Port odpowiedzi na Python 2 w DeadPossum , więc pamiętaj, aby głosować na jego odpowiedź!

Wyjaśnienie:

Wypróbuj online.

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

Rubinowy , 60 bajtów

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

Wypróbuj online!

JavaScript (ES6), 60 bajtów / O (len (a) + max (a) / n)

Zaoszczędź 5 bajtów dzięki @Neil

Pobiera dane wejściowe w składni curry (a)(n).

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

Wypróbuj online!

Lub tylko 43 bajty / O (len (a)), jeśli dozwolone są puste elementy.

Haskell , 63 75 70 bajtów

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

Ups, ten krótszy nie jest liniowy, lecz kwadratowy;

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

Wypróbuj online!

Pyth, 23 22 bajtów

Jm/tdeQhQK*]ZheJhXRK1J

Wypróbuj tutaj

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

Rubin , 53 50 bajtów

Edycja: -3 bajty przez iamnotmaynard.

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

Wypróbuj online!

Ta łamigłówka to w zasadzie Count-sort. Nie znamy długości wyjścia bez uprzedniego przejrzenia danych wejściowych.

C (brzęk) , 53 bajty

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

Wypróbuj online!

To rozwiązanie przyjmuje następujące parametry: długość
Atablicy wejściowej pamięci bin_size dla Output. Musi mieć wystarczającą długość
l
b
O
i zwraca wynik w O.

To rozwiązanie ma utrudnienie: nie zwraca długości tablicy wyjściowej O, więc osoba dzwoniąca nie wie, ile wydrukować.

Poniższa wersja pokonuje ten utrudnienie:

C (brzęk) , 79 bajtów

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

Wypróbuj online!

Wymaga dodatkowego parametru m i zwraca Ow nim długość . Kosztowało mnie 26 bajtów.

C (gcc) , 102 90 89 86 bajtów

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

Wypróbuj online!

Podziękowania dla Kevina Cruijssena za wykrawanie 12 bajtów, a dla kota sufitowego za kolejne 4 bajty!