draw cards

Kevin Logan · Kevin Logan · commit fe46d15a445e · 2022-02-14T15:47:57.000-06:00
diff --git a/Readme.md b/Readme.md
@@ -1 +1,6 @@
-# F# Code Examples
+# F# Code Examples
+
+Blog post: 
+## Code Examples in examples folder
+
+## Simple Unit Test Example in fsharpTests folder
diff --git a/examples/01HelloWorldRepl.fsx b/examples/01HelloWorldRepl.fsx
@@ -0,0 +1 @@
+printfn "Hello World!"
diff --git a/examples/02PipingFunctions.fs b/examples/02PipingFunctions.fs
diff --git a/examples/02SimilarToLinqWithPipes.fs b/examples/02SimilarToLinqWithPipes.fs
@@ -1,7 +1,9 @@
 // send to F# Interactive with highlight + Alt + Enter
 // or Open the Command Palette with Ctrl+Shift+P and find FSI: Start command (requires Ionide extension)
 // https://stackoverflow.com/questions/56425674/how-to-enable-f-interactive-in-visual-studio-code
-module fSharpExamples
+
+// referenced in Program.fs
+module fSharpExamples.Linq
 
 let getOddSquares xs =
     xs
@@ -12,4 +14,3 @@ let getOddSquares xs =
 // var xs = new List<int>{ 1, 2, 3, 4, 5, 6};
 // var results = xs.Where(x => x % 2 != 0).Select(x => x * x);
 
-printfn "%A" (getOddSquares [1..10])
diff --git a/examples/03PipingFunctions.fs b/examples/03PipingFunctions.fs
@@ -0,0 +1,17 @@
+// code from https://docs.microsoft.com/en-us/learn/modules/fsharp-functions/
+module fSharpExamples.Piping
+
+printfn "03PipingFunctions"
+
+// simple example of functions and piping
+let list = [4; 3; 1]
+let sort (list: int list) = List.sort list
+let print (list: int list)= List.iter(fun x-> printfn "item %i" x) list
+
+let listSortPrint = list |> sort |> print
+
+open Cards.Shuffle
+cards |> shuffle |> take 3 |> printAll
+
+open Cards.Draw
+printfn "Deck: %A Hand: %A" d h
diff --git a/examples/Program.fs b/examples/Program.fs
@@ -1,4 +1,14 @@
 ﻿// For more information see https://aka.ms/fsharp-console-apps
+open System
+
 printfn "Hello from F#"
 
-printfn "%A" (fSharpExamples.getOddSquares([1..10]))
+open fSharpExamples.Linq
+printfn "getOddSquares: %A" (getOddSquares([1..10]))
+
+open fSharpExamples.Piping
+// once I uncomment this, it will run all the functions in Piping
+// let myList = [123; 33; 22]
+// printfn "03PipingFunctions in Program"
+// listSortPrint
+
diff --git a/examples/cards/DrawCards.fs b/examples/cards/DrawCards.fs
@@ -0,0 +1,22 @@
+module Cards.Draw
+
+// fill in 0 to 5
+let cards = [ 0 .. 5 ]
+
+// let drawCard (list:int list) = 
+//     printfn "%i" list.Head
+//     list.Tail
+
+// // let result = cards |> drawCard |> drawCard // 0 1
+
+
+let hand = []
+let drawCardToHand (deck: list<int>, draw: list<int>) = 
+    let firstCard = deck.Head
+    printfn "%i" firstCard
+    let hand = 
+        draw
+        |> List.append [firstCard]
+    (deck.Tail, hand)
+
+let d, h = (cards, hand) |> drawCardToHand |> drawCardToHand
diff --git a/examples/cards/Program.fs b/examples/cards/Program.fs
@@ -0,0 +1,9 @@
+﻿open System
+
+
+// open ShuffleCards
+// cards |> shuffle |> take 3 |> printAll
+
+// open DrawCards
+// // global type variables, this is the result of the functions
+// printfn "Deck: %A Hand: %A" d h
diff --git a/examples/cards/ShuffleCards.fs b/examples/cards/ShuffleCards.fs
@@ -0,0 +1,33 @@
+// https://docs.microsoft.com/en-us/learn/modules/fshaarp-functions/5-exercise-patterns
+module Cards.Shuffle
+
+let cards = [21; 3; 1; 7; 9; 23]
+
+// cardFace is a function that takes in card which is inferred as an int and the returned as a string
+let cardFace card = 
+    let no = card % 13
+    if no = 1 then "Ace"
+    elif no = 0 then "King"
+    elif no = 12 then "Queen"
+    elif no = 11 then "Jack"
+    else string no
+
+let suit card =
+    let no = card / 13
+    if no = 0 then "Hearts"
+    elif no = 1 then "Spades"
+    elif no = 2 then "Diamonds"
+    else "Clubs"
+
+let shuffle list =
+    let random = System.Random()
+    list |> List.sortBy (fun x -> random.Next())
+
+printfn "Cards.Shuffle"
+
+// printCard is a function that takes in card
+let printCard card = printfn "%s of %s" (cardFace card) (suit card)
+
+let printAll list = List.iter(fun x -> printCard(x)) list
+
+let take (number:int) (list) = List.take number list
diff --git a/examples/fsharpExamples.fsproj b/examples/fsharpExamples.fsproj
@@ -4,8 +4,13 @@
     <TargetFramework>net6.0</TargetFramework>
   </PropertyGroup>
   <ItemGroup>
-    <Compile Include="01SimilarToLinq.fs" />
+    <Compile Include="01HelloWorldRepl.fsx" />
+    <Compile Include="02SimilarToLinqWithPipes.fs" />
+    <Compile Include="cards/DrawCards.fs" />
+    <Compile Include="cards/ShuffleCards.fs" />
+    <Compile Include="03PipingFunctions.fs" />
+    
+    <!-- needs to be last-->
     <Compile Include="Program.fs" />
-    <Compile Include="02PipingFunctions.fs" />
   </ItemGroup>
 </Project>
