Come utilizzare Flatten a un elemento specifico di un elenco

Question

Diciamo che ho una lista {{1, 2, 3}, {4, 5}, ...}. Voglio che la lista assomigli {1, 2, 3, {4, 5}, ...}. Sto facendo in questo modo:

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

Questo mi sta dando il risultato corretto. Ma esiste un modo semplice per farlo?

Answer 1

Per appiattire il primo elenco in un elenco di elenchi:

Append @@ list

{1, 2, 3, {4, 5}}

{##& @@ #,##2}& @@ list

{1, 2, 3, {4, 5}}

In generale, oltre a quanto FlattenAt[list, 1]suggerito da Rohit nei commenti, puoi usare

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