trackler 2.2.1.44 → 2.2.1.45

data/tracks/fsharp/exercises/variable-length-quantity/VariableLengthQuantity.fsproj

@@ -14,9 +14,10 @@
 
   <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="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/word-count/WordCount.fsproj

@@ -14,9 +14,10 @@
 
   <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="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/word-search/WordSearch.fsproj

@@ -14,9 +14,10 @@
 
   <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="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/wordy/Wordy.fsproj

@@ -14,9 +14,10 @@
 
   <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="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/zebra-puzzle/ZebraPuzzle.fsproj

@@ -14,9 +14,10 @@
 
   <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="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/exercises/zipper/Zipper.fsproj

@@ -14,9 +14,10 @@
 
   <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="xunit" Version="2.3.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.0" />
     <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.0" />
   </ItemGroup>
 
 </Project>

data/tracks/fsharp/generators/Common.fs

@@ -0,0 +1,96 @@
+[<AutoOpen>]
+module Generators.Common
+
+open System
+open System.IO
+open Serilog
+open Newtonsoft.Json.Linq
+
+type CanonicalDataCase = 
+    { Properties: Map<string, obj>
+      DescriptionPath: string list } with 
+        member this.Description = string this.Properties.["description"]
+        member this.Property = string this.Properties.["property"]
+        member this.Expected = this.Properties.["expected"]
+
+type CanonicalData = 
+    { Exercise: string
+      Version: string
+      Cases: CanonicalDataCase list }
+
+type TestMethod = 
+    { Skip: bool
+      Name: string
+      Body: string }
+
+type TestMethodBody = 
+    { Arrange: string list  
+      Assert: string }
+
+type TestMethodBodyAssert = 
+    { Sut: string
+      Expected: string }
+
+type TestClass = 
+    { Version: string
+      ExerciseName: string
+      TestModuleName: string
+      TestedModuleName: string
+      Namespaces: string list
+      Methods: string list }
+
+module Logging =
+    let setupLogger() =
+        Log.Logger <- LoggerConfiguration()
+            .WriteTo.LiterateConsole()
+            .CreateLogger();
+
+let isInt64 (value: obj) = 
+    match value with 
+    | :? int64 -> true 
+    | _ -> false
+
+module Option =
+    let ofNonNegativeInt (value: obj) =
+        match value with
+        | :? int64 as i -> if i < 0L then None else Some value
+        | :? int32 as i -> if i < 0  then None else Some value
+        | _ -> None
+
+module String =
+    open Humanizer
+
+    let equals (x: string) (y: string) = String.Equals(x, y, StringComparison.OrdinalIgnoreCase)
+
+    let humanize (str: string) = str.Humanize()
+
+    let camelize (str: string) = str.Camelize()
+
+    let upperCaseFirst (str: string) = 
+        match str with
+        | "" -> str
+        | _  -> sprintf "%c%s" (Char.ToUpper(str.[0])) str.[1..]
+
+
+module Json =
+    let rec parentsAndSelf (currentToken: JToken) =
+        let rec helper acc (token: JToken) =
+            match token with
+            | null -> acc
+            | _ -> helper (token::acc) token.Parent
+
+        helper [] currentToken
+
+module Dict =
+
+    open System.Collections.Generic
+
+    let toSeq d = d |> Seq.map (fun (KeyValue(k,v)) -> (k, v))
+
+    let toMap d = d |> toSeq |> Map.ofSeq
+
+    let ofMap (m: Map<'k,'v>) = new Dictionary<'k,'v>(m) :> IDictionary<'k,'v>
+
+    let ofList (l: ('k * 'v) list) = new Dictionary<'k,'v>(l |> Map.ofList) :> IDictionary<'k,'v>
+
+    let ofSeq (s: ('k * 'v) seq) = new Dictionary<'k,'v>(s |> Map.ofSeq) :> IDictionary<'k,'v>

data/tracks/fsharp/generators/Exercise.fs

