Optimización de la manipulación de la secuencia F #

Question

Acabo de aprender F # y he estado convirtiendo una biblioteca de métodos de extensión C# en F #. Actualmente estoy trabajando en la implementación de una función llamada ConvertFirstLetterToUppercase basado en la C# aplicación a continuación:

public static string ConvertFirstLetterToUppercase(this string value) { 
    if (string.IsNullOrEmpty(value)) return value; 
    if (value.Length == 1) return value.ToUpper(); 
    return value.Substring(0, 1).ToUpper() + value.Substring(1); 
} 

El F # aplicación

[<System.Runtime.CompilerServices.ExtensionAttribute>] 
module public StringHelper 
    open System 
    open System.Collections.Generic 
    open System.Linq 

    let ConvertHelper (x : char[]) = 
     match x with 
      | [| |] | null -> "" 
      | [| head; |] -> Char.ToUpper(head).ToString() 
      | [| head; _ |] -> Char.ToUpper(head).ToString() + string(x.Skip(1).ToArray()) 

    [<System.Runtime.CompilerServices.ExtensionAttribute>] 
    let ConvertFirstLetterToUppercase (_this : string) = 
     match _this with 
     | "" | null -> _this 
     | _ -> ConvertHelper (_this.ToCharArray()) 

Alguien me puede mostrar una aplicación más concisa utilizando más natural F # ¿sintaxis?

Answer 1

Algo como esto?

[<System.Runtime.CompilerServices.ExtensionAttribute>] 
module public StringHelper = 
[<System.Runtime.CompilerServices.ExtensionAttribute>] 
let ConvertFirstLetterToUppercase (t : string) = 
    match t.ToCharArray() with 
    | null -> t 
    | [||] -> t 
    | x -> x.[0] <- Char.ToUpper(x.[0]); System.String(x) 

Answer 2

intente lo siguiente

[<System.Runtime.CompilerServices.ExtensionAttribute>] 
module StringExtensions = 
    let ConvertFirstLetterToUpperCase (data:string) = 
     match Seq.tryFind (fun _ -> true) data with 
     | None -> data 
     | Some(c) -> System.Char.ToUpper(c).ToString() + data.Substring(1) 

La función tryFind devolverá el primer elemento para el que el lambda vuelve true. Como siempre devuelve verdadero, simplemente devolverá el primer elemento o None. Una vez que haya establecido que hay al menos un elemento sabes data ¿no null y por lo tanto puede llamar Subcadena

Answer 3

open System 

type System.String with 
    member this.ConvertFirstLetterToUpperCase() = 
     match this with 
     | null -> null 
     | "" -> "" 
     | s -> s.[0..0].ToUpper() + s.[1..] 

Uso:

> "juliet".ConvertFirstLetterToUpperCase();; 
val it : string = "Juliet" 

Answer 4

No hay nada de malo con el uso de las funciones de biblioteca .NET desde un idioma .NET. Quizás una traducción directa de su método de extensión C# sea la más apropiada, particularmente para una función tan simple. Aunque estaría tentado de utilizar la sintaxis de corte como lo hace Juliet, simplemente porque es genial.

open System 
open System.Runtime.CompilerServices 

[<Extension>] 
module public StringHelper = 

    [<Extension>] 
    let ConvertFirstLetterToUpperCase(this:string) = 
     if String.IsNullOrEmpty this then this 
     elif this.Length = 1 then this.ToUpper() 
     else this.[0..0].ToUpper() + this.[1..]