f# 使用 ac# 库中的函数迭代两个数组

Question

我有一个单词列表和相关词性标签列表。我想使用每个索引元组作为 .NET 函数的输入同时（匹配索引）迭代两者。这是最好的方法吗（它有效，但对我来说感觉不自然）：

let taggingModel = SeqLabeler.loadModel(lthPath + 
                      "models\penn_00_18_split_dict.model");
let lemmatizer = new Lemmatizer(lthPath + "v_n_a.txt")
let input = "the rain in spain falls on the plain"

let words = Preprocessor.tokenizeSentence( input )
let tags = SeqLabeler.tagSentence( taggingModel, words )
let lemmas = Array.map2 (fun x y -> lemmatizer.lookup(x,y)) words tags

Answer 1

您的代码对我来说看起来相当不错 - 其中大部分涉及一些加载和初始化，因此您无法做太多事情来简化该部分。除了 Array.map2 之外，您还可以将 Seq.zip 与 Seq.map 结合使用 - zip 函数结合了将两个序列合并为一个包含具有匹配索引的元素对的序列：

let lemmas = Seq.zip words tags 
          |> Seq.map (fun (x, y) -> lemmatizer.lookup (x, y)) 

由于 lookup 函数采用您获得的元组作为参数，因此您可以编写：

// standard syntax using the pipelining operator
let lemmas = Seq.zip words tags |> Seq.map lemmatizer.lookup

// .. an alternative syntax doing exactly the same thing
let lemmas = (words, tags) ||> Seq.zip |> Seq.map lemmatizer.lookup

||> 运算符采用包含两个值的元组，并将它们作为两个参数传递给右侧的函数，这意味着 (a, b) ||> 。 f 表示 fa b。 |> 运算符仅采用左侧的单个值，因此 (a, b) |> f 表示 f (a, b) （如果函数 f 需要元组而不是两个空格分隔的参数，则该函数可以工作）。

如果您需要 lemmas 在末尾成为一个数组，则需要将 Array.ofSeq 添加到处理管道的末尾（所有 Seq code> 函数使用序列，对应于 IEnumerable）

另一种选择是使用序列表达式（您可以使用 [| .. |] 构造一个直接数组（如果您需要的话）：

let lemmas = [| for wt in Seq.zip words tags do // wt is tuple (string * string)
                  yield lemmatizer.lookup wt |] 

是否使用序列表达式 - 这只是个人喜好。在这种情况下，第一个选项似乎更简洁，但对于不太熟悉部分函数应用程序等内容的人来说，序列表达式可能更具可读性（在使用 Seq.map 的较短版本中）