trackler 2.2.1.22 → 2.2.1.23

data/tracks/fsharp/exercises/grep/Program.fs

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

data/tracks/fsharp/exercises/hamming/Hamming.fs

@@ -0,0 +1,3 @@
+module Hamming
+
+let compute (strand1: string) (strand2: string): int = failwith "You need to implement this function."

data/tracks/fsharp/exercises/hamming/Hamming.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Hamming.fs" />
+    <Compile Include="HammingTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/hamming/HammingTest.fs

@@ -1,33 +1,29 @@
-module HammingTest
+module HammingTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open Hamming
 
-[<Test>]
+[<Fact>]
 let ``No difference between empty strands`` () =
-    Assert.That(compute "" "", Is.EqualTo(0))
+    compute "" "" |> should equal 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``No difference between identical strands`` () =
-    Assert.That(compute "GGACTGA" "GGACTGA", Is.EqualTo(0))
+    compute "GGACTGA" "GGACTGA" |> should equal 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Complete hamming distance in small strand`` () =
-    Assert.That(compute "ACT" "GGA", Is.EqualTo(3))
+    compute "ACT" "GGA" |> should equal 3
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Hamming distance is off by one strand`` () =
-    Assert.That(compute "GGACGGATTCTG" "AGGACGGATTCT", Is.EqualTo(9))
+    compute "GGACGGATTCTG" "AGGACGGATTCT" |> should equal 9
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Smalling hamming distance in middle somewhere`` () =
-    Assert.That(compute "GGACG" "GGTCG", Is.EqualTo(1))
+    compute "GGACG" "GGTCG" |> should equal 1
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Larger distance`` () =
-    Assert.That(compute "ACCAGGG" "ACTATGG", Is.EqualTo(2))
+    compute "ACCAGGG" "ACTATGG" |> should equal 2

data/tracks/fsharp/exercises/hamming/Program.fs

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

data/tracks/fsharp/exercises/hangman/Hangman.fs

@@ -0,0 +1,3 @@
+module Hangman
+
+// TODO: implement this module

data/tracks/fsharp/exercises/hangman/Hangman.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Hangman.fs" />
+    <Compile Include="HangmanTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/hangman/HangmanTest.fs

@@ -1,10 +1,11 @@
-module HangmanTest
+module HangmanTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open Hangman
 
-[<Test>]
+[<Fact>]
 let ``Initially 9 failures are allowed`` () =
     let game = createGame "foo"
     let states = statesObservable game
@@ -14,10 +15,9 @@ let ``Initially 9 failures are allowed`` () =
 
     startGame game |> ignore
 
-    Assert.That(lastProgress, Is.EqualTo(Busy 9))
+    lastProgress |> should equal <| Busy 9
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Initially no letters are guessed`` () =
     let game = createGame "foo"
     let states = statesObservable game
@@ -27,10 +27,9 @@ let ``Initially no letters are guessed`` () =
 
     startGame game |> ignore
 
-    Assert.That(lastMaskedWord, Is.EqualTo("___"))
+    lastMaskedWord |> should equal "___"
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``After 10 failures the game is over`` () =
     let game = createGame "foo"
     let states = statesObservable game
@@ -42,10 +41,9 @@ let ``After 10 failures the game is over`` () =
 
     [for x in 1..10 do makeGuess 'x' game] |> ignore
 
-    Assert.That(lastProgress, Is.EqualTo(Lose))
+    lastProgress |> should equal Lose
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Feeding a correct letter removes underscores`` () =
     let game = createGame "foobar"
     let states = statesObservable game
@@ -57,16 +55,15 @@ let ``Feeding a correct letter removes underscores`` () =
 
     makeGuess 'b' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 9))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("___b__"))
+    lastState.Value.progress |> should equal <| Busy 9
+    lastState.Value.maskedWord |> should equal "___b__"
 
     makeGuess 'o' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 9))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("_oob__"))
+    lastState.Value.progress |> should equal <| Busy 9
+    lastState.Value.maskedWord |> should equal "_oob__"
     
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Feeding a correct letter twice counts as a failure`` () =
     let game = createGame "foobar"
     let states = statesObservable game
@@ -78,16 +75,15 @@ let ``Feeding a correct letter twice counts as a failure`` () =
 
     makeGuess 'b' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 9))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("___b__"))
+    lastState.Value.progress |> should equal <| Busy 9
+    lastState.Value.maskedWord |> should equal "___b__"
 
     makeGuess 'b' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 8))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("___b__"))
+    lastState.Value.progress |> should equal <| Busy 8
+    lastState.Value.maskedWord |> should equal "___b__"
      
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Getting all the letters right makes for a win`` () =
     let game = createGame "hello"
     let states = statesObservable game