@@ -0,0 +1,250 @@
+module Generators.Exercise
+
+open System
+open System.Globalization
+open System.Collections.Generic
+open System.IO
+open System.Reflection
+open Newtonsoft.Json.Linq
+open Humanizer
+open Serilog
+open Input
+open Output
+
+[<AbstractClass>]
+type Exercise() =
+    // Allow changes in canonical data
+    abstract member MapCanonicalData : CanonicalData -> CanonicalData
+    abstract member MapCanonicalDataCase : CanonicalDataCase -> CanonicalDataCase
+    abstract member MapCanonicalDataCaseProperty : CanonicalDataCase * string * obj -> obj
+
+    // Convert canonical data to representation used when rendering
+    abstract member ToTestClass : CanonicalData -> TestClass
+    abstract member ToTestMethod : int -> CanonicalDataCase -> TestMethod
+    abstract member ToTestMethodBody : CanonicalDataCase -> TestMethodBody  
+    abstract member ToTestMethodBodyAssert : CanonicalDataCase -> TestMethodBodyAssert  
+    abstract member ToTestMethodBodyAssertTemplate : CanonicalDataCase -> string
+
+    // Rendering of canonical data
+    abstract member Render : CanonicalData -> string
+    abstract member RenderTestMethod : int -> CanonicalDataCase -> string
+    abstract member RenderTestMethodBody : CanonicalDataCase -> string
+    abstract member RenderTestMethodName : CanonicalDataCase -> string
+
+    // Generic value/identifier rendering methods
+    abstract member RenderValue : CanonicalDataCase * string * obj -> string
+    abstract member RenderValueOrIdentifier: CanonicalDataCase * string * obj -> string
+    abstract member RenderValueWithoutIdentifier: CanonicalDataCase * string * obj -> string
+    abstract member RenderValueWithIdentifier: CanonicalDataCase * string * obj -> string
+    abstract member RenderIdentifier: CanonicalDataCase * string * obj -> string
+    abstract member RenderIdentifierWithTypeAnnotation: CanonicalDataCase * string * obj -> string
+
+    // Canonical-data specific rendering methods
+    abstract member RenderExpected : CanonicalDataCase * string * obj -> string
+    abstract member RenderInput : CanonicalDataCase * string * obj -> string
+    abstract member RenderArrange : CanonicalDataCase -> string list
+    abstract member RenderAssert : CanonicalDataCase -> string
+    abstract member RenderSut : CanonicalDataCase -> string
+    abstract member RenderSutParameters : CanonicalDataCase -> string list
+    abstract member RenderSutParameter : CanonicalDataCase * string * obj -> string
+    abstract member RenderSutProperty : CanonicalDataCase -> string
+    
+    // Utility methods to customize rendered output
+    abstract member PropertiesUsedAsSutParameter : CanonicalDataCase -> string list
+    abstract member PropertiesWithIdentifier : CanonicalDataCase -> string list
+    abstract member IdentifierTypeAnnotation: CanonicalDataCase * string * obj -> string option
+    abstract member UseFullMethodName : CanonicalDataCase -> bool
+    abstract member AdditionalNamespaces : string list
+
+    member this.Name = this.GetType().Name.Kebaberize()
+    member this.TestModuleName = this.GetType().Name.Pascalize() |> sprintf "%sTest"
+    member this.TestedModuleName = this.GetType().Name.Pascalize()
+
+    member this.WriteToFile contents =
+        let testClassPath = Path.Combine("..", "exercises", this.Name, sprintf "%s.fs" this.TestModuleName)
+
+        Directory.CreateDirectory(Path.GetDirectoryName(testClassPath)) |> ignore
+        File.WriteAllText(testClassPath, contents)
+
+        Log.Information("Generated tests for {Exercise} exercise in {TestClassPath}", this.Name, testClassPath);
+
+    member this.Regenerate(canonicalData) =
+        canonicalData
+        |> this.MapCanonicalData
+        |> this.Render  
+        |> this.WriteToFile
+
+    // Allow changes in canonical data    
+
+    default this.MapCanonicalData canonicalData = 
+        { canonicalData with Cases = List.map this.MapCanonicalDataCase canonicalData.Cases }
+
+    default this.MapCanonicalDataCase canonicalDataCase =
+        let updatedProperties = 
+            canonicalDataCase.Properties
+            |> Map.map (fun key value -> this.MapCanonicalDataCaseProperty (canonicalDataCase, key, value)) 
+
+        { canonicalDataCase with Properties = updatedProperties }
+
+    default this.MapCanonicalDataCaseProperty (canonicalDataCase, key, value) = value
+
+    // Convert canonical data to representation used when rendering
+
+    default this.ToTestClass canonicalData =
+        { Version = canonicalData.Version              
+          ExerciseName = this.Name
+          TestModuleName = this.TestModuleName
+          TestedModuleName = this.TestedModuleName
+          Namespaces = ["FsUnit.Xunit"; "Xunit"] @ this.AdditionalNamespaces
+          Methods = List.mapi this.RenderTestMethod canonicalData.Cases }
+
+    default this.ToTestMethod index canonicalDataCase =         
+        { Skip = index > 0
+          Name = this.RenderTestMethodName canonicalDataCase
+          Body = this.RenderTestMethodBody canonicalDataCase }
+
+    default this.ToTestMethodBody canonicalDataCase =         
+        { Arrange = this.RenderArrange canonicalDataCase
+          Assert = this.RenderAssert canonicalDataCase }
+
+    default this.ToTestMethodBodyAssert canonicalDataCase =         
+        { Sut = this.RenderSut canonicalDataCase
+          Expected = this.RenderValueOrIdentifier (canonicalDataCase, "expected", canonicalDataCase.Expected) }
+
+    default this.ToTestMethodBodyAssertTemplate canonicalDataCase =
+        match canonicalDataCase.Expected with
+        | :? JArray as jArray when jArray.Count = 0 && not (List.contains "expected" (this.PropertiesWithIdentifier canonicalDataCase)) -> "AssertEmpty"
+        | _ -> "AssertEqual"
+
+    // Rendering of canonical data
+
+    default this.Render canonicalData =
+        canonicalData
+        |> this.ToTestClass
+        |> renderPartialTemplate "TestClass"
+
+    default this.RenderTestMethod index canonicalDataCase = 
+        canonicalDataCase
+        |> this.ToTestMethod index
+        |> renderPartialTemplate "TestMethod"
+
+    default this.RenderTestMethodBody canonicalDataCase = 
+        canonicalDataCase
+        |> this.ToTestMethodBody
+        |> renderPartialTemplate "TestMethodBody"
+
+    default this.RenderTestMethodName canonicalDataCase = 
+        match this.UseFullMethodName canonicalDataCase with
+        | false ->
+            String.upperCaseFirst canonicalDataCase.Description
+        | true -> 
+            canonicalDataCase.DescriptionPath
+            |> String.concat " - "
+            |> String.upperCaseFirst    
+
+    // Generic value/identifier rendering methods
+
+    default this.RenderValue (canonicalDataCase, key, value) = formatValue value
+
+    default this.RenderValueOrIdentifier (canonicalDataCase, key, value) =
+        let properties = this.PropertiesWithIdentifier canonicalDataCase
+
+        match List.contains key properties with
+        | true  -> this.RenderIdentifier (canonicalDataCase, key, value)
+        | false -> this.RenderValueWithoutIdentifier (canonicalDataCase, key, value)
+
+    default this.RenderValueWithoutIdentifier (canonicalDataCase, key, value) = 
+        match key with
+        | "expected" -> this.RenderExpected (canonicalDataCase, key, value)
+        | _  -> this.RenderInput (canonicalDataCase, key, value)
+
+    default this.RenderValueWithIdentifier (canonicalDataCase, key, value) = 
+        let identifier = this.RenderIdentifierWithTypeAnnotation (canonicalDataCase, key, value)
+        let value = this.RenderValueWithoutIdentifier (canonicalDataCase, key, value)
+        sprintf "let %s = %s" identifier value  
+
+    default this.RenderIdentifier (canonicalDataCase, key, value) = String.camelize key
+
+    default this.RenderIdentifierWithTypeAnnotation (canonicalDataCase, key, value) = 
+        let identifier = this.RenderIdentifier (canonicalDataCase, key, value)
+    
+        match this.IdentifierTypeAnnotation (canonicalDataCase, key, value) with
+        | Some identifierType -> 
+            identifier |> addTypeAnnotation identifierType
+        | None -> 
+            identifier
+
+    // Canonical-data specific rendering methods
+
+    default this.RenderExpected (canonicalDataCase, key, value) = this.RenderValue (canonicalDataCase, key, value)
+
+    default this.RenderInput (canonicalDataCase, key, value) = this.RenderValue (canonicalDataCase, key, value)
+
+    default this.RenderArrange canonicalDataCase =
+        let renderArrangeProperty property: string option = 
+            match Map.tryFind property canonicalDataCase.Properties with
+            | None -> None
+            | Some value -> Some (this.RenderValueWithIdentifier (canonicalDataCase, property, value))
+
+        canonicalDataCase
+        |> this.PropertiesWithIdentifier 
+        |> List.choose renderArrangeProperty
+
+    default this.RenderAssert canonicalDataCase = 
+        let template = this.ToTestMethodBodyAssertTemplate canonicalDataCase                
+
+        canonicalDataCase
+        |> this.ToTestMethodBodyAssert
+        |> renderPartialTemplate template    
+
+    default this.RenderSut canonicalDataCase = 
+        let parameters = this.RenderSutParameters canonicalDataCase
+        let property = this.RenderSutProperty canonicalDataCase
+        property :: parameters |> String.concat " "
+
+    default this.RenderSutParameters canonicalDataCase =
+        let sutParameterProperties = this.PropertiesUsedAsSutParameter canonicalDataCase
+
+        canonicalDataCase.Properties
+        |> Map.filter (fun key value -> List.contains key sutParameterProperties)
+        |> Map.fold (fun acc key value  -> this.RenderSutParameter (canonicalDataCase, key, value) :: acc) [] 
+        |> List.rev
+    
+    default this.RenderSutParameter (canonicalDataCase, key, value) =
+        this.RenderValueOrIdentifier (canonicalDataCase, key, value) 
+
+    default this.RenderSutProperty canonicalDataCase = string canonicalDataCase.Property
+
+    default this.PropertiesUsedAsSutParameter canonicalDataCase = 
+        canonicalDataCase.Properties
+        |> Map.toList
+        |> List.map fst
+        |> List.except ["property"; "expected"; "description"]
+    
+    // Utility methods to customize rendered output
+
+    default this.PropertiesWithIdentifier canonicalDataCase = []
+
+    default this.IdentifierTypeAnnotation (canonicalDataCase, key, value ) = None
+
+    default this.UseFullMethodName canonicalDataCase = false
+
+    default this.AdditionalNamespaces = []
+
+let createExercises filteredExercises =
+
+    let isConcreteExercise (exerciseType: Type) = 
+        not exerciseType.IsAbstract && typeof<Exercise>.IsAssignableFrom(exerciseType)
+
+    let isFilteredExercises (exerciseType: Type) =
+        Seq.isEmpty filteredExercises ||
+        Seq.exists (String.equals exerciseType.Name) filteredExercises ||
+        Seq.exists (String.equals (exerciseType.Name.Kebaberize())) filteredExercises
+
+    let includeExercise (exerciseType: Type) = isConcreteExercise exerciseType && isFilteredExercises exerciseType
+
+    let assemblyTypes = Assembly.GetEntryAssembly().GetTypes()
+
+    seq { for exerciseType in assemblyTypes do 
+            if includeExercise exerciseType then 
+                yield Activator.CreateInstance(exerciseType) :?> Exercise }

data/tracks/fsharp/generators/Generators.fs

@@ -0,0 +1,210 @@
+module Generators.Generators
+
+open System
+open System.Globalization
+open Newtonsoft.Json.Linq
+open Output
+open Exercise
+
+type Acronym() =
+    inherit Exercise()
+
+type AtbashCipher() =
+    inherit Exercise()
+
+type AllYourBase() =    
+    inherit Exercise()
+
+    override this.RenderExpected (canonicalDataCase, key, value) = value |> Option.ofObj |> formatValue
+
+    override this.PropertiesWithIdentifier canonicalDataCase = ["expected"; "input_base"; "input_digits"; "output_base"]
+
+type Allergies() =
+    inherit Exercise()
+
+    let toAllergen (jToken: JToken) =  sprintf "Allergen.%s" (jToken.ToString() |> String.humanize)
+
+    override this.RenderTestMethodBody canonicalDataCase =
+        if (canonicalDataCase.Property = "allergicTo") then
+            let renderAssertion (jToken: JToken) =
+                let updatedProperties =
+                    canonicalDataCase.Properties
+                    |> Map.add "substance" (jToken.["substance"] |> toAllergen |> box)
+                    |> Map.add "expected" (jToken.["result"].ToObject<bool>() |> box)
+
+                { canonicalDataCase with Properties = updatedProperties }                
+                |> this.RenderAssert
+                |> indent 1
+
+            canonicalDataCase.Expected :?> JArray
+            |> Seq.map renderAssertion
+            |> String.concat "\n"
+        else
+            base.RenderTestMethodBody canonicalDataCase
+
+    override this.RenderExpected (canonicalDataCase, key, value) =     
+        if (canonicalDataCase.Property = "list") then
+            canonicalDataCase.Expected :?> JArray
+            |> Seq.map toAllergen
+            |> formatList
+        else
+            base.RenderExpected (canonicalDataCase, key, value)
+
+    override this.RenderInput (canonicalDataCase, key, value) =
+        match key with
+        | "substance" -> string value
+        | _ -> base.RenderInput (canonicalDataCase, key, value)
+
+type BeerSong() =
+    inherit Exercise()
+
+    override this.PropertiesWithIdentifier canonicalDataCase = ["expected"]
+
+type Bob() =
+    inherit Exercise()
+
+type BookStore() =
+    inherit Exercise()
+
+    let formatFloat (value:obj) = value :?> float |> sprintf "%.2f"
+
+    override this.RenderExpected (canonicalDataCase, key, value) = formatFloat value
+
+    override this.PropertiesUsedAsSutParameter canonicalDataCase =
+        base.PropertiesUsedAsSutParameter canonicalDataCase
+        |> List.except ["targetgrouping"; "expected"; "description"]
+
+type BracketPush() =
+    inherit Exercise()
+
+type Change() =
+    inherit Exercise()
+
+    override this.MapCanonicalDataCaseProperty (canonicalDataCase, key, value) = 
+        match key with 
+        | "expected" -> 
+            match value with 
+            | :? JArray -> Option.ofObj value |> box
+            | _ -> value |> Option.ofNonNegativeInt |> box
+        | _ -> base.MapCanonicalDataCaseProperty (canonicalDataCase, key, value)
+
+    override this.PropertiesWithIdentifier canonicalDataCase = ["coins"; "target"; "expected"]
+
+    override this.IdentifierTypeAnnotation (canonicalDataCase, key, value) = 
+        match key with 
+        | "expected" -> 
+            match canonicalDataCase.Properties.["target"] :?> int64 with
+            | 0L -> Some "int list option"
+            | _  -> None
+        | _ -> None
+
+type CryptoSquare() =
+    inherit Exercise()
+
+type DifferenceOfSquares() =
+    inherit Exercise()
+
+type Gigasecond() =
+    inherit Exercise()
+
+    override this.RenderExpected (canonicalDataCase, key, value) = value :?> DateTime |> formatDateTime |> parenthesize
+ 
+    override this.RenderInput (canonicalDataCase, key, value) =
+        match key with
+        | "input" -> DateTime.Parse(string value, CultureInfo.InvariantCulture) |> formatDateTime |> parenthesize
+        | _ -> base.RenderInput (canonicalDataCase, key, value)
+
+    override this.AdditionalNamespaces = [typeof<DateTime>.Namespace]
+
+type HelloWorld() =
+    inherit Exercise()
+
+type Isogram() =
+    inherit Exercise()
+
+type KindergartenGarden() =
+    inherit Exercise()
+
+    let toPlant (jToken: JToken) =  sprintf "Plant.%s" (jToken.ToString() |> String.humanize)
+
+    override this.RenderExpected (canonicalDataCase, key, value) = 
+        value :?> JArray 
+        |> Seq.map toPlant
+        |> formatList
+
+    override this.RenderSutProperty canonicalDataCase =
+        match Map.containsKey "students" canonicalDataCase.Properties with
+        | true  -> "plantsForCustomStudents"
+        | false -> "plantsForDefaultStudents"
+
+    override this.PropertiesWithIdentifier canonicalDataCase = ["student"; "students"; "diagram"; "expected"]
+
+    override this.UseFullMethodName canonicalDataCase = true
+
+type Leap() =
+    inherit Exercise()
+
+type Luhn() =
+    inherit Exercise()
+
+type Minesweeper() =
+    inherit Exercise()
+
+    override this.RenderValueWithoutIdentifier (canonicalDataCase, key, value) =        
+        value :?> JArray
+        |> normalizeJArray
+        |> Seq.map formatValue
+        |> formatMultiLineList
+
+    override this.PropertiesWithIdentifier canonicalDataCase = ["input"; "expected"]
+
+    override this.IdentifierTypeAnnotation (canonicalDataCase, key, value) = 
+        match value :?> JArray |> Seq.isEmpty with 
+        | true  -> Some "string list"
+        | false -> None
+
+type Pangram() =
+    inherit Exercise()
+
+type PigLatin() =
+    inherit Exercise()
+
+type QueenAttack() =
+    inherit Exercise()
+
+    override this.MapCanonicalDataCaseProperty (canonicalDataCase, key, value) =
+        match canonicalDataCase.Property, key, value with
+        | "create", "expected", _ -> value :?> int64 <> -1L |> box
+        | _ -> base.MapCanonicalDataCaseProperty (canonicalDataCase, key, value)
+
+    override this.RenderInput (canonicalDataCase, key, value) =
+        let parsePositionTuple (tupleValue: obj) =
+            let parts = 
+                (tupleValue :?> JToken)
+                    .SelectToken("position")
+                    .ToObject<string>()
+                    .TrimStart('(')
+                    .TrimEnd(')')
+                    .Split(',')
+            formatValue (int parts.[0], int parts.[1])
+
+        match key with
+        | "queen" | "white_queen" | "black_queen" -> parsePositionTuple value
+        | _ -> base.RenderInput (canonicalDataCase, key, value)
+
+    override this.PropertiesWithIdentifier canonicalDataCase = ["white_queen"; "black_queen"]
+
+type Raindrops() =
+    inherit Exercise()
+
+type RnaTranscription() =
+    inherit Exercise()
+
+    override this.RenderExpected (canonicalDataCase, key, value) =
+        value |> Option.ofObj |> formatValue |> backwardPipe
+
+type RomanNumerals() =
+    inherit Exercise()
+
+type ScrabbleScore() =
+    inherit Exercise()

data/tracks/fsharp/generators/Generators.fsproj

@@ -0,0 +1,32 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Common.fs" />
+    <Compile Include="Options.fs" />
+    <Compile Include="Input.fs" />
+    <Compile Include="Output.fs" />
+    <Compile Include="Exercise.fs" />
+    <Compile Include="Generators.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <EmbeddedResource Include="Templates\*.liquid" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="CommandLineParser" Version="2.1.1-beta" />    
+    <PackageReference Include="DotLiquid" Version="2.0.183" />
+    <PackageReference Include="Humanizer" Version="2.2.0" />
+    <PackageReference Include="LibGit2Sharp.Portable" Version="0.24.10" />
+    <PackageReference Include="Newtonsoft.Json" Version="10.0.3" />
+    <PackageReference Include="serilog" Version="2.5.0" />
+    <PackageReference Include="serilog.sinks.literate" Version="3.0.0" />
+  </ItemGroup>
+
+</Project>