Läsa kataloger parallellt med F#

Om du slänger på

|> Seq.fold Seq.append Seq.empty

så att du får

let rec GetDirrs root =
    Seq.append
        (root |> Directory.GetFiles |> Array.filter(fun x -> x.ToLower().EndsWith(".exe")) |> Array.toSeq)
        (Async.Parallel[for subdir in Directory.GetDirectories(root) -> async{ return GetDirrs subdir}] |> Async.RunSynchronously |> Seq.fold Seq.append Seq.empty)

så fungerar det.

Ett tips är att om du explicit skriver in typen på funktionen du skriver så kan det bli lättare att hitta felet, för då försöker inte kompilatorn att hitta på en ny typ som inte stämmer pga något annat fel i funktionen.

let rec GetDirs (root:string) : seq<string> = ...

Genom att använda funktionen collect så kan man skriva funktionen så här:

let rec GetDirs path =
    Array.append 
        (path |> Directory.GetFiles |> Array.filter (fun x -> x.ToLower().EndsWith(".exe")))
        (path |> Directory.GetDirectories |> Array.Parallel.collect GetDirs)

Då kan man lätt byta Array.Parallel.collect mot Array.collect ifall man vill köra sekventiellt istället.

Som gothxx misstänkte så går det i praktiken väldigt mycket långsammare att köra det här parallellt, antagligen för att trycket på filsystemet gör att det chokar.