Разобрать список списков в Sad-List


12

В этой задаче вы должны разобрать список списков в более простой формат списка.

Этот вызов основан на моем парсере sadflak. В моем анализаторе sadflak все () удалено, заменено суммой () в начале списка, чтобы программа работала быстрее.

Чтобы разобраться в Sad-List, вы должны сделать это (вещь реализации Python, использует кортеж кортежей):

def sadlistfunc(list):
    new-sadlist = [0]
    for i in list:
        if i == ():
            new-sadlist[0]+=1
        else:
            new-sadlist.append(sadlistfunc(i))

Это рекурсивная функция. Для списка начните новый список, начиная с номера () из входного списка, затем остальная часть этого списка - это версии всех списков, которые не были () из входного списка, по порядку. вернуть список.

Входные данные:

Вы можете принимать входные данные в нескольких разных форматах:

  • Вы можете принять это как список
  • Вы можете принять это как кортеж
  • вы можете принять это как строку

если вы воспринимаете это как строку, вы должны использовать несколько скобок, как показано в мозговом флаке. Вы не можете использовать символы 1 и 2

просто будь разумным

Ввод всегда будет находиться внутри одного списка, но ваша программа может предполагать наличие неявного слоя списка за пределами ввода, т. Е. () () () = (() () ()), Или она может отказаться. Примеры будут с явным внешним списком

выход:

может быть списком, кортежем или строкой, или чем угодно. Вы можете использовать любой разумный формат вывода, как и мета-консенсус.

Пример:

(()()()) = [3]
(((()))) = [0,[0,[1]]]
((())()(())) = [1, [1], [1]]
() = invalid input, if the outside bracket is explicit.
((((())())())(())()) = [1, [1, [1, [1]]], [1]]

обратите внимание, что ввод не является строгим. эти входные данные могут быть:

[[],[],[]]
[[[[]]]]
[[[]],[],[[]]]
[]
[[[[[]],[]],[]],[[]],[]]

или какой-то другой разумный формат

объяснил контрольный пример:

(()()((())())())

чтобы «осквернить» это, сначала посчитаем количество ()

 ()()        ()
(    ((())())  )

3. затем мы удалим их и добавим 3 в начале

(3,((())()))

в этом списке есть один список мы опечаливаем это

((())())

Как много ()?

     ()
((())  )

1. убираем и добавляем 1 в начале

(1,(()))

это один список

(())

подсчитывать

 ()
(  )

удалить и добавить счет

(1)

затем мы помещаем это обратно в свой список

(1,(1))

затем мы помещаем это обратно в свой список

(3,(1,(1)))

сделано

Это , поэтому чем короче, тем лучше


Обратите внимание, что в фактическом парсере sad-flak число () фактически является вторым элементом списка, а первый элемент - индексом команды
Destructible Lemon

Хороший старый JavaScript for... in, заставляя меня вспомнить, почему вы никогда не используете его: Fiddle
Стивен

Я полагаю, ((((())())())(())()) = [1, [1, [1, [1]], [1]]должно быть ((((())())())(())()) = [1, [1, [1, [1]]], [1]].
Ренцо

Ответы:




2

Брахилог , 21 байт

;[[]]x{↰₀}ᵐA&{∋∅}ᶜg,A

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


Байты и символы не эквивалентны. При использовании UTF-8 это займет 33 байта, хотя будет всего 21 символ.
Самади

1
@Samadi Brachylog использует свою собственную кодовую страницу , которая разрешена для этого мета-ответа .
Утренняя монахиня

Ах я вижу. Я был немного смущен. Спасибо за разъяснение!
Самади

@ Самади Нет проблем, этот вопрос задают постоянно.
Утренняя монахиня

2

Mathematica, 42 байта

{#~Count~{0},##&@@#~DeleteCases~{0}}&//@#&

Предотвращает явную рекурсию с помощью //@( MapAll), которая отображает функцию на каждый узел дерева. Это также означает, что функции выполняются от листьев вверх. Тем не менее, он также будет применен к тому, в {}который превращаются в {0}процессе. Вот почему мы считаем и удаляем {0}вместо этого {}.



2

Clojure, 59 байт

(fn f[i](conj(map f(remove #{[]}i))(count(filter #{[]}i))))

Не сильно отличается от ответа CommonLisp . Его countи, removeкажется, принять немного более приятную конструкцию, здесь я должен был использовать наборы.


2

На самом деле , 12 байтов

;[]@c@;░Q£Mo

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

Принимает ввод как разделенный запятыми список квадратных скобок с явными внешними скобками.

Объяснение:

;[]@c@;░Q£Mo
;[]@c         count the number of empty lists
     @;░      filter out empty lists
        Q£Mo  recurse with filtered list and append result

2

Python 2 , 69 46 45 байт

f=lambda l:[l.count([])]+map(f,filter(len,l))

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


Я думаю, вам нужно добавить f=к своему счету bytecount, так как вы используете функцию f, и если ее назвать иначе, это нарушит ваше решение
Лев

@ Лео Ты прав.
овс

1

Желе , 10 байт

Tị߀;@ċ“”$

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

Принимает ввод как список списков списков ...

Конечно, он использует алгоритм, который используют другие ответы. ;)


Это не 10 байтов. Это 10 символов . Количество байтов будет зависеть от того, какую кодировку вы используете.
Самади

2
@ Самади Нет, у Jelly есть специальный набор символов, который является его значением по умолчанию, и он может представлять эти символы как один байт каждый. Смотрите здесь .
Адам

Понимаю. Благодарю за разъяснение!
Самади

1

Haskell , 102 байта

data L=I Int|T[L]deriving Show
(I n:r)#m=r#(n+m)
(x:r)#m=x:r#m
_#m=[I m]
f(T[])=I 1
f(T t)=T$map f t#0

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

Поскольку Haskell строго типизирован, нет произвольно вложенных списков. В качестве средства защиты data L=I Int|T[L]deriving Showобъявляются древовидные вложенные списки с целыми или пустыми списками в качестве листьев.

Входные данные , как во втором примере формате, с дополнительным конструктором Tперед каждой открывающей скобкой: T[T[T[]],T[],T[T[]]]. То же самое относится и к выводу, где каждому числу предшествует конструктор I. Функция fвыполняет печаль .

Выходы для тестовых случаев:

T [I 3]
T [T [T [I 1],I 0],I 0]
T [T [I 1],T [I 1],I 1]
T [T [T [T [I 1],I 1],I 1],T [I 1],I 1]

1

Javascript (ES6), 77 байт

Golfed:

let m=a=>!a.length||a.map(m).reduce((b,c)=>(c.length?b.push(c):b[0]++,b),[0])

Ungolfed:

const traverse = arr => !arr.length || arr
    .map(traverse)
    .reduce(
        (accum, val) => (val.length ? accum.push(val) : accum[0]++, accum),
        [0]
    );

демонстрация

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.