/program.fs
Created Jan 20, 2011
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