simple_serialization.fs

open System
open System.IO
open System.Runtime.Serialization.Formatters.Binary

let filename = @"E:\binary";

let data = [
    "This", 1
    "is", 2
    "just", 3
    "some", 4
    "data", 5
    "to", 6
    "serialize", 7
            ] |> Map.ofList

let serialize () =
    use stream = File.Create filename
    let formatter = new BinaryFormatter ()
    Console.WriteLine "Serializing vector"
    formatter.Serialize (stream, data)

let deserialize () =
    use stream = File.OpenRead filename
    let formatter = new BinaryFormatter ()
    Console.WriteLine "Deserializing vector"
    match formatter.Deserialize stream with
    | :? Map<string, int> as deserialized ->
        if deserialized = data then
            Console.WriteLine "deserialize good"
        else 
            Console.WriteLine "deserialize bad"
    | _ -> Console.WriteLine "deserialize very bad"

[<EntryPoint>]
let main argv = 
    //serialize ()
    deserialize ()

    0