Распутать двусвязные данные


12

Двусвязный список - это структура данных, в которой каждый узел имеет valueкак «ссылки», так previousи следующий nodesв списке. Например, рассмотрим следующие узлы со значениями 12, 99 и 37:

Здесь узлы со значениями 12 и 99 указывают на их соответствующие nextузлы со значениями 99 и 37 . Узел со значением 37 не имеет nextуказателя, потому что это последний узел в списке. Аналогично, узлы со значениями 99 и 37 указывают на их соответствующие previousузлы, 12 и 99 , но у 12 нет previousуказателя, потому что это первый узел в списке.

Настройка

На практике «ссылки» узла реализуются как указатели на расположение предыдущего и следующего узла в памяти. Для наших целей «память» будет массивом узлов, а местоположение узла будет его индексом в массиве. Узел может рассматриваться как три кортежа формы ( prev value next ). Приведенный выше пример может выглядеть следующим образом:

Но это может выглядеть так:

Начиная с любого узла, вы можете переходить по previousссылкам (показанным как начало красных стрелок), чтобы перейти к предшествующим узлам, и по nextссылкам (зеленые стрелки), чтобы найти последующие узлы, чтобы получить все значения узлов по порядку: [12, 99, 37],

Первая диаграмма выше может быть представлена ​​в массиве как [[null, 12, 1], [0, 99, 2], [1, 37, null]]. Второе тогда будет [[2, 99, 1], [0, 37, null], [null, 12, 0]].

Соревнование

Напишите программу, которая принимает в качестве входных данных массив узлов и индекс узла и возвращает в порядке списка значения узлов в одном и том же двусвязном списке.

Осложнение

«Память» не всегда будет содержать узлы только одного списка. Может содержать несколько списков:

Приведенный выше массив содержит три двусвязных списка, для вашего удобства выделенных цветом:

  1. Узлы в индексах 7, 10, 1, 4, 3, 12(показаны только nextссылки , чтобы уменьшить помехи, нажмите , чтобы увеличить):

    Учитывая этот массив и любой из этих индексов, ваша программа должна вернуть по порядку значения [0, 1, 1, 2, 3, 5, 8].

  2. Узел в индексе 9:

    Учитывая индекс 9, ваша программа должна вернуться [99].

  3. Узлы на индексы 11, 8, 0, 6, 2:

    Учитывая один из этих индексов, он должен вернуться [2, 3, 5, 7, 11].

правила

вход

Ваша программа получит в качестве входных данных:

  1. Список из 𝒏 узлов (3 кортежа, как описано выше), где 1 ≤ 𝒏 ≤ 1000, в любом удобном формате, например массив массивов, «плоский» массив целых чисел длиной 3𝒏 и т. Д.

    Элементы 3-кортежей могут быть в любом порядке: ( prev value next ), ( next prev value )и т.д. Для каждого узла, prevи nextбудет null(или другое удобное значение, например -1), что указывает на первый или последний узел в двусвязного списке, или действительный индекс список, 0 или 1 на основе, как это удобно. valueбудет 32-разрядным целым числом со знаком или самым большим целым числом, поддерживаемым вашим языком, в зависимости от того, что меньше.

  2. Индекс 𝒑 узла в списке (1). Указанный узел может быть первым узлом в двусвязном списке, последним узлом, средним узлом или даже единственным узлом.

Входной список (1) может содержать патологические данные (например, циклы, узлы, на которые указывают несколько других узлов и т. Д.), Но входной индекс (2) всегда будет указывать на узел, из которого может быть получен один правильно сформированный вывод. выводится.

Выход

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

выигрыш

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

Контрольные примеры

Ниже каждый тестовый пример имеет вид:

X)
prev value next, prev value next, ...
index
value value value ...

... где Xэто буква для обозначения контрольного примера, вторая строка - список ввода, третья строка - индекс ввода на основе 0, а четвертая строка - вывод.

A) null 12 1, 0 99 2, 1 37 null
   1
   12 99 37

