trackler 2.2.1.64 → 2.2.1.65

data/tracks/fsharp/exercises/collatz-conjecture/CollatzConjectureTest.fs

@@ -0,0 +1,33 @@
+// This file was auto-generated based on version 1.1.1 of the canonical data.
+
+module CollatzConjectureTest
+
+open FsUnit.Xunit
+open Xunit
+
+open CollatzConjecture
+
+[<Fact>]
+let ``Zero steps for one`` () =
+    steps 1 |> should equal (Some 0)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Divide if even`` () =
+    steps 16 |> should equal (Some 4)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Even and odd steps`` () =
+    steps 12 |> should equal (Some 9)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Large number of even and odd steps`` () =
+    steps 1000000 |> should equal (Some 152)
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Zero is an error`` () =
+    steps 0 |> should equal None
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Negative value is an error`` () =
+    steps -15 |> should equal None
+

data/tracks/fsharp/exercises/collatz-conjecture/Example.fs

@@ -0,0 +1,15 @@
+module CollatzConjecture
+
+let steps number =  
+    let rec helper count current =
+        match current with 
+        | _ when current < 1 -> 
+            None
+        | 1 -> 
+            Some count
+        | _ when current % 2 = 0 -> 
+            helper (count + 1) (current / 2)
+        | _ ->
+            helper (count + 1) (current * 3 + 1)
+
+    helper 0 number                         

data/tracks/fsharp/exercises/collatz-conjecture/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/collatz-conjecture/README.md

@@ -0,0 +1,32 @@
+# Collatz Conjecture
+
+The Collatz Conjecture or 3x+1 problem can be summarized as follows:
+
+Take any positive integer n. If n is even, divide n by 2 to get n / 2. If n is
+odd, multiply n by 3 and add 1 to get 3n + 1. Repeat the process indefinitely.
+The conjecture states that no matter which number you start with, you will
+always reach 1 eventually.
+
+Given a number n, return the number of steps required to reach 1.
+
+## Examples
+Starting with n = 12, the steps would be as follows:
+
+0. 12
+1. 6
+2. 3
+3. 10
+4. 5
+5. 16
+6. 8
+7. 4
+8. 2
+9. 1
+
+Resulting in 9 steps. So for input n = 12, the return value would be 9.
+
+## Source
+An unsolved problem in mathematics named after mathematician Lothar Collatz [https://en.wikipedia.org/wiki/3x_%2B_1_problem](https://en.wikipedia.org/wiki/3x_%2B_1_problem)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/fsharp/exercises/connect/Connect.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/connect/ConnectTest.fs

@@ -10,10 +10,10 @@ open Connect
 [<Fact>]
 let ``An empty board has no winner`` () =
     let board = 
-        [ ". . . . .    "
-          " . . . . .   "
-          "  . . . . .  "
-          "   . . . . . "
+        [ ". . . . .    ";
+          " . . . . .   ";
+          "  . . . . .  ";
+          "   . . . . . ";
           "    . . . . ." ]
     winner board |> should equal None
 
@@ -30,73 +30,73 @@ let ``O can win on a 1x1 board`` () =
 [<Fact(Skip = "Remove to run test")>]
 let ``Only edges does not make a winner`` () =
     let board = 
-        [ "O O O X   "
-          " X . . X  "
-          "  X . . X "
+        [ "O O O X   ";
+          " X . . X  ";
+          "  X . . X ";
           "   X O O O" ]
     winner board |> should equal None
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Illegal diagonal does not make a winner`` () =
     let board = 
-        [ "X O . .    "
-          " O X X X   "
-          "  O X O .  "
-          "   . O X . "
+        [ "X O . .    ";
+          " O X X X   ";
+          "  O X O .  ";
+          "   . O X . ";
           "    X X O O" ]
     winner board |> should equal None
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Nobody wins crossing adjacent angles`` () =
     let board = 
-        [ "X . . .    "
-          " . X O .   "
-          "  O . X O  "
-          "   . O . X "
+        [ "X . . .    ";
+          " . X O .   ";
+          "  O . X O  ";
+          "   . O . X ";
           "    . . O ." ]
     winner board |> should equal None
 
 [<Fact(Skip = "Remove to run test")>]
 let ``X wins crossing from left to right`` () =
     let board = 
-        [ ". O . .    "
-          " O X X X   "
-          "  O X O .  "
-          "   X X O X "
+        [ ". O . .    ";
+          " O X X X   ";
+          "  O X O .  ";
+          "   X X O X ";
           "    . O X ." ]
     winner board |> should equal (Some Black)
 
 [<Fact(Skip = "Remove to run test")>]
 let ``O wins crossing from top to bottom`` () =
     let board = 
-        [ ". O . .    "
-          " O X X X   "
-          "  O O O .  "
-          "   X X O X "
+        [ ". O . .    ";
+          " O X X X   ";
+          "  O O O .  ";
+          "   X X O X ";
           "    . O X ." ]
     winner board |> should equal (Some White)
 
 [<Fact(Skip = "Remove to run test")>]
 let ``X wins using a convoluted path`` () =
     let board = 
-        [ ". X X . .    "
-          " X . X . X   "
-          "  . X . X .  "
-          "   . X X . . "
+        [ ". X X . .    ";
+          " X . X . X   ";
+          "  . X . X .  ";
+          "   . X X . . ";
           "    O O O O O" ]
     winner board |> should equal (Some Black)
 
 [<Fact(Skip = "Remove to run test")>]
 let ``X wins using a spiral path`` () =
     let board = 
-        [ "O X X X X X X X X        "
-          " O X O O O O O O O       "
-          "  O X O X X X X X O      "
-          "   O X O X O O O X O     "
-          "    O X O X X X O X O    "
-          "     O X O O O X O X O   "
-          "      O X X X X X O X O  "
-          "       O O O O O O O X O "
+        [ "O X X X X X X X X        ";
+          " O X O O O O O O O       ";
+          "  O X O X X X X X O      ";
+          "   O X O X O O O X O     ";
+          "    O X O X X X O X O    ";
+          "     O X O O O X O X O   ";
+          "      O X X X X X O X O  ";
+          "       O O O O O O O X O ";
           "        X X X X X X X X O" ]
     winner board |> should equal (Some Black)
 

data/tracks/fsharp/exercises/crypto-square/CryptoSquare.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/custom-set/CustomSet.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/diamond/Diamond.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/difference-of-squares/DifferenceOfSquares.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/diffie-hellman/DiffieHellman.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/dominoes/Dominoes.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/dot-dsl/DotDsl.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/error-handling/ErrorHandling.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/etl/Etl.fsproj

@@ -13,11 +13,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
-    <PackageReference Include="xunit" Version="2.3.0" />
-    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
-    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/etl/EtlTest.fs

@@ -17,10 +17,10 @@ let ``A single letter`` () =
 let ``Single score with multiple letters`` () =
     let input = [(1, ['A'; 'E'; 'I'; 'O'; 'U'])] |> Map.ofList
     let expected = 
-        [ ('a', 1)
-          ('e', 1)
-          ('i', 1)
-          ('o', 1)
+        [ ('a', 1);
+          ('e', 1);
+          ('i', 1);
+          ('o', 1);
           ('u', 1) ]
         |> Map.ofList
     transform input |> should equal expected
@@ -28,13 +28,13 @@ let ``Single score with multiple letters`` () =
 [<Fact(Skip = "Remove to run test")>]
 let ``Multiple scores with multiple letters`` () =
     let input = 
-        [ (1, ['A'; 'E'])
+        [ (1, ['A'; 'E']);
           (2, ['D'; 'G']) ]
         |> Map.ofList
     let expected = 
-        [ ('a', 1)
-          ('d', 2)
-          ('e', 1)
+        [ ('a', 1);
+          ('d', 2);
+          ('e', 1);
           ('g', 2) ]
         |> Map.ofList
     transform input |> should equal expected
@@ -42,40 +42,40 @@ let ``Multiple scores with multiple letters`` () =
 [<Fact(Skip = "Remove to run test")>]
 let ``Multiple scores with differing numbers of letters`` () =
     let input = 
-        [ (1, ['A'; 'E'; 'I'; 'O'; 'U'; 'L'; 'N'; 'R'; 'S'; 'T'])
-          (2, ['D'; 'G'])
-          (3, ['B'; 'C'; 'M'; 'P'])
-          (4, ['F'; 'H'; 'V'; 'W'; 'Y'])
-          (5, ['K'])
-          (8, ['J'; 'X'])
+        [ (1, ['A'; 'E'; 'I'; 'O'; 'U'; 'L'; 'N'; 'R'; 'S'; 'T']);
+          (2, ['D'; 'G']);
+          (3, ['B'; 'C'; 'M'; 'P']);
+          (4, ['F'; 'H'; 'V'; 'W'; 'Y']);
+          (5, ['K']);
+          (8, ['J'; 'X']);
           (10, ['Q'; 'Z']) ]
         |> Map.ofList
     let expected = 
-        [ ('a', 1)
-          ('b', 3)
-          ('c', 3)
-          ('d', 2)
-          ('e', 1)
-          ('f', 4)
-          ('g', 2)
-          ('h', 4)
-          ('i', 1)
-          ('j', 8)
-          ('k', 5)
-          ('l', 1)
-          ('m', 3)
-          ('n', 1)
-          ('o', 1)
-          ('p', 3)
-          ('q', 10)
-          ('r', 1)
-          ('s', 1)
-          ('t', 1)
-          ('u', 1)
-          ('v', 4)
-          ('w', 4)
-          ('x', 8)
-          ('y', 4)
+        [ ('a', 1);
+          ('b', 3);
+          ('c', 3);
+          ('d', 2);
+          ('e', 1);
+          ('f', 4);
+          ('g', 2);
+          ('h', 4);
+          ('i', 1);
+          ('j', 8);
+          ('k', 5);
+          ('l', 1);
+          ('m', 3);
+          ('n', 1);
+          ('o', 1);
+          ('p', 3);
+          ('q', 10);
+          ('r', 1);
+          ('s', 1);
+          ('t', 1);
+          ('u', 1);
+          ('v', 4);
+          ('w', 4);
+          ('x', 8);
+          ('y', 4);
           ('z', 10) ]
         |> Map.ofList
     transform input |> should equal expected