使用作家單子#尾遞歸 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
我需要提取,沒有任何屬於記錄所有線路(所以第一個和兩個下方) (實際的文件有更多這樣的記錄,所以對第一行和第二行以下的內容不是有效的