Làm thế nào để thay đổi danh sách ký tự thành chuỗi?

Question

Trong F # tôi muốn chuyển đổi một danh sách các ký tự thành một chuỗi. Xét đoạn mã sau:

let lChars = ['a';'b';'c'] 

Nếu tôi chỉ đơn giản là làm lChars.ToString, tôi nhận được "[ 'a'; 'b'; 'c']". Tôi đang cố gắng để có được "abc". Tôi nhận ra rằng tôi có thể làm List.reduce để có được hiệu ứng tôi đang tìm kiếm nhưng có vẻ như có một số nguyên thủy được xây dựng trong thư viện để làm điều này.

Để đưa ra một ngữ cảnh nhỏ cho điều này, tôi đang thực hiện một số thao tác trên các ký tự riêng lẻ trong một chuỗi và khi tôi hoàn thành, tôi muốn hiển thị chuỗi kết quả.

Tôi đã cố gắng googling này và không có niềm vui theo cách đó. Tôi có cần phải chỉ cần cắn viên đạn và xây dựng một biểu thức List.reduce để làm điều này chuyển đổi hoặc là có một số cách thanh lịch hơn để làm điều này?

Answer 1

Các bạn đã thử

System.String.Concat(Array.ofList(lChars)) 

Answer 2

['a';'b';'c'] |> List.fold_left (fun acc c -> acc^(string c)) "" 

được sửa đổi: đây lại là một cách hài hước để làm nhiệm vụ của bạn:

type t = 
    | N 
    | S of string 
    static member Zero 
    with get() = N 
    static member (+) (a: t, b: t) = 
    match a,b with 
     | S a, S b -> S (a+b) 
     | N, _ -> b 
     | _, N -> a 

let string_of_t = function 
    |N -> "" 
    |S s -> s 

let t_of_char c = S (string c) 

['a'; 'b'; 'c'] |> List.map t_of_char |> List.sum |> string_of_t 

Đáng buồn thay, chỉ cần mở rộng System.String với thành viên 'Zero' không cho phép sử dụng List.sum với chuỗi.

Đã chỉnh sửa (câu trả lời cho Juilet): Có, bạn nói đúng, gấp trái là chậm. Nhưng tôi biết chậm hơn đúng gấp :):

#r "FSharp.PowerPack" 

List.fold_right (String.make 1 >> (^)) ['a';'b';'c'] "" 

và dĩ nhiên là có nhanh chóng và đơn giản:

new System.String(List.to_array ['1';'2';'3']) 

Answer 3

Có bao nhiêu cách để bạn có thể xây dựng một chuỗi trong F #? Dưới đây là một số ít:

let chars = ['H';'e';'l';'l';'o';',';' ';'w';'o';'r';'l';'d';'!'] 

//Using an array builder 
let hw1 = new string [|for c in chars -> c|] 

//StringBuilder-Lisp-like approach 
open System.Text 
let hw2 = 
    string (List.fold (fun (sb:StringBuilder) (c:char) -> sb.Append(c)) 
         (new StringBuilder()) 
         chars) 

//Continuation passing style 
let hw3 = 
    let rec aux L k = 
     match L with 
     | [] -> k "" 
     | h::t -> aux t (fun rest -> k (string h + rest)) 
    aux chars id 

Edit: timings có thể thú vị? Tôi quay hw1..3 vào chức năng và nuôi dưỡng họ một danh sách 500000 ký tự ngẫu nhiên:

• hw1: 51ms
• hw2: 16ms
• hw3: er ... đủ lâu để phát triển một bộ râu? Tôi nghĩ nó chỉ ăn hết bộ nhớ của tôi.

Answer 4

Và tôi sử dụng 'sprintf' Dường như với tôi dễ dàng hơn:

let t = "Not what you might expect" 
let r = [ for i in "aeiou" -> i] 
let q = [for a in t do if not (List.exists (fun x -> x=a) r) then yield a] 
let rec m = function [] -> "" | h::t -> (sprintf "%c" h) + (m t) 
printfn "%A" (m q) 

Answer 5

Các giải pháp sau đây làm việc cho tôi:

let charList = ["H";"E";"L";"L";"O"] 

let rec buildString list = 
    match list with 
    | [] -> "" 
    | head::tail -> head + (buildString tail) 

let resultBuildString = buildString charList