X-Git-Url: http://git.euphorik.ch/?p=fsharp-ref.git;a=blobdiff_plain;f=FSharpRef%2FMain.fs;h=33fc5749e549ca1536ee05025f3ee10ca4e1e135;hp=d070829a2f97def65eeb86dc4effb25d25e1f9fe;hb=bc9b618a8f6db5806b1d9c27cbae59eaa1ec70f2;hpb=ac61fd49bf7897adbb18d2ae0f3bd843311a4ccf

diff --git a/FSharpRef/Main.fs b/FSharpRef/Main.fs
index d070829..33fc574 100644
--- 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)