La tâche dans ce défi est de mettre des éléments d'un tableau dans des bacs de temps. L'entrée sera un tableau non décroissant d'entiers positifs représentant l'heure des événements, et un entier qui représente la taille de chaque bac. Commençons par un exemple. Nous appelons le tableau d'entrée Aet le tableau de sortie O.

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

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

Pourquoi ? Avec a bin_size = 2, nous aurons les intervalles suivants:, (0,2], (2,4], (4,6], (6,8], (8,10]où quatre éléments se (1,1,1,2)trouvent dans le premier intervalle (0,2], aucun dans les deuxième et troisième intervalles, un 7dans l'intervalle (6,8]et un 10dans l'intervalle (8,10].

Votre code doit tenir compte de chaque intervalle de longueur à bin_sizepartir de 0et compter le nombre de numéros Aqu'il contient. Vous devez toujours inclure la fin droite d'un intervalle dans un bac de sorte que dans l'exemple ci 2- dessus est inclus dans le nombre de 4. Votre code doit s'exécuter en temps linéaire dans la somme des longueurs de l'entrée et de la sortie.

Plus d'exemples:

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

Vous pouvez supposer que l'entrée et la sortie peuvent être données dans n'importe quel format qui vous convient. Vous pouvez utiliser toutes les langues et bibliothèques de votre choix.

R , 48 octets

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

Essayez-le en ligne!

Encore une fois, tableet faites cutun factortour pour le binning. Les sorties d' un nommé vectoroù namessont les intervalles, dans la notation des intervalles, par exemple, (0,5].

EDIT: revenir à la version précédente qui fonctionne quand sne se divise pas n.

Octave , 36 octets

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

Essayez-le en ligne!

À la chasse aux œufs de Pâques et à faire un feu de joie. J'ajouterai une explication quand j'aurai le temps.

Perl 5 -a -i , 32 28 octets

Donnez le nombre après l'option -i. Donnez chaque élément d'entrée sur une ligne distincte sur STDIN

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

Essayez-le en ligne!

Python 2 , 62 octets

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

Essayez-le en ligne!

05AB1E , 18 octets

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

Essayez-le en ligne!

APL + WIN, 23 octets

Invite à saisir à l'écran les cases puis le vecteur d'entiers:

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

Explication:

⎕ 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 octets

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

Essayez-le en ligne!

Java 8, 75 octets

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

Port de @ DeadPossum's Python 2 answer , alors assurez-vous de voter pour sa réponse!

Explication:

Essayez-le en ligne.

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

Rubis , 60 octets

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

Essayez-le en ligne!

JavaScript (ES6), 60 octets / O (len (a) + max (a) / n)

5 octets enregistrés grâce à @Neil

Prend des entrées dans la syntaxe de curry (a)(n).

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

Essayez-le en ligne!

Ou seulement 43 octets / O (len (a)) si les éléments vides sont autorisés.

Haskell , 63 75 70 octets

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

Oups, celui-ci n'est pas linéaire mais quadratique;

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

Essayez-le en ligne!

Pyth, 23 22 octets

Jm/tdeQhQK*]ZheJhXRK1J

Essayez-le ici

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

Rubis , 53 50 octets

Edit: -3 octets par iamnotmaynard.

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

Essayez-le en ligne!

Ce casse-tête est essentiellement un tri par compte. Nous ne connaissons pas la longueur de la sortie sans passer d'abord par l'entrée.

C (clang) , 53 octets

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

Essayez-le en ligne!

Cette solution prend les paramètres suivants: longueur du
Atableau d'entrée
ld'un stockage
bbin_size
Opour la sortie. Doit être de longueur suffisante
et renvoie la sortie en O.

Cette solution a un handicap: elle ne retourne pas la longueur du tableau de sortie O, et donc l'appelant ne sait pas combien imprimer.

La version suivante surmonte ce handicap:

C (clang) , 79 octets

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

Essayez-le en ligne!

Il prend un paramètre supplémentaire met en renvoie la longueur O. Cela m'a coûté 26 octets.

C (gcc) , 102 90 89 86 octets

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

Essayez-le en ligne!

Merci à Kevin Cruijssen pour avoir réduit de 12 octets et plafondcat pour 4 autres octets!