F # как присоединиться к массиву строк только тогда, когда они не являются пустыми или пустыми

Question

У меня есть код ниже F #, который работает, чтобы объединить 4 строки, разделяя пробел, включая только те, которые не являются ни пустыми, ни пустыми ,

let street = 
    split.[5..8] 
    |> Array.filter (String.IsNullOrWhiteSpace >> not) 
    |> String.concat " " 

Это работает очень хорошо, но менее результативно, чем приведенная ниже реализация C#.

var street = ""; 
if (!string.IsNullOrWhiteSpace(items[5])) 
    street += items[5]; 
if (!string.IsNullOrWhiteSpace(items[6])) 
    street += string.IsNullOrWhiteSpace(street) ? items[6] : " " + items[6]; 
if (!string.IsNullOrWhiteSpace(items[7])) 
    street += string.IsNullOrWhiteSpace(street) ? items[7] : " " + items[7]; 
if (!string.IsNullOrWhiteSpace(items[8])) 
    street += string.IsNullOrWhiteSpace(street) ? items[8] : " " + items[8]; 
return street; 

Есть ли способ, которым я могу достичь того же стиля реализации в F #, вместо использования встроенных функций?

Answer 1

Благодаря @Gustavo за предположение StringBuilder :)

let otherStreet = 
    let sb = new StringBuilder() 
     for i = 5 to 8 do 
      if not (String.IsNullOrWhiteSpace split.[i]) then 
       if sb.Length = 0 then 
        sb.Append split.[i] |> ignore 
       else 
        sb.Append " " |> ignore 
        sb.Append split.[i] |> ignore 
    sb.ToString() 

Answer 2

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

let otherStreet = 
    let combine (sb:StringBuilder) (s:String) = 
    if sb.Length = 0 then 
     sb.Append s 
    else 
     (sb.Append " ").Append s 

    split.[5..8] 
    |> Seq.filter (String.IsNullOrWhiteSpace >> not) 
    |> Seq.fold combine (StringBuilder()) 
    |> (fun sb -> sb.ToString()) 

В любое время, когда мне нужно накопить результат из последовательности, я склонен использовать сгиб, а не явный цикл. В коде могут быть опечатки и/или thinkos, так как у меня не было компилятора, чтобы проверить его. Я также поспорю, что эта версия работает несколько хуже, чем ваша реализация, но ее можно легко скомпоновать с неиндексированными коллекциями в качестве компромисса.

Answer 3

Если вы хотите, чтобы пройти через массив только один раз, то этот подход может работать для вас:

let street = Array.fold (fun x y -> if white y then x elif x="" then x+y else x+" "+y) "" 
street (split.[5..8]) 

, где «белый» означает «String.IsNullOrWhiteSpace».