Codegolf - Вес Нуля

Учитывая упорядоченный список чисел (возможно, с ведущими нулями), расположите числа вертикально, затем позвольте всем нулям опуститься до самого низа, а все выступающие части опуститься в самый нижний открытый слот. Выведите полученные целые числа, удалив ведущие нули.

Рабочий пример

Скажем, нам было дано следующее в качестве входных данных:

 
 
 
 
 
 
 
 [1234, 1234567, 12341638, 12340208, 12340004] 
 
 
 
 
 
 
 

Сначала расположим его вертикально:

Затем, столбец за столбцом, опускайте нули «через» другие числа, чтобы они оказались внизу, и «подталкивайте» другие числа вверх. В результате первые несколько шагов будут выглядеть следующим образом:

Затем опустите все выступы, как будто сила тяжести тянет их вниз, как песок.

Наконец, выведите эти числа, удалив ведущие нули. Для нашего рабочего примера выведите:

В качестве другого примера предположим, что введено [2391312941295, 3285245381245, 14232323525458159, 10915991001181258, 35000004951908] .

Отбросьте нули:

Отбросьте оставшиеся нависающие цифры:

Выход: ['0000312941295', '239124000124581598', '32852353800451258', '10235923505185190', '1491359102149'] .

Правила

• Вход может содержат ведущие нули. Выход не должен содержат ведущие нули.
• Если применимо, вы можете предположить, что ввод/вывод будет соответствовать родному целочисленному типу вашего языка.
• Входные и выходные данные могут быть заданы как любой удобный способ.
• Допускается либо полная программа, либо функция. Если это функция, вы можете вернуть вывод, а не печатать его.
• Стандартные лазейки запрещены.
• Таким образом, применяются все обычные правила игры в гольф, и побеждает самый короткий код (в байтах).

#код-гольф #код-гольф #массив

Желе, 8 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ⍎⍤1⍉{⍵[⍒⌈9÷⍨⎕d⍳⍵]}⍤1⍉⎕
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Попробуйте онлайн!

Как это работает

05AB1E, 11 байт

Попробуйте онлайн!

Шелуха, 12 байт

Попробуйте онлайн!

Объяснение

Питон 2, 118 байт

Попробуйте онлайн!

Версия без гольфа

Первые две строки эквивалентны +2 , the default behaviour if for ⍉ заполнить ∘ s if one list is shorter than the other.
⍎⍤1 is equivalent to row∩'0' , потому что если это любая цифра (1~9), она будет иметь более высокий код, а (любая) строка выше, чем ' 0' .

Пиф, 11 байт

Попробуйте онлайн!

Ретина 0.8.2, 95 92 байта

Попробуйте онлайн! Объяснение: На первом этапе удаляются нависающие цифры, поскольку это облегчает (отредактируйте: даже проще для сохранения 3 байтов) на втором этапе удаление нулей. Затем на третьем этапе удаляются ведущие нули.

Руби, 104 байта

Попробуйте онлайн!

Объяснение

APL (Диалог Юникод), 26 байты^СБКС

Анонимная неявная префиксная функция, принимающая в качестве аргумента символьную матрицу и возвращающая список чисел.

Попробуйте онлайн!

,  transpose the input (as we need to work on the columns)

row~' 0' … ~  примените следующую неявную функцию к каждой строке (подмассиву тензорного ранга 1) с , as верно аргумент ( row∩' ' swaps the arguments) :

  ' 0'  intersection of the row and
  ⊃  and
  ∘  the first of ∩
 (т.е. ⍨ ; all the spaces from each row)

  ' 0'  followed by…

  )⍤1⍨  the set difference
 (т.е. ' 0'( ; the row but without spaces and zeros)

  ⍉  followed by…

  ⍎⍤1∘⍉' 0'(∩∘⊃,~,∩∘⊃∘⌽)⍤1⍨⍉  intersection of the row and
  ->a{ a.map{|x|x.ljust(99).chars} # Fill spaces to make this rectangular .transpose.map{|x| x.sort_by{|x|x<?1?x:?!} # Treat all chars but " 1" as ! (see ascii table) }.transpose.map{|x|x.join.to_i} # Convert back to numbers # note: if no leading 0s, eval x*'' , doesn't work here }  and
  ->a{a.map{|x|x.ljust(99).chars}.transpose.map{|x|x.sort_by{|x|x<?1?x:?!}}.transpose.map{|x|x.join.to_i}}  the first
  m(+`^((.)*)(.+)(¶(?<-2>.)*)(?(2)_)$ $1$4$3 +`^((.)*)0(.*¶(?>(?<-2>.)*))([^0]) $1$4${3}0 ^0+  of
  iRT_C_M!DMC  the reversed None
 (т.е. cell != '0' and cell != None ; all the zeros from each row)

e>'0'  evaluate each row (sub-array of tensor rank 1)
None  of
map  the transpose of that (i.e. each column; the now modified input rows)

Перл 5, -p0 77 байт

Счет по старому стилю: 79 байт ( map(lambda*a...) for def f(list_): max_len = max(len(x) for x in list_) transposed_list = zip(*[list(row)+(max_len-len(row))*[None] for row in list_]) weighted_list = [['']*column.count(None)+[cell for cell in column if cell != '0' and cell != None]+['0']*column.count('0') for column in transposed_list] return [int(''.join(row)) for row in zip(*weighted_list)] )

Введите ввод в виде строк на STDIN без последней новой строки (в противном случае все будет выглядеть как нависание, и последняя новая строка поднимется вверх, когда входная строка обрушится). Например.:

Было немного сложно опустить свес и md↔Tm(Ö±mi)T↔ -- input as list of strings, example: ["103","32","258"] ↔ -- reverse: ["258","32","103"] T -- transpose: ["231","520","83"] m( ) -- with each line do (example with "520") mi -- | convert each char to digit: [5,2,0] Ö± -- | sort by signum (stable): [0,5,2] -- : [[2,3,1],[0,5,2],[8,3]] T -- transpose: [[2,0,8],[3,5,3],[1,2]] ↔ -- reverse: [[1,2],[3,5,3],[2,0,8]]% md -- convert each to integer: [12,353,208] dropping into one regex

Попробуйте онлайн!

Руби, 203 байта

Попробуйте онлайн!

Лямбда, принимающая массив строк и возвращающая массив целых чисел. Я чувствую, что что-то упускаю; это кажется огромным :/

АПЛ (Диалог Классик), 24 23 22 байта

Попробуйте онлайн!

на основе решения Адама