B) 2 99 1, 0 37 null, null 12 0
   1
   12 99 37

C) 8 5 6, 10 1 4, 6 11 null, 4 3 12, 1 2 3, 12 8 null, 0 7 2, null 0 10, 11 3 0, null 99 null, 7 1 1, null 2 8, 3 5 5
   4
   0 1 1 2 3 5 8

D) 8 5 6, 10 1 4, 6 11 null, 4 3 12, 1 2 3, 12 8 null, 0 7 2, null 0 10, 11 3 0, null 99 null, 7 1 1, null 2 8, 3 5 5
   0
   2 3 5 7 11

E) 8 5 6, 10 1 4, 6 11 null, 4 3 12, 1 2 3, 12 8 null, 0 7 2, null 0 10, 11 3 0, null 99 null, 7 1 1, null 2 8, 3 5 5
   9
   99

F) 13 80 18, 18 71 null, 5 10 19, 12 1 8, 19 21 null, 31 6 2, 17 5 26, 26 0 30, 3 -1 25, null 1 23, 27 6 17, 14 1 24, 28 -1 3, null 80 0, 20 4 11, 33 6 29, 24 9 33, 10 7 6, 0 67 1, 2 15 4, 32 1 14, null 1 31, 29 3 null, 9 -1 28, 11 5 16, 8 1 null, 6 3 7, null 8 10, 23 1 12, 15 5 22, 7 9 null, 21 3 5, null 3 20, 16 2 15
   18
   80 80 67 71

G) 13 80 18, 18 71 null, 5 10 19, 12 1 8, 19 21 null, 31 6 2, 17 5 26, 26 0 30, 3 -1 25, null 1 23, 27 6 17, 14 1 24, 28 -1 3, null 80 0, 20 4 11, 33 6 29, 24 9 33, 10 7 6, 0 67 1, 2 15 4, 32 1 14, null 1 31, 29 3 null, 9 -1 28, 11 5 16, 8 1 null, 6 3 7, null 8 10, 23 1 12, 15 5 22, 7 9 null, 21 3 5, null 3 20, 16 2 15
   8
   1 -1 1 -1 1 -1 1

H) 13 80 18, 18 71 null, 5 10 19, 12 1 8, 19 21 null, 31 6 2, 17 5 26, 26 0 30, 3 -1 25, null 1 23, 27 6 17, 14 1 24, 28 -1 3, null 80 0, 20 4 11, 33 6 29, 24 9 33, 10 7 6, 0 67 1, 2 15 4, 32 1 14, null 1 31, 29 3 null, 9 -1 28, 11 5 16, 8 1 null, 6 3 7, null 8 10, 23 1 12, 15 5 22, 7 9 null, 21 3 5, null 3 20, 16 2 15
   4
   1 3 6 10 15 21

I) 13 80 18, 18 71 null, 5 10 19, 12 1 8, 19 21 null, 31 6 2, 17 5 26, 26 0 30, 3 -1 25, null 1 23, 27 6 17, 14 1 24, 28 -1 3, null 80 0, 20 4 11, 33 6 29, 24 9 33, 10 7 6, 0 67 1, 2 15 4, 32 1 14, null 1 31, 29 3 null, 9 -1 28, 11 5 16, 8 1 null, 6 3 7, null 8 10, 23 1 12, 15 5 22, 7 9 null, 21 3 5, null 3 20, 16 2 15
   14
   3 1 4 1 5 9 2 6 5 3

J) 13 80 18, 18 71 null, 5 10 19, 12 1 8, 19 21 null, 31 6 2, 17 5 26, 26 0 30, 3 -1 25, null 1 23, 27 6 17, 14 1 24, 28 -1 3, null 80 0, 20 4 11, 33 6 29, 24 9 33, 10 7 6, 0 67 1, 2 15 4, 32 1 14, null 1 31, 29 3 null, 9 -1 28, 11 5 16, 8 1 null, 6 3 7, null 8 10, 23 1 12, 15 5 22, 7 9 null, 21 3 5, null 3 20, 16 2 15
   17
   8 6 7 5 3 0 9

K) 4 11 0, null 22 3, null 33 3, 1 44 4, 3 55 null, 7 66 7, 6 77 6
   3
   22 44 55

L) null -123 null
   0
   -123



Разрешен ли ввод как три массива (один, содержащий все предшествующие узлы по порядку, одно значение и один последующий узел), или это слишком далеко от концепции кортежей?
Sanchises

Извините, слишком далеко для меня.
Иордания

Ничего страшного! Я так и думал, но я хотел опередить любые комментарии к моему ответу, говоря, что я могу сбрить два байта, используя отдельные массивы.
Sanchises

Ответы:


1

05AB1E , 25 байтов

è[¬D0‹#Isè]\[`sˆD0‹#Isè]¯

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

объяснение

è[¬D0‹#Isè]\[`sˆD0‹#Isè]¯   # Arguments n, a
è                           # Get element at index n in a
 [¬D0‹#Isè]                 # Find the first element in the list
 [                          # While true, do
  ¬                         #   Head (get index of previous element)
   D0‹#                     #   Break if lower than 0
       Isè                  #   Get the element at that index
          ]                 # End loop
           \                # Delete top element of stack
            [`sˆD0‹#Isè]    # Iterate through list
            [               # While true, do
             `sˆ            #   Add value to global array and keep next index on stack
                D0‹#Isè     #   Same as above
                       ]    # End loop
                        ¯   # Push global array

3

Haskell , 79 65 59 55 байтов

-6 байт благодаря грубой силе .

x#i|let-1!d=[];i!d=i:x!!i!!d!d=[x!!i!!1|i<-last(i!0)!2]

Определяет функцию, #которая принимает список списков целых чисел, где nullпредставлен как -1, и возвращает список значений узлов.

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

объяснение

let-1!d=[];i!d=i:x!!i!!d!d

Определите функцию, !которая перебирает узлы, начиная с узла, iи возвращает список посещенных индексов. Он принимает второй аргумент, dкоторый указывает, какой индекс «кортежа» использовать в качестве индекса следующего узла ( d==2для итерации вперед,d==0 для итерации назад).

(i!0)

Итерация в обратном направлении, начиная с данного индекса, и возврат посещенных индексов.

last(i!0)

Возьмите последний посещенный индекс, который является началом списка.

last(i!0)!2

Итерировать с начала списка.

[x!!i!!1|i<-last(i!0)!2]

Замените каждый посещенный индекс значением узла.


Вы могли бы почти написать x!!i!!1как i!1!!1, но это ломается из-за -1в выходных данных. Если вы просто выберете другое значение часового значения для представления null(скажем, -9), оно будет работать, но оно всегда будет прерываться для некоторого ввода, что довольно раздражает.
Линн

3

Python 2 , 60 байт

l,n=input()
while~n:m=n;n=l[n][0]
while~m:p,v,m=l[m];print v

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

Это в значительной степени ответ Часа Брауна, за исключением этих гольфов:

  • Я повторно использую, сохраняя назначение
  • Я храню последний действительный n в м, что позволяет мне
  • поместите отпечаток после назначения в строке 3, сохранив мне окончательный вариант
  • Я использую только ~ n вместо - ~ n, потому что отрицательные значения так же правдивы, как и положительные, экономя мне 2 символа.


2

MATL , 39 байт

XHx`HwI3$)t]x6Mt`Hwl3$)tbhwt]x4L)Hw2I$)

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

Почти прямой порт моего октавского ответа, но эта версия сначала находит конец, а затем работает наоборот, а не наоборот, что позволило сохранить один байт.

XHx           % Store array in H.
`HwI3$)t]     % Work to the end of the array
x6Mt          % Delete the end of array delimiter, and push the array end index twice
`Hwl3$)    t] % Work to the beginning of the array
       tbhw   % Append all indices found.
Hw2I$)        % Index into original array.

1

PHP, 132 байта

<?list(,$x,$y)=$argv;parse_str($x);while(($q=$x[$y*3+1])>=0)$y=$q;do{$n[]=$x[$y*3+2];$y=$x[$y*3];}while($x[$y*3]);echo join(' ',$n);

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

Ввод берутся в качестве строки запроса x[]=-1&x[]=1&x[]=1...(все узлы в плоском массиве), в порядке next, prev, то valueдля каждого узла с -1 , используемым для прекращения узлов.


1

Python 2 , 81 77 байт

a,n=input()
u=a[n][0]
while-~u:u,v,w=a[u]
while-~w:print v;u,v,w=a[w]
print v

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

РЕДАКТИРОВАТЬ: Спасибо мистеру Xcoder за 4 байта ...

Принимает список кортежей [u, v, w], где u и w равны -1, чтобы представить начало / конец сегмента связанного списка.


77 байт Попробуйте онлайн!, Булевы значения являются подклассами типа int, поэтому это только 0Falsy, и поэтому их u>=0можно использовать для гольфа, u+1и это можно еще сократить, -~uчтобы удалить пробелы.
г-н Xcoder

@Г-н. Xcoder - Да, совершенно верно!
Час Браун

1

Октава , 81 78 76 байт

function o=f(a,n)while q=a(n,1)o=a(n=q,2);end
while n=a(n,3)o=[o a(n,2)];end

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

Скорее простая версия. Объяснение оставлено в качестве упражнения для читателя. Гораздо более интересная версия представлена ​​ниже:

Октава , 142 99 92 байта

@(a,n)[(p=@(b,c,z){q=a(z,2),@()[b(b,c,a(z,c)),q]}{2-~a(z,c)}())(p,1,n),p(p,3,n)(end-1:-1:1)]

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

Эй, я слышал, тебе понравились анонимные функции ...

Принимает nx3массив с первым столбцом предшественником, вторым столбцом значением и третьим значением узлов-преемников. Все индексы узлов основаны на 1, что является значением по умолчанию в Octave.

% Create an anonymous function, taking an array a and first node n
@(a,n)
% Returns an array containing the predecessor and sucessor nodes
      [                                                                     ,                     ]
% Defines an recursive anonymous function (by supplying itself to the local namespace)
% which looks at the first column (c=1) or last column (c=3) of the input array to get the next nodes
       (p=@(p,c,z)                                                   )(p,1,n)
% Create a cell array, either containing the end node,
                    {q=a(z,2),                       
% ...or an array with all next  next nodes and the current node
% (note the use of an anonymous function taking no parameters to defer array access, in case of the last node)                
                              @()[p(p,c,a(z,c)),q]}
% depending whether the next node number is nonzero (followed by () to execute the deferred array access)
                                                    {2-~a(z,c)}()
% Do the same with c=3, reverse (function p builds the array right-to-left) and drop the current node to prevent a duplicate.                                                                             
                                                                             p(p,3,n)(end-1:-1:1)

1

Котлин , 85 байт

{g,S->generateSequence(generateSequence(S){g[it][0]}.last()){g[it][2]}.map{g[it][1]}}

украшенный

{g,S->
    generateSequence(generateSequence(S){g[it][0]}.last()){ g[it][2]}.map { g[it][1] }
}

Тестовое задание

typealias Node=Triple<Int?,Int?,Int?>
data class Test(val input: List<Node>, val start:Int, val result: List<Int>)
val TEST = listOf<Test>(
Test(
listOf(Node(null, 12, 1), Node(0, 99, 2), Node(1, 37, null)),
1,
listOf(12, 99, 37)
),
Test(listOf(
Node(2, 99, 1), Node(0, 37, null), Node(null, 12, 0)),
1,
listOf(12, 99, 37)
),
Test(
listOf(Node(8, 5, 6), Node(10, 1, 4), Node(6, 11, null), Node(4, 3, 12), Node(1, 2, 3), Node(12, 8, null), Node(0, 7, 2), Node(null, 0, 10), Node(11, 3, 0), Node(null, 99, null), Node(7, 1, 1), Node(null, 2, 8), Node(3, 5, 5)),
4,
listOf(0, 1, 1, 2, 3, 5, 8)
),
Test(
listOf(Node(8, 5, 6), Node(10, 1, 4), Node(6, 11, null), Node(4, 3, 12), Node(1, 2, 3), Node(12, 8, null), Node(0, 7, 2), Node(null, 0, 10), Node(11, 3, 0), Node(null, 99, null), Node(7, 1, 1), Node(null, 2, 8), Node(3, 5, 5)),
0,
listOf(2, 3, 5, 7, 11)
),
Test(
listOf(Node(8, 5, 6), Node(10, 1, 4), Node(6, 11, null), Node(4, 3, 12), Node(1, 2, 3), Node(12, 8, null), Node(0, 7, 2), Node(null, 0, 10), Node(11, 3, 0), Node(null, 99, null), Node(7, 1, 1), Node(null, 2, 8), Node(3, 5, 5)),
9,
listOf(99)
),
Test(
listOf(Node(13, 80, 18), Node(18, 71, null), Node(5, 10, 19), Node(12, 1, 8), Node(19, 21, null), Node(31, 6, 2), Node(17, 5, 26), Node(26, 0, 30), Node(3, -1, 25), Node(null, 1, 23), Node(27, 6, 17), Node(14, 1, 24), Node(28, -1, 3), Node(null, 80, 0), Node(20, 4, 11), Node(33, 6, 29), Node(24, 9, 33), Node(10, 7, 6), Node(0, 67, 1), Node(2, 15, 4), Node(32, 1, 14), Node(null, 1, 31), Node(29, 3, null), Node(9, -1, 28), Node(11, 5, 16), Node(8, 1, null), Node(6, 3, 7), Node(null, 8, 10), Node(23, 1, 12), Node(15, 5, 22), Node(7, 9, null), Node(21, 3, 5), Node(null, 3, 20), Node(16, 2, 15)),
18,
listOf(80, 80, 67, 71)
),
Test(
listOf(Node(13, 80, 18), Node(18, 71, null), Node(5, 10, 19), Node(12, 1, 8), Node(19, 21, null), Node(31, 6, 2), Node(17, 5, 26), Node(26, 0, 30), Node(3, -1, 25), Node(null, 1, 23), Node(27, 6, 17), Node(14, 1, 24), Node(28, -1, 3), Node(null, 80, 0), Node(20, 4, 11), Node(33, 6, 29), Node(24, 9, 33), Node(10, 7, 6), Node(0, 67, 1), Node(2, 15, 4), Node(32, 1, 14), Node(null, 1, 31), Node(29, 3, null), Node(9, -1, 28), Node(11, 5, 16), Node(8, 1, null), Node(6, 3, 7), Node(null, 8, 10), Node(23, 1, 12), Node(15, 5, 22), Node(7, 9, null), Node(21, 3, 5), Node(null, 3, 20), Node(16, 2, 15)),
8,
listOf(1, -1, 1, -1, 1, -1, 1)
),
Test(
listOf(Node(13, 80, 18), Node(18, 71, null), Node(5, 10, 19), Node(12, 1, 8), Node(19, 21, null), Node(31, 6, 2), Node(17, 5, 26), Node(26, 0, 30), Node(3, -1, 25), Node(null, 1, 23), Node(27, 6, 17), Node(14, 1, 24), Node(28, -1, 3), Node(null, 80, 0), Node(20, 4, 11), Node(33, 6, 29), Node(24, 9, 33), Node(10, 7, 6), Node(0, 67, 1), Node(2, 15, 4), Node(32, 1, 14), Node(null, 1, 31), Node(29, 3, null), Node(9, -1, 28), Node(11, 5, 16), Node(8, 1, null), Node(6, 3, 7), Node(null, 8, 10), Node(23, 1, 12), Node(15, 5, 22), Node(7, 9, null), Node(21, 3, 5), Node(null, 3, 20), Node(16, 2, 15)),
4,
listOf(1, 3, 6, 10, 15, 21)
),
Test(
listOf(Node(13, 80, 18), Node(18, 71, null), Node(5, 10, 19), Node(12, 1, 8), Node(19, 21, null), Node(31, 6, 2), Node(17, 5, 26), Node(26, 0, 30), Node(3, -1, 25), Node(null, 1, 23), Node(27, 6, 17), Node(14, 1, 24), Node(28, -1, 3), Node(null, 80, 0), Node(20, 4, 11), Node(33, 6, 29), Node(24, 9, 33), Node(10, 7, 6), Node(0, 67, 1), Node(2, 15, 4), Node(32, 1, 14), Node(null, 1, 31), Node(29, 3, null), Node(9, -1, 28), Node(11, 5, 16), Node(8, 1, null), Node(6, 3, 7), Node(null, 8, 10), Node(23, 1, 12), Node(15, 5, 22), Node(7, 9, null), Node(21, 3, 5), Node(null, 3, 20), Node(16, 2, 15)),
14,
listOf(3, 1, 4, 1, 5, 9, 2, 6, 5, 3)
),
Test(
listOf(Node(13, 80, 18), Node(18, 71, null), Node(5, 10, 19), Node(12, 1, 8), Node(19, 21, null), Node(31, 6, 2), Node(17, 5, 26), Node(26, 0, 30), Node(3, -1, 25), Node(null, 1, 23), Node(27, 6, 17), Node(14, 1, 24), Node(28, -1, 3), Node(null, 80, 0), Node(20, 4, 11), Node(33, 6, 29), Node(24, 9, 33), Node(10, 7, 6), Node(0, 67, 1), Node(2, 15, 4), Node(32, 1, 14), Node(null, 1, 31), Node(29, 3, null), Node(9, -1, 28), Node(11, 5, 16), Node(8, 1, null), Node(6, 3, 7), Node(null, 8, 10), Node(23, 1, 12), Node(15, 5, 22), Node(7, 9, null), Node(21, 3, 5), Node(null, 3, 20), Node(16, 2, 15)),
17,
listOf(8, 6, 7, 5, 3, 0, 9)
),
Test(
listOf(Node(4, 11, 0), Node(null, 22, 3), Node(null, 33, 3), Node(1, 44, 4), Node(3, 55, null), Node(7, 66, 7), Node(6, 77, 6)),
3,
listOf(22, 44, 55)
),
Test(
listOf(Node(null, -123, null)),
0,
listOf(-123)
)
)

var f:(List<List<Int?>>,Int)-> Sequence<Int?> =
{g,S->generateSequence(generateSequence(S){g[it][0]}.last()){g[it][2]}.map{g[it][1]}}

fun main(args: Array<String>) {
    for ((input, start, result) in TEST) {
        val out = f(input.map { it.toList() }, start).toList()
        if (out != result) {
            throw AssertionError("$input $start $result $out")
        }
    }
}

TIO

TryItOnline


Я просто хочу, чтобы generateSequence была короче
jrtapsell

0

JavaScript ES6, 70 63 байта

(x,i,a)=>(h=_=>i&&h(a(x[i].v),i=x[i].n))(x.map(_=>i=x[i].p||i))

Прецедент:

F([undefined,{p:0,v:12,n:2},{p:1,v:99,n:3},{p:2,v:37,n:0}],1,alert)

В alertпотребности быть в основной части вашей функции и засчитаны ваш общий байт.
Лохматый


+10 / -9 не является консенсусом.
Лохматый

Я не вижу точных + и - с. Кроме того, это предполагаемый способ вывода JavaScript, и единственный способ, когда вывод имеет некоторую задержку
l4m2
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.