findduptreeconflict.fs

// scrip for finding problem "svn: Attempt to add tree conflict that already exists"
open System.IO

let logLines = 
    File.ReadAllLines @"C:\USERS\Visual Studio 2008\Projects\FindDup\FindDup\svnlog.txt"
    |> Seq.filter (fun x -> x.StartsWith("Tree conflict:"))
    |> Seq.groupBy (fun x -> x)
    |> Seq.map (fun (key, vals) -> key, Seq.length vals)
    |> Seq.filter (fun (_, count) -> count > 1)

Seq.iter (printfn "%A") logLines