updates during the presentation

Kevin Logan · Kevin Logan · commit 83c809b8605c · 2022-02-15T14:04:04.000-06:00
diff --git a/examples/03PipingFunctions.fs b/examples/03PipingFunctions.fs
@@ -4,17 +4,20 @@ module fSharpExamples.Piping
 printfn "03PipingFunctions"
 
 // simple example of functions and piping
-let list = [4; 3; 1]
+let myList = [4; 3; 1]
+let myListLetters = ["a"; "b"; "c"]
 let sort (list: int list) = List.sort list
-let print (list: int list)= List.iter(fun x-> printfn "item %i" x) list
+let print (list)= List.iter(fun x-> printfn $"item {x}") list
+let listSortPrint = myList |> sort |> print
 
-let listSortPrint = list |> sort |> print
+// typing of int list stops this
+// let listSortPrint2 = myListLetters |> sort |> print
 
 open Cards.Shuffle
 cards |> shuffle |> take 3 |> printAll
 
 open Cards.Draw
-printfn "Deck: %A Hand: %A" d h
+printfn "Deck: %A Hand: %A" deckAfter handAfter
 
 
 // function composition example
diff --git a/examples/04TypesAndObjects.fs b/examples/04TypesAndObjects.fs
@@ -4,6 +4,11 @@
 
 module fSharpExamples.TypesAndObjects
 
+type Animal = {
+  name: string
+  noises: string list
+}
+
 type Person = 
   { 
     name : string
@@ -16,13 +21,15 @@ type Person =
       hobbies = [] 
     }
 
-let Kevin2 =
+
+let Kevin =
   { 
     Person.Empty with 
       name = "Kevin"
       hobbies = ["guitar"; "biking"; "reading"]
   }
-let Kevin3 = {
+
+let Kevin2 = {
   name = "Kevin"
   hobbies = ["guitar"; "biking"; "reading"]
 }
@@ -32,6 +39,14 @@ let Joey  = {
     name = "Joey"
 }
 
+let dog = 
+  {
+    name = "Toto"
+    noises = ["bark"]
+  }
+
+// if you only have name, it takes the type that is closest above.
+// let d = { name = "K" } // Person, until Animal is moved down
 
 // classes are different
 // https://fsharpforfunandprofit.com/posts/classes/
@@ -44,7 +59,8 @@ type CustomerName(firstName:string, middleInitial, lastName) =
   member _.AddOne x = x + 1
 
 let customer = CustomerName("Kurt", "M", "Woolworth")
-// immutable customer.LastName <- "kjkl";
+// immutable 
+// customer.LastName <- "kjkl";
 
 // "F# classes which are defined outside a module are generated as normal top-level .NET classes, which is probably what you want." modules are a static class
 // https://fsharpforfunandprofit.com/posts/type-extensions/#downsides-of-methods
diff --git a/examples/06JsonNetSerialization.fs b/examples/06JsonNetSerialization.fs
@@ -6,10 +6,10 @@ module fSharpExamples.Json
 type Person = { name : string; hobbies : string[] }
 
 let loadData(fileName: string) = System.IO.File.ReadAllText(fileName)
-let toPersonModel(json: string) = Newtonsoft.Json.JsonConvert.DeserializeObject<Person>(json)
+let toPersonModel(json: string) = Newtonsoft.Json.JsonConvert.DeserializeObject<Person list>(json)
 
 
 
-let blendReportModel = 
+let people = 
   loadData("people.json")
   |> (fun json -> toPersonModel(json))
diff --git a/examples/cards/DrawCards.fs b/examples/cards/DrawCards.fs
@@ -19,4 +19,4 @@ let drawCardToHand (deck: list<int>, draw: list<int>) =
         |> List.append [firstCard]
     (deck.Tail, hand)
 
-let d, h = (cards, hand) |> drawCardToHand |> drawCardToHand
+let deckAfter, handAfter = (cards, hand) |> drawCardToHand |> drawCardToHand
diff --git a/examples/cards/Program.fs b/examples/cards/Program.fs