@@ -99,25 +95,25 @@ let ``Getting all the letters right makes for a win`` () =
 
     makeGuess 'b' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 8))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("_____"))
+    lastState.Value.progress |> should equal <| Busy 8
+    lastState.Value.maskedWord |> should equal "_____"
 
     makeGuess 'e' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 8))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("_e___"))
+    lastState.Value.progress |> should equal <| Busy 8
+    lastState.Value.maskedWord |> should equal "_e___"
 
     makeGuess 'l' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 8))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("_ell_"))
+    lastState.Value.progress |> should equal <| Busy 8
+    lastState.Value.maskedWord |> should equal "_ell_"
 
     makeGuess 'o' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Busy 8))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("_ello"))
+    lastState.Value.progress |> should equal <| Busy 8
+    lastState.Value.maskedWord |> should equal "_ello"
 
     makeGuess 'h' game |> ignore
 
-    Assert.That(lastState.Value.progress, Is.EqualTo(Win))
-    Assert.That(lastState.Value.maskedWord, Is.EqualTo("hello"))
+    lastState.Value.progress |> should equal Win
+    lastState.Value.maskedWord |> should equal "hello"

data/tracks/fsharp/exercises/hangman/Program.fs

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

data/tracks/fsharp/exercises/hello-world/HelloWorld.fs

@@ -0,0 +1,3 @@
+module HelloWorld
+
+let hello: string = failwith "You need to implement this function."

data/tracks/fsharp/exercises/hello-world/HelloWorld.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="HelloWorld.fs" />
+    <Compile Include="HelloWorldTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/hello-world/HelloWorldTest.fs

@@ -1,9 +1,10 @@
-module HelloWorldTest
+module HelloWorldTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open HelloWorld
 
-[<Test>]
+[<Fact>]
 let ``Say hi!`` () =
-    Assert.That(hello, Is.EqualTo("Hello, World!"))
+    hello |> should equal "Hello, World!"

data/tracks/fsharp/exercises/hello-world/Program.fs

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

data/tracks/fsharp/exercises/house/House.fs

@@ -0,0 +1,3 @@
+module House
+
+let rhyme: string = failwith "You need to implement this function."

data/tracks/fsharp/exercises/house/House.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="House.fs" />
+    <Compile Include="HouseTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/house/HouseTest.fs

@@ -1,6 +1,7 @@
-module HouseTest
+module HouseTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open House
 
@@ -97,6 +98,6 @@ let expected =
     "that lay in the house that Jack built."]
     |> List.reduce (fun x y -> x + "\n" + y)
 
-[<Test>]
+[<Fact>]
 let ``Rhyme is correct`` () =
-    Assert.That(rhyme, Is.EqualTo(expected))
+    rhyme |> should equal expected

data/tracks/fsharp/exercises/house/Program.fs

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

data/tracks/fsharp/exercises/isogram/Isogram.fs

@@ -0,0 +1,3 @@
+module Isogram
+
+let isogram str = failwith "You need to implement this function."

data/tracks/fsharp/exercises/isogram/Isogram.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Isogram.fs" />
+    <Compile Include="IsogramTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/isogram/IsogramTest.fs

@@ -1,76 +1,69 @@
-module IsogramTest
+module IsogramTest
     
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 
 open Isogram
 
-[<Test>]
+[<Fact>]
 let ``Empty string`` () =
     let input = ""
     let expected = true
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Isogram with only lower case characters`` () =
     let input = "isogram"
     let expected = true
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Word with one duplicated character`` () =
     let input = "eleven"
     let expected = false
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Longest reported english isogram`` () =
     let input = "subdermatoglyphic"
     let expected = true
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Word with duplicated character in mixed case`` () =
     let input = "Alphabet"
     let expected = false
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Hypothetical isogrammic word with hyphen`` () =
     let input = "thumbscrew-japingly"
     let expected = true
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Isogram with duplicated non letter character`` () =
     let input = "Hjelmqvist-Gryb-Zock-Pfund-Wax"
     let expected = true
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Made-up name that is an isogram`` () =
     let input = "Emily Jung Schwartzkopf"
     let expected = true
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Word with duplicated accented character`` () =
     let input = "éléphant"
     let expected = false
     let actual = isogram input
-    Assert.That(actual, Is.EqualTo(expected))
+    actual |> should equal expected

data/tracks/fsharp/exercises/isogram/Program.fs

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

data/tracks/fsharp/exercises/kindergarten-garden/KindergartenGarden.fs

@@ -0,0 +1,9 @@
+module KinderGartenGarden
+
+// TODO: define the Plant type
+
+let garden children windowSills = failwith "You need to implement this function."
+
+let defaultGarden windowSills = failwith "You need to implement this function."
+
+let lookupPlants child childPlantsMap = failwith "You need to implement this function."

