Question

这是我的代码：

module RTX

open System
open System.Text.RegularExpressions

let input = "Line 1: Num allocs:3 New:2 Delete:1
Line 2: Num allocs:3 New:2 Delete:1
Line 3: Num allocs:3 New:2 Delete:1"

type AllocResult = { lineNo:string; numAllocs:string; news:string; frees:string }

let matches = Regex.Matches(input,@"Line (\d+): Num allocs:(\d+) New:(\d+) Delete:(\d+)",RegexOptions.Singleline)
let matchCollection = [ for m in matches do if m.Success then yield [for l in m.Groups -> l.Value]]
let allocCreator (e: string list) = { lineNo = e.[0]; numAllocs = e.[1]; news = e.[2]; frees = e.[3] }
let wfirst = List.map allocCreator List.map List.tail matchCollection

List.iter (fun e -> printfn "%s\n") wfirst
//List.iter (printfn "%s\n") matchCollection
Console.ReadLine()

我收到的错误是：This value is not a function and cannot be applied (FS0003)，它出现在List.map allocCreator部分。基本上，我想删除匹配匹配的字符串，并仅保留记录中的捕获。

编辑：我会尝试解释一下我想要实现的目标。匹配结果将是这样的：

[ "Line 1: Num allocs:3 New:2 Delete:1"; "1"; "3"; "2"; "1"; ]

通过使用let matchCollection = [ for m in matches do if m.Success then yield [for l in m.Groups -> l.Value]]，我试图获取列表列表，如下所示：

[["Line 1: Num allocs:3 New:2 Delete:1"; "1"; "3"; "2"; "1"; ];["Line 2: Num allocs:3 New:2 Delete:1";"2"; "3"; "2"; "1"; ]; ["Line 3: Num allocs:3 New:2 Delete:1";"3"; "3"; "2"; "1"]]

通过使用List.map List.tail matchCollection，我试图从上面的列表中获取：

[["1"; "3"; "2"; "1"; ];["2"; "3"; "2"; "1"; ]; [;"3"; "3"; "2"; "1"]]

通过使用List.map allocCreator我试图将上面的列表变成记录列表。我对F＃有点新意，我的逻辑错了，但我不明白为什么/在哪里。

编辑2：这似乎是一个优先问题。如果我这样做：

let wfirst = List.map allocCreator (List.map List.tail matchCollection);;

然后我得到了我需要的东西。

Answer 1

不确定你想要用那条线实现什么，但是让我们看看尝试找出它的类型

首先

List.map allocCreater

这已经不正确了，map的第一个参数需要有'a -> 'b类型，但你已经给出了一个列表

List.map List.tail matchCollection

这是string list list

我不知道你实际上想要在这里得到什么，但你似乎是一个功能短或有太多的列表

Answer 2

let wfirst = List.map allocCreator <| List.map List.tail matchCollection
List.iter (printfn "%A\n") wfirst

如何修复此FS00003错误？

2 个答案: