F # string manipülasyonunun optimizasyonu

Question

Sadece F # öğreniyorum ve C# uzantısı yöntemlerini bir kitaplığa F # dönüştürüyorum. Şu anda altına C# uygulamasına dayalı ConvertFirstLetterToUppercase adlı bir işlev uygulama üzerinde çalışıyorum:

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); 
} 

F # uygulaması

[<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()) 

Birisi bana daha doğal F # kullanan bir daha özlü uygulanmasını gösterebilir sözdizimi?

Answer 1

şey?

[<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

aşağıdaki

[<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) 

tryFind işlev lambda true döndürdüğü ilk elemanı döndürür inceleyin. Her zaman doğru döndüğü için ilk elemanı veya None'u döndürür. En az bir öğe olduğunda oluşturduktan sonra size datanull değil biliyorum ve dolayısıyla alt dize arayabilir

Answer 3

open System 

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

Kullanımı: Böyle

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

Answer 4

.NET kitaplık işlevlerini bir .NET dilinden kullanmanın bir sorunu yoktur. Belki C# uzantısı yönteminizin doğrudan çevirisi, özellikle böyle basit bir işlev için en uygunudur. Juliet gibi dilbilgisi sözdizimini kullanmak cazip olsa da, sadece iyi olduğu için.

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..]