ภารกิจในการท้าทายนี้คือการใส่องค์ประกอบของอาร์เรย์ลงในถังขยะเวลา อินพุตจะเป็นอาร์เรย์จำนวนเต็มบวกที่ไม่ลดลงซึ่งแสดงเวลาของเหตุการณ์และจำนวนเต็มซึ่งแทนขนาดของแต่ละ bin ให้เราเริ่มด้วยตัวอย่าง เราเรียกอาร์เรย์อินพุทและเอาท์พุทอาร์เรย์AO

`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]ที่สี่รายการ(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ทำเคล็ดลับสำหรับการ binning เอาท์พุทที่มีชื่อvectorที่มีช่วงเวลาในการบันทึกช่วงเวลาตัวอย่างเช่นnames(0,5]

แก้ไข: เปลี่ยนกลับไปใช้รุ่นก่อนหน้านี้ว่าผลงานเมื่อไม่ได้แบ่งsn

อ็อกเทฟ 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;}

คำตอบ Python 2ของ Port of @ DeadPossum ดังนั้นอย่าลืมโหวตคำตอบของเขา!

คำอธิบาย:

ลองออนไลน์

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) + สูงสุด (a) / n)

บันทึก 5 ไบต์ด้วย @Neil

(a)(n)จะเข้าในไวยากรณ์ currying

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

Ruby , 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อาร์เรย์อินพุต
lของที่เก็บA
bbin_size
Oสำหรับเอาต์พุต ต้องมีความยาวเพียงพอ
และส่งคืนเอาต์พุตใน 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;}

ลองออนไลน์!

ขอบคุณ Kevin Cruijssen สำหรับการลดขนาด 12 ไบต์และแมวป่าอีก 4 ไบต์!