Update samples.

[fsharp-ref.git] / FSharpRef / Main.fs

diff --git a/FSharpRef/Main.fs b/FSharpRef/Main.fs
index d070829..33fc574 100644 (file)
--- a/FSharpRef/Main.fs
+++ b/FSharpRef/Main.fs
@@ -3,6 +3,9 @@
 open System.Linq
 open Functional
 
+// For dynamic typing. To print anything in our case.
+let inline print a = printfn "%A" a
+
 [<EntryPoint>]
 let main args = 
     appendFile "test.txt" "Pouet"
@@ -11,8 +14,9 @@ let main args =
     print (isEven (fac 4))
     //
     print steve.First
+    printfn "Person equality: %A" ({ First = "Steve"; Last = "Holt"; Age = 42 } = steve)
     printfn "Young persons: "
-    (youngPersonNames (Queryable.AsQueryable [steve ; steves'twin ; { First = "Paul"; Last = "Atreides"; Age = 11 }])) |> Seq.iter (fun name -> printfn "   name: %s" name)
+    (youngPersonNames (Queryable.AsQueryable [steve ; stevesTwin ; { First = "Paul"; Last = "Atreides"; Age = 11 }])) |> Seq.iter (fun name -> printfn "   name: %s" name)
     //
     print <| Seq.take 10 allPositiveInts
     print <| Seq.take 10 (fibs 1 1)