Question

我写了这段代码来递归复制我的列表：

let sp = [2;4;6;8;10]
let copy (s1:'a list) =
let rec copy acc ind = 
    if(ind>=0) then
        copy (s1.[ind]::acc) (ind-1)
    else acc
copy [] (s1.Length-1)


sp |> copy |> printfn "%A"

如何让这段代码更容易？

Answer 1

执行列表查找（以及获取列表的长度）效率不高，因为库需要遍历整个列表（或前N个元素）。出于这个原因，在F＃中这样做并不是真正的惯用语。

你仍然可以保留代码的大部分结构，但是有点像这样改变它：

let copy input =
  let rec copy acc input =
    match input with
    | [] -> List.rev acc
    | x::xs -> copy (x::acc) xs
  copy [] input

变化是：

我们在输入上使用模式匹配并始终获取第一个元素
由于我们以相反的顺序将项目追加到acc，我们会调用List.rev来反转结果（这是处理列表时的标准技巧）

F＃ - 复制列表的递归函数

1 个答案: