Create a gist now

Instantly share code, notes, and snippets.

iterator block gotcha sample code - F# equivalent
// Learn more about F# at http://fsharp.net
open System
let showMemory( msg : string) =
let memory = GC.GetTotalMemory(true)
Console.WriteLine("{0, -30} {1}", msg + ":", memory)
let main ()=
let source = seq {0 .. 1000000}
let query = Seq.distinct source
showMemory("Before Count()")
Seq.length query |> ignore
showMemory("After Count()")
GC.KeepAlive(query)
showMemory("After query eligible for GC")
main()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment