F# - 将列表中的第一个字符串大写

Question

在下面显示的代码中，我尝试将第一个字符串的第一个字母更改为大写，并设置一个问号:

let strList = ["are"; "you"; "hungry"]

let rec add l = match l with
                |[] -> ["?"]
                |x::xs -> x::(add xs)

add strList

我设法修复了最后的问号并取回了此列表:

["are"; "you"; "hungry"; "?"]

是否有关于如何在递归函数 add 中将 are 中的第一个字母更改为 Are 的想法？

Answer 1

您可以添加一个新函数，它将正确的转换应用于输入列表中的第一个元素，并调用您已有的其余元素的递归函数:

open System

let strList = ["are"; "you"; "hungry"]

let add l =
  let rec add l =
    match l with
    | [] -> ["?"]
    | x::xs -> x::(add xs)

  let upper (s: string) =
    s |> Seq.mapi (fun i c -> match i with | 0 -> (Char.ToUpper(c)) | _ -> c)  |> String.Concat

  match l with 
  | [] -> add l
  | x :: xs -> (upper x) :: (add xs)

add strList

输出正如您所期望的:

val strList : string list = ["are"; "you"; "hungry"]
val add : l:string list -> string list
val it : string list = ["Are"; "you"; "hungry"; "?"]