Come modificare l'elenco dei caratteri in stringa?

Question

In F # voglio trasformare una lista di caratteri in una stringa. Si consideri il seguente codice:

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

Se faccio semplicemente lChars.ToString, ottengo "[ 'a'; 'b'; 'c']". Sto cercando di ottenere "abc". Mi rendo conto che potrei probabilmente fare un List.reduce per ottenere l'effetto che sto cercando, ma sembra che ci dovrebbe essere qualche primitivo costruito nella libreria per farlo.

Per dare un piccolo contesto a questo, sto facendo qualche manipolazione sui singoli caratteri in una stringa e quando ho finito, voglio visualizzare la stringa risultante.

Ho provato a googling questo e nessuna gioia in questo modo. Devo solo mordere il proiettile e creare un'espressione List.reduce per eseguire questa trasformazione o esiste un modo più elegante per farlo?

Answer 1

Hai provato

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

Answer 2

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

Modificato: Qui è un altro modo divertente per fare il vostro compito:

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 

Purtroppo, solo estendendo System.String con gli 'Zero' non permette di usare List.sum con le stringhe.

Modificato (risposta a Juilet): Sì, hai ragione, la piega a sinistra è lenta. Ma so più lento destra piegare :):

#r "FSharp.PowerPack" 

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

e, naturalmente, non v'è semplice e veloce:

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

Answer 3

In quanti modi si può costruire una stringa in F #? Ecco un altro pugno:

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: timing può essere interessante? Ho girato hw1..3 in funzioni e nutriti loro una lista di 500000 caratteri casuali:

• HW1: 51MS
• HW2: 16ms
• HW3: ehm ... abbastanza a lungo per crescere la barba? Penso che abbia mangiato tutta la mia memoria.

Answer 4

e ho usato 'sprintf' mi sembra più facile:

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

La seguente soluzione funziona per me:

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

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

let resultBuildString = buildString charList