使用作家单子#尾递归 let inline bind ma fm =
let (Writer (a, log1)) = ma
let mb = fm a
let (Writer (b, log2)) = mb
let sum = (^w : (static member add : ^w * ^w -> ^w) (log1, log2))
Writ
我有一个DNS区域文件看起来像以下: record A 1.1.1.1
A 1.1.1.2
A 1.1.1.3
other_record A 1.1.1.4
A 1.1.1.5
another_rec A 1.1.1.6
我需要提取,没有任何属于记录所有线路(所以第一个和两个下方) (实际的文件有更多这样的记录,所以对第一行和第二行以下的内容不是有效的