f# - Split item in list while keeping the order

Question

I have a list of items looking something like this:

let myList = [ "One"; "Two"; "Three and Four"; "Five"; "and Six"; "Seven and"; "Nine and Ten and Eleven" ]

I need to split every item containing the word and into separate items and re-insert them into the list, while keeping the order. Is there any elegant and efficient way how to do this? Currently I am using a loop and mutable list for aggregation:

let mutable result = []
for item in myList do
  let split = item.Split("and", StringSplitOptions.RemoveEmptyEntries)
  for subItem in split do
    result <- subItem::result
    
List.rev result

I have a suspicion that there is a better way to do this (more functional, less C#-y), but I cannot find out how to do it.

Answer 1

Some one better at FP might come and improve this because I am also still learning things but here is my take.

let myList = [ "One"; "Two"; "Three and Four"; "Five"; "and Six"; "Seven and"; "Nine and Ten and Eleven" ]

myList
|> Seq.collect (fun x -> x.Split("and", StringSplitOptions.RemoveEmptyEntries))
|> Seq.toList