Укладання блоків

З огляду на введення списку блоків, які потрібно скинути в певних точках, вивести висоту отриманої "вежі".

Найкращий спосіб пояснити цей виклик на прикладі. Вхідним буде список 2n цілих чисел, що представляють n блоків. Перше ціле число - це позиція блоку x, індексовано 0, а друге - наскільки широкий блок. Наприклад, вхід 2 4представляє блок (з x координатами, позначеними нижче):

  ####
0123456789

Тепер, скажімо, вхід є 2 4 4 6. Тобто один блок при x = 2 при ширині 4, а один при x = 4 при ширині 6:

    ######
  ####

Зауважте, що блоки a.) Завжди "падають" з самої вершини вежі, і b.) Блоки ніколи не "впадуть" (тобто вони завжди будуть врівноважуватися). Отже, вхід 2 4 4 6 12 1являє собою:

    ######
  ####      #

Зауважте, що остаточний блок впав аж до "землі".

Ваш кінцевий вихід повинен бути максимальною висотою вежі при кожному значенні x до найбільшого. Отже, вхід 2 4 4 6 12 1повинен спричинити вихід 0011222222001:

    ######
  ####      #
0011222222001

Введення може бути подано у вигляді рядка пробілу / кома, розділеного комою, масиву цілих чисел або аргументів функції / командного рядка. Позиції блоку (значення x) завжди будуть цілими числами 0 або більше, ширина завжди буде цілим числом 1 або більше, і завжди буде щонайменше один блок.

Вихід може бути поданий у вигляді одного рядка, розділеного нечисловими символами (наприклад "0, 0, 1, ..."), одного рядка з переліком усіх цифр (наприклад "001...", максимальна висота гарантовано дорівнює 9 або менше) або масиву цілих чисел.

Оскільки це код-гольф , найкоротший код у байтах виграє.

Тестові приклади:

In                                   Out
---------------------------------------------------------
2 4 4 6 12 1                         0011222222001
0 5 9 1 6 4 2 5                      1133333222
0 5 9 1 2 5 6 4                      1122223333
0 5 2 5 6 4 9 1                      1122223334
20 1 20 1 20 1                       00000000000000000003
5 5                                  000011111
0 2 1 2 2 2 3 2 4 2 5 2 6 2 7 2 8 4  123456789999

CJam, 34 30 байт

Lq~2/{eeWf%e~_2$:).*:e>f*.e>}/

Введіть як масив у стилі CJam, виведіть у вигляді рядка цифр.

Запустити всі тестові справи.

Ось два варіанти іншої ідеї, але наразі вона на 2 байти довша:

Lq~2/{_:\3$><0+:e>)aeez.*e_.e>}/
LQ~2/{_:\3$><0+:e>)aeez.+e~.e>}/

Пітон 3, 89

def f(a):
 h=[]
 while a:x,w,*a=a;h[:x+w]=(h+[0]*x)[:x]+[max(h[x:x+w]+[0])+1]*w
 return h

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

Функція приймає і повертає список цілих чисел.

def f(a):                       # input as list of integers
  h=[]                          # list of heights
  while a:                      # while there's input left
    x,w,*a=a;                   # pop first 2 integers as x and w

    h[:x+w]=                    # change the heights between 0 and x+w
      (h+[0]*x)[:x]+            # left of x -> unchanged but padded with zeros
      [max(h[x:x+w]+[0])+1]*w   # between x and x+w -> set to the previous max + 1

  return h                      # return the list of heights

Рубі, 88 87 байт

f=->i{o=[]
(s,l,*i=i
r=s...s+l
o[r]=[([*o[r]]+[0]).max+1]*l
o.map! &:to_i)while i[0]
o}

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

Натхненний відповіддю grc, але іншою мовою і просто трохи коротше.

Пояснення:

f=->i                        # lambda with parameter i, expects array of ints
{
    o=[]                     # output
    (
        s,l,*i=i             # pop start and length
        r = s...s+l          # range is used twice, so shorten it to 1 char
        o[r] =
            [(
                    [*o[r]]  # o[r] returns nil if out of bounds, so splat it into another array
                    +[0]     # max doesn't like an empty array, so give it at least a 0
            ).max+1]*l       # repeat max+1 to fill length
        o.map! &:to_i        # replace nil values with 0
    ) while i[0]             # i[0] returns nil when i is empty, which is falsy
    o                        # return o
}

APL, 79 байт

{⊃{o←(z←(≢⍵)⌈a←+/⍺)↑⍵⋄e←(z↑(-a)↑⍺[1]⍴1)⋄o+0⌈o-⍨e×e⌈.+e×o}/⌽(⊂⍬),↓(⌽2,0.5×≢⍵)⍴⍵}

Введіть як APL-масив, виведіть як APL-масив цифр.

Java 1,8, 351 329 байт

Я не в захваті від цієї першої спроби - я впевнений, що подвійне цикління, і всі ці Integer.valueOf можуть пограти ще трохи.

interface B{static void main(String[]x){Byte b=1;int i=0,s,c,m=0,h,a=x.length,t[];for(;i<a;){s=b.valueOf(x[i++]);c=b.valueOf(x[i++]);m=m>s+c?m:s+c;}t=new int[m];for(i=0;i<a;){h=0;s=b.valueOf(x[i++]);c=b.valueOf(x[i++]);for(m=s;m<s+c;m++)if(t[m]>=h)h=t[m]+1;for(m=s;m<s+c;)t[m++]=h;}for(i=0;i<t.length;)System.out.print(t[i++]);}}

Безумовно

interface B {
static void main(String[]x){
    int start, count, maxWidth=0, height, args=x.length, totals[];
    Byte b=1;
    for (int i=0; i<args;){
        start = b.valueOf(x[i++]);
        count = b.valueOf(x[i++]);
        maxWidth = maxWidth>start+count ? maxWidth : start+count; 
    }
    totals=new int[maxWidth];
    for (int i=0; i<args;){
        height=0;
        start = b.valueOf(x[i++]);
        count = b.valueOf(x[i++]);
        for (int j = start; j<start+count; j++) {
            if (totals[j]>=height) {
                height=totals[j]+1;
            }
        }
        for (int j = start; j<start+count; j++) {
            totals[j] = height;
        }
    }
    for (int i=0;i<totals.length; i++){
        System.out.print(totals[i]);
    }
}
}