Cómo usar Flatten para un elemento específico de una lista

Aug 15 2020

Digamos que tengo una lista {{1, 2, 3}, {4, 5}, ...}. Quiero que la lista se vea así {1, 2, 3, {4, 5}, ...}. Lo estoy haciendo de esta manera:

list = {{1, 2, 3}, {4, 5}};
list2 = Flatten[list[[1]], 1];
list3 = Append[list2, list[[2]]]

Esto me está dando un resultado correcto. ¿Pero hay alguna manera fácil de hacer esto?

Respuestas

10 kglr Aug 15 2020 at 22:30

Para acoplar la primera lista en una lista de listas:

Append @@ list
{1, 2, 3, {4, 5}}
{##& @@ #,##2}& @@ list
{1, 2, 3, {4, 5}}

En general, además de lo FlattenAt[list, 1]sugerido por Rohit en los comentarios, puede usar

MapAt[Splice, list, {1}] (* in versions 12.1+ *)

MapAt[Apply[Sequence], list, {1}]

MapAt[Sequence&, list, {1, 0}]

ReplacePart[list, {1, 0} -> Sequence]

l = list; l[[1]] = Splice[l[[1]]]; l

l = list; l[[1,0]] = Sequence; l