data/tracks/fsharp/exercises/kindergarten-garden/KindergartenGarden.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="KindergartenGarden.fs" />
+    <Compile Include="KindergartenGardenTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/kindergarten-garden/KindergartenGardenTest.fs

@@ -0,0 +1,51 @@
+module KinderGartenGardenTest
+
+open Xunit
+open FsUnit.Xunit
+open KinderGartenGarden
+
+[<Fact>]
+let ``Missing child`` () =
+    let garden = defaultGarden "RC\nGG"
+    let actual = lookupPlants "Potter" garden
+    actual |> should be Empty
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Alice`` () =
+    defaultGarden "RC\nGG" |> lookupPlants "Alice" |> should equal [Plant.Radishes; Plant.Clover; Plant.Grass; Plant.Grass]
+    defaultGarden "VC\nRC" |> lookupPlants "Alice" |> should equal [Plant.Violets; Plant.Clover; Plant.Radishes; Plant.Clover]
+    
+[<Fact(Skip = "Remove to run test")>]
+let ``Small garden`` () =
+    let garden = defaultGarden "VVCG\nVVRC"
+    lookupPlants "Bob" garden |> should equal [Plant.Clover; Plant.Grass; Plant.Radishes; Plant.Clover]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Medium garden`` () =
+    let garden = defaultGarden "VVCCGG\nVVCCGG"
+    lookupPlants "Bob" garden |> should equal [Plant.Clover; Plant.Clover; Plant.Clover; Plant.Clover]
+    lookupPlants "Charlie" garden |> should equal [Plant.Grass; Plant.Grass; Plant.Grass; Plant.Grass]
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Full garden`` () =
+    let garden = defaultGarden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV"
+    lookupPlants "Alice" garden |> should equal [Plant.Violets; Plant.Radishes; Plant.Violets; Plant.Radishes]
+    lookupPlants "Alice" garden |> should equal [Plant.Violets; Plant.Radishes; Plant.Violets; Plant.Radishes]
+    lookupPlants "Bob" garden |> should equal [Plant.Clover; Plant.Grass; Plant.Clover; Plant.Clover]
+    lookupPlants "David" garden |> should equal [Plant.Radishes; Plant.Violets; Plant.Clover; Plant.Radishes]
+    lookupPlants "Eve" garden |> should equal [Plant.Clover; Plant.Grass; Plant.Radishes; Plant.Grass]
+    lookupPlants "Fred" garden |> should equal [Plant.Grass; Plant.Clover; Plant.Violets; Plant.Clover]
+    lookupPlants "Ginny" garden |> should equal [Plant.Clover; Plant.Grass; Plant.Grass; Plant.Clover]
+    lookupPlants "Harriet" garden |> should equal [Plant.Violets; Plant.Radishes; Plant.Radishes; Plant.Violets]
+    lookupPlants "Ileana" garden |> should equal [Plant.Grass; Plant.Clover; Plant.Violets; Plant.Clover]
+    lookupPlants "Joseph" garden |> should equal [Plant.Violets; Plant.Clover; Plant.Violets; Plant.Grass]
+    lookupPlants "Kincaid" garden |> should equal [Plant.Grass; Plant.Clover; Plant.Clover; Plant.Grass]
+    lookupPlants "Larry" garden |> should equal [Plant.Grass; Plant.Violets; Plant.Clover; Plant.Violets]
+    
+[<Fact(Skip = "Remove to run test")>]
+let ``Surprise garden`` () =
+    let garden = garden ["Samantha"; "Patricia"; "Xander"; "Roger"] "VCRRGVRG\nRVGCCGCV"
+    lookupPlants "Patricia" garden |> should equal [Plant.Violets; Plant.Clover; Plant.Radishes; Plant.Violets]
+    lookupPlants "Roger" garden |> should equal [Plant.Radishes; Plant.Radishes; Plant.Grass; Plant.Clover]
+    lookupPlants "Samantha" garden |> should equal [Plant.Grass; Plant.Violets; Plant.Clover; Plant.Grass]
+    lookupPlants "Xander" garden |> should equal [Plant.Radishes; Plant.Grass; Plant.Clover; Plant.Violets]

data/tracks/fsharp/exercises/kindergarten-garden/Program.fs

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

data/tracks/fsharp/exercises/largest-series-product/LargestSeriesProduct.fs

@@ -0,0 +1,3 @@
+module LargestSeriesProduct
+
+let largestProduct input seriesLength = failwith "You need to implement this function."

data/tracks/fsharp/exercises/largest-series-product/LargestSeriesProduct.fsproj

@@ -0,0 +1,22 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="LargestSeriesProduct.fs" />
+    <Compile Include="LargestSeriesProductTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0" />
+    <PackageReference Include="xunit" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0-beta5-build3769" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>