trackler 2.2.1.75 → 2.2.1.76

data/tracks/erlang/exercises/raindrops/rebar.config

@@ -0,0 +1,30 @@
+%% Erlang compiler options
+{erl_opts, [debug_info]}.
+
+{deps, [{erl_exercism, "0.1.1"}]}.
+
+{dialyzer, [
+  {warnings, [underspecs, no_return]},
+  {get_warnings, true},
+  {plt_apps, top_level_deps}, % top_level_deps | all_deps
+  {plt_extra_apps, []},
+  {plt_location, local}, % local | "/my/file/name"
+  {plt_prefix, "rebar3"},
+  {base_plt_apps, [stdlib, kernel, crypto]},
+  {base_plt_location, global}, % global | "/my/file/name"
+  {base_plt_prefix, "rebar3"}
+]}.
+
+%% eunit:test(Tests)
+{eunit_tests, []}.
+%% Options for eunit:test(Tests, Opts)
+{eunit_opts, [verbose]}.
+
+%% == xref ==
+
+{xref_warnings, true}.
+
+%% xref checks to run
+{xref_checks, [undefined_function_calls, undefined_functions,
+  locals_not_used, exports_not_used,
+  deprecated_function_calls, deprecated_functions]}.

data/tracks/erlang/exercises/raindrops/src/example.erl

@@ -0,0 +1,30 @@
+-module(example).
+
+-export([convert/1, test_version/0]).
+
+convert(Number) when Number rem 3 == 0 ->
+    pling(Number);
+convert(Number) when Number rem 5 == 0 ->
+    plang(Number);
+convert(Number) when Number rem 7 == 0 ->
+    plong(Number);
+convert(Number) ->
+    integer_to_list(Number).
+
+pling(Number) when Number rem 5 == 0 ->
+    "Pling" ++ plang(Number);
+pling(Number) when Number rem 7 == 0 ->
+    "Pling" ++ plong(Number);
+pling(_) ->
+    "Pling".
+
+plang(Number) when Number rem 7 == 0 ->
+    "Plang" ++ plong(Number);
+plang(_) ->
+    "Plang".
+
+plong(_) ->
+    "Plong".
+
+test_version() ->
+    1.

data/tracks/erlang/exercises/raindrops/src/raindrops.app.src

@@ -0,0 +1,9 @@
+{application, raindrops,
+  [{description, "exercism.io - raindrops"},
+    {vsn, "0.0.1"},
+    {modules, []},
+    {registered, []},
+    {applications, [kernel,
+      stdlib]},
+    {env, []}
+  ]}.

data/tracks/erlang/exercises/raindrops/src/raindrops.erl

@@ -0,0 +1,8 @@
+-module(raindrops).
+
+-export([convert/1, test_version/0]).
+
+convert(Number) ->
+  undefined.
+
+test_version() -> 1.

data/tracks/erlang/exercises/raindrops/test/raindrops_tests.erl

@@ -0,0 +1,50 @@
+-module(raindrops_tests).
+
+-include_lib("erl_exercism/include/exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+% test cases adapted from `x-common//canonical-data.json` @ version: 1.0.0
+
+sound_of_1_is_1_test() ->
+    ?assert( raindrops:convert(1) =:= "1").
+sound_of_3_is_Pling_test() ->
+    ?assert( raindrops:convert(3) =:= "Pling").
+sound_of_5_is_Plang_test() ->
+    ?assert( raindrops:convert(5) =:= "Plang").
+sound_of_7_is_Plong_test() ->
+    ?assert( raindrops:convert(7) =:= "Plong").
+
+sound_of_6_is_Pling_test() ->
+    ?assert( raindrops:convert(6) =:= "Pling").
+sound_of_2_to_the_power_3_is_8_test() ->
+    ?assert( raindrops:convert(8) =:= "8").
+sound_of_9_is_Pling_test() ->
+    ?assert( raindrops:convert(9) =:= "Pling").
+sound_of_10_is_Plang_test() ->
+    ?assert( raindrops:convert(10) =:= "Plang").
+sound_of_14_is_Plong_test() ->
+    ?assert( raindrops:convert(14) =:= "Plong").
+
+sound_of_15_is_PlingPlang_test() ->
+    ?assert( raindrops:convert(15) =:= "PlingPlang").
+sound_of_21_is_PlingPlong_test() ->
+    ?assert( raindrops:convert(21) =:= "PlingPlong").
+sound_of_25_is_Plang_test() ->
+    ?assert( raindrops:convert(25) =:= "Plang").
+
+sound_of_27_is_Pling_test() ->
+    ?assert( raindrops:convert(27) =:= "Pling").
+sound_of_35_is_PlangPlong_test() ->
+    ?assert( raindrops:convert(35) =:= "PlangPlong").
+sound_of_49_is_Plong_test() ->
+    ?assert( raindrops:convert(49) =:= "Plong").
+
+sound_of_52_is_52_test() ->
+    ?assert( raindrops:convert(52) =:= "52").
+sound_of_105_is_PlingPlangPlong_test() ->
+    ?assert( raindrops:convert(105) =:= "PlingPlangPlong").
+sound_of_3125_is_Plang_test() ->
+    ?assert( raindrops:convert(3125) =:= "Plang").
+
+version_test() ->
+  ?assertMatch(1, raindrops:test_version()).

data/tracks/fsharp/exercises/bob/BobTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.0 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module BobTest
 
@@ -41,7 +41,7 @@ let ``Using acronyms in regular speech`` () =
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Forceful question`` () =
-    response "WHAT THE HELL WERE YOU THINKING?" |> should equal "Whoa, chill out!"
+    response "WHAT THE HELL WERE YOU THINKING?" |> should equal "Calm down, I know what I'm doing!"
 
 [<Fact(Skip = "Remove to run test")>]
 let ``Shouting numbers`` () =

data/tracks/fsharp/exercises/bob/Example.fs

@@ -8,7 +8,13 @@ let response (input: string) =
     let isQuestion = input.Trim().EndsWith "?"
 
     match input with 
-        | _ when isEmpty -> "Fine. Be that way!"
-        | _ when isYell -> "Whoa, chill out!"
-        | _ when isQuestion -> "Sure."
-        | _ -> "Whatever."
+        | _ when isEmpty -> 
+            "Fine. Be that way!"
+        | _ when isYell && isQuestion -> 
+            "Calm down, I know what I'm doing!"
+        | _ when isYell -> 
+            "Whoa, chill out!"
+        | _ when isQuestion -> 
+            "Sure."
+        | _ -> 
+            "Whatever."

data/tracks/fsharp/exercises/book-store/BookStoreTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.1 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module BookStoreTest
 
@@ -59,3 +59,7 @@ let ``Three copies of first book and 2 each of remaining`` () =
 let ``Three each of first 2 books and 2 each of remaining books`` () =
     total [1; 1; 2; 2; 3; 3; 4; 4; 5; 5; 1; 2] |> should equal 75.20
 
+[<Fact(Skip = "Remove to run test")>]
+let ``Four groups of four are cheaper than two groups each of five and three`` () =
+    total [1; 1; 2; 2; 3; 3; 4; 5; 1; 1; 2; 2; 3; 3; 4; 5] |> should equal 102.40
+

data/tracks/fsharp/exercises/rna-transcription/RnaTranscriptionTest.fs

@@ -1,4 +1,4 @@
-// This file was auto-generated based on version 1.0.1 of the canonical data.
+// This file was auto-generated based on version 1.1.0 of the canonical data.
 
 module RnaTranscriptionTest
 
@@ -27,15 +27,3 @@ let ``RNA complement of adenine is uracil`` () =
 let ``RNA complement`` () =
     toRna "ACGTGGTCTTAA" |> should equal (Some "UGCACCAGAAUU")
 
-[<Fact(Skip = "Remove to run test")>]
-let ``Correctly handles invalid input (RNA instead of DNA)`` () =
-    toRna "U" |> should equal None
-
-[<Fact(Skip = "Remove to run test")>]
-let ``Correctly handles completely invalid DNA input`` () =
-    toRna "XXX" |> should equal None
-
-[<Fact(Skip = "Remove to run test")>]
-let ``Correctly handles partially invalid DNA input`` () =
-    toRna "ACGTXXXCTTAA" |> should equal None
-

data/tracks/fsharp/generators/CanonicalData.fs

@@ -37,15 +37,11 @@ let private updateToLatestVersion options =
     Log.Information("Updated repository to latest version.");
 
 let private downloadData options =
-    if options.SkipUpdateCanonicalData then
+    if options.CacheCanonicalData then
         ()
     else
         cloneRepository options
-        updateToLatestVersion options    
-
-let private readCanonicalData options exercise = 
-    let exerciseCanonicalDataPath = Path.Combine(options.CanonicalDataDirectory, "exercises", exercise, "canonical-data.json")
-    File.ReadAllText(exerciseCanonicalDataPath)
+        updateToLatestVersion options
 
 type CanonicalDataConverter() =
     inherit JsonConverter()
@@ -87,7 +83,18 @@ type CanonicalDataConverter() =
     override __.CanConvert(objectType: Type) = objectType = typeof<CanonicalData>
 
 let private convertCanonicalData canonicalDataContents = 
-    JsonConvert.DeserializeObject<CanonicalData>(canonicalDataContents, CanonicalDataConverter()) 
+    JsonConvert.DeserializeObject<CanonicalData>(canonicalDataContents, CanonicalDataConverter())     
+
+let private canonicalDataFile options exercise = 
+    Path.Combine(options.CanonicalDataDirectory, "exercises", exercise, "canonical-data.json")
+
+let private readCanonicalData options exercise = 
+    canonicalDataFile options exercise
+    |> File.ReadAllText
+
+let hasCanonicalData options exercise =
+    canonicalDataFile options exercise
+    |> File.Exists
 
 let parseCanonicalData options = 
     downloadData options 

data/tracks/fsharp/generators/Exercise.fs

@@ -3,14 +3,19 @@ module Generators.Exercise
 open System
 open System.IO
 open System.Reflection
+open Newtonsoft.Json
 open Newtonsoft.Json.Linq
 open Humanizer
 open Serilog
 open Formatting
 open Rendering
+open CanonicalData
+
+let private exerciseNameFromType (exerciseType: Type) = exerciseType.Name.Kebaberize()
 
 [<AbstractClass>]
-type Exercise() =
+type GeneratorExercise() =
+
     // Allow changes in canonical data
     abstract member MapCanonicalData : CanonicalData -> CanonicalData
     abstract member MapCanonicalDataCase : CanonicalDataCase -> CanonicalDataCase
@@ -56,7 +61,7 @@ type Exercise() =
     abstract member UseFullMethodName : CanonicalDataCase -> bool
     abstract member AdditionalNamespaces : string list
 
-    member this.Name = this.GetType().Name.Kebaberize()
+    member this.Name = this.GetType() |> exerciseNameFromType 
     member this.TestModuleName = this.GetType().Name.Pascalize() |> sprintf "%sTest"
     member this.TestedModuleName = this.GetType().Name.Pascalize()
 
@@ -66,8 +71,6 @@ type Exercise() =
         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
@@ -233,23 +236,86 @@ type Exercise() =
     default __.UseFullMethodName _ = false
 
     default __.AdditionalNamespaces = []
+    
+type CustomExercise() =
+
+    member this.Name = this.GetType().Name.Kebaberize()
+
+type MissingDataExercise = { Name: string }
+
+type UnimplementedExercise = { Name: string }
+    
+type Exercise =
+    | Generator of GeneratorExercise
+    | Custom of CustomExercise
+    | MissingData of MissingDataExercise
+    | Unimplemented of UnimplementedExercise
+    
+let exerciseName exercise =
+    match exercise with
+    | Generator generator -> generator.Name
+    | Custom custom -> custom.Name
+    | Unimplemented unimplemented -> unimplemented.Name
+    | MissingData missingData -> missingData.Name    
+
+type ConfigExercise = { Slug: string }
+
+type Config = { Exercises: ConfigExercise[] }
+
+let private exerciseNames = 
+    let configFilePath = "../config.json"
+    let configFileContents = File.ReadAllText configFilePath
+    let config = JsonConvert.DeserializeObject<Config>(configFileContents)
+
+    config.Exercises
+    |> Seq.map (fun exercise -> exercise.Slug)
+    |> Seq.sort
+    |> Seq.toList
 
-let createExercises filteredExercise =
+let private isConcreteType (ty: Type) = not ty.IsAbstract
 
-    let isConcreteExercise (exerciseType: Type) = 
-        not exerciseType.IsAbstract && typeof<Exercise>.IsAssignableFrom(exerciseType)
+let private isGeneratorExercise (ty: Type) = typeof<GeneratorExercise>.IsAssignableFrom(ty)
 
-    let isFilteredExercise exercise (exerciseType: Type) =
-        String.equals exercise exerciseType.Name || 
-        String.equals exercise (exerciseType.Name.Kebaberize())
+let private isCustomExercise (ty: Type) = typeof<CustomExercise>.IsAssignableFrom(ty)
 
-    let includeExercise (exerciseType: Type) = 
-        match filteredExercise with
-        | None -> isConcreteExercise exerciseType
-        | Some exercise -> isConcreteExercise exerciseType && isFilteredExercise exercise exerciseType
+let private concreteAssemblyTypes = 
+    Assembly.GetEntryAssembly().GetTypes()
+    |> Array.filter isConcreteType
 
-    let assemblyTypes = Assembly.GetEntryAssembly().GetTypes()
+let private exerciseTypeByName<'T> exerciseType =
+    (exerciseNameFromType exerciseType, Activator.CreateInstance(exerciseType) :?> 'T)
 
-    seq { for exerciseType in assemblyTypes do 
-            if includeExercise exerciseType then 
-                yield Activator.CreateInstance(exerciseType) :?> Exercise }
+let private exerciseTypesByName<'T> predicate =
+    concreteAssemblyTypes
+    |> Array.filter predicate
+    |> Array.map exerciseTypeByName<'T>
+    |> Map.ofArray
+    
+let private generatorExercises = exerciseTypesByName<GeneratorExercise> isGeneratorExercise
+
+let private customExercises = exerciseTypesByName<CustomExercise> isCustomExercise
+
+let private tryFindGeneratorExercise exerciseName =
+    generatorExercises
+    |> Map.tryFind exerciseName 
+    |> Option.map Generator
+    
+let private tryFindCustomExercise exerciseName =
+    customExercises
+    |> Map.tryFind exerciseName 
+    |> Option.map Custom
+    
+let private tryFindUnimplementedExercise options exerciseName =
+    match hasCanonicalData options exerciseName with
+    | true  -> Unimplemented { Name = exerciseName } |> Some 
+    | false -> None
+
+let private createExercise options exerciseName =
+    tryFindGeneratorExercise exerciseName
+    |> Option.orElse (tryFindCustomExercise exerciseName)
+    |> Option.orElse (tryFindUnimplementedExercise options exerciseName)
+    |> Option.orElse (MissingData { Name = exerciseName } |> Some)
+
+let createExercises options =
+    exerciseNames
+    |> List.choose (createExercise options)

data/tracks/fsharp/generators/Generators.fs

@@ -7,13 +7,13 @@ open Formatting
 open Exercise
 
 type Acronym() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type AtbashCipher() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type AllYourBase() =    
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) = 
         value 
@@ -23,7 +23,7 @@ type AllYourBase() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.Properties canonicalDataCase
 
 type Allergies() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let toAllergen (jToken: JToken) =  sprintf "Allergen.%s" (jToken.ToString() |> String.humanize)
 
@@ -59,7 +59,7 @@ type Allergies() =
         | _ -> base.RenderInput (canonicalDataCase, key, value)
 
 type Alphametics() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     member __.formatMap<'TKey, 'TValue> (value: obj) =
         if isNull value then
@@ -82,19 +82,19 @@ type Alphametics() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.Properties canonicalDataCase
 
 type Anagram() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["candidates"]
 
 type ArmstrongNumbers() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderInput (_, _, value) =
         (value :?> JToken).Value("number") 
         |> formatValue
 
 type BeerSong() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesUsedAsSutParameter _ = ["startBottles"; "takeDown"]
 
@@ -107,7 +107,7 @@ type BeerSong() =
         |> formatMultiLineList
 
 type BinarySearch() = 
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["array"; "value"; "expected"]
 
@@ -123,10 +123,10 @@ type BinarySearch() =
             base.RenderValueWithoutIdentifier (canonicalDataCase, key, value)
 
 type Bob() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type BookStore() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let formatFloat (value:obj) = value :?> float |> sprintf "%.2f"
 
@@ -136,10 +136,10 @@ type BookStore() =
         base.PropertiesUsedAsSutParameter canonicalDataCase |> List.except ["targetgrouping"]
 
 type BracketPush() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Change() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) =
         let convertToOption = if value :? JArray then Option.ofObj else Option.ofNonNegativeInt
@@ -156,7 +156,7 @@ type Change() =
         | _ -> None
 
 type Clock() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let createClock (value:obj) clockId =
         let clock = value :?> JObject
@@ -196,7 +196,7 @@ type Clock() =
             base.RenderSut canonicalDataCase
 
 type Connect() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) =
         match string value with
@@ -215,7 +215,7 @@ type Connect() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.PropertiesUsedAsSutParameter canonicalDataCase
 
 type CollatzConjecture() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) =
         value 
@@ -224,13 +224,16 @@ type CollatzConjecture() =
         |> parenthesizeOption
 
 type CryptoSquare() =
-    inherit Exercise()
+    inherit GeneratorExercise()
+
+type Diamond() =
+    inherit CustomExercise()
 
 type DifferenceOfSquares() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Dominoes() =
-    inherit Exercise()
+    inherit GeneratorExercise()
     
     let formatAsTuple (value:obj) =
         let twoElementList = value :?> JArray |> normalizeJArray
@@ -245,7 +248,7 @@ type Dominoes() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.PropertiesUsedAsSutParameter canonicalDataCase
 
 type Etl() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     member __.formatMap<'TKey, 'TValue> (value: obj) =
         let input = value :?> JObject
@@ -267,7 +270,7 @@ type Etl() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.Properties canonicalDataCase
 
 type FoodChain() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesUsedAsSutParameter _ = ["startVerse"; "endVerse"]
 
@@ -280,7 +283,7 @@ type FoodChain() =
         |> formatMultiLineList
 
 type Forth() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["expected"]
     
@@ -297,7 +300,7 @@ type Forth() =
     override __.UseFullMethodName _ = true
 
 type Gigasecond() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) = value :?> DateTime |> formatDateTime |> parenthesize
  
@@ -309,7 +312,7 @@ type Gigasecond() =
     override __.AdditionalNamespaces = [typeof<DateTime>.Namespace]
 
 type Grains() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["expected"]
 
@@ -321,7 +324,7 @@ type Grains() =
         | x    -> sprintf "Ok %sUL" x
 
 type Hamming() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) = 
         value 
@@ -330,10 +333,10 @@ type Hamming() =
         |> parenthesizeOption
 
 type HelloWorld() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type House() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesUsedAsSutParameter _ = ["startVerse"; "endVerse"]
 
@@ -346,13 +349,13 @@ type House() =
         |> formatMultiLineList
 
 type IsbnVerifier() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Isogram() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type KindergartenGarden() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let toPlant (jToken: JToken) =  sprintf "Plant.%s" (jToken.ToString() |> String.humanize)
 
@@ -366,7 +369,7 @@ type KindergartenGarden() =
     override __.UseFullMethodName _ = true
 
 type LargestSeriesProduct() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override this.PropertiesWithIdentifier canonicalDataCase = this.PropertiesUsedAsSutParameter canonicalDataCase
 
@@ -377,13 +380,13 @@ type LargestSeriesProduct() =
         |> parenthesizeOption
 
 type Leap() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Luhn() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Markdown() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.ToTestMethod (index, canonicalDataCase) =
         { base.ToTestMethod (index, canonicalDataCase) with Skip = false }
@@ -391,7 +394,7 @@ type Markdown() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.Properties canonicalDataCase
     
 type Meetup() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (canonicalDataCase, _, _) =
         let year  = canonicalDataCase.Properties.["year"] :?> int64 |> int
@@ -417,7 +420,7 @@ type Meetup() =
     override this.AdditionalNamespaces = [typeof<DateTime>.Namespace]
 
 type Minesweeper() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderValueWithoutIdentifier (_, _, value) =        
         value :?> JArray
@@ -433,7 +436,7 @@ type Minesweeper() =
         | false -> None
 
 type NthPrime() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) = 
         value
@@ -442,7 +445,7 @@ type NthPrime() =
         |> parenthesizeOption
 
 type NucleotideCount() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     member __.formatMap<'TKey, 'TValue> (value: obj) =
         match Option.ofNonError value with
@@ -466,7 +469,7 @@ type NucleotideCount() =
     override this.PropertiesWithIdentifier canonicalDataCase = this.Properties canonicalDataCase
 
 type OcrNumbers() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override this.PropertiesWithIdentifier canonicalDataCase = this.PropertiesUsedAsSutParameter canonicalDataCase
 
@@ -483,10 +486,10 @@ type OcrNumbers() =
         |> formatMultiLineList
 
 type Pangram() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type PalindromeProducts() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let toFactors (value: obj) = 
         let jArray = value :?> JArray
@@ -514,7 +517,7 @@ type PalindromeProducts() =
     override __.PropertiesUsedAsSutParameter _ = ["input_min"; "input_max"]
 
 type PascalsTriangle() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["expected"]
 
@@ -544,7 +547,7 @@ type PascalsTriangle() =
     override __.ToTestMethodBodyAssertTemplate _ = "AssertEqual"
     
 type PerfectNumbers() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let toClassification value = string value |> String.humanize
 
@@ -556,7 +559,7 @@ type PerfectNumbers() =
         |> parenthesizeOption
 
 type PhoneNumber() =
-    inherit Exercise()
+    inherit GeneratorExercise()
     
     override __.RenderExpected (_, _, value) =
         value 
@@ -565,21 +568,21 @@ type PhoneNumber() =
         |> parenthesizeOption
 
 type PigLatin() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Poker() = 
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["input"; "expected"]
 
 type PrimeFactors() =
-    inherit Exercise()
+    inherit GeneratorExercise()
     
     override __.RenderInput (canonicalDataCase, key, value) =
         base.RenderInput (canonicalDataCase, key, value) |> sprintf "%sL"
 
 type Proverb() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesWithIdentifier _ = ["input"; "expected"]
 
@@ -595,7 +598,7 @@ type Proverb() =
         | false -> None
     
 type QueenAttack() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.MapCanonicalDataCaseProperty (canonicalDataCase, key, value) =
         match canonicalDataCase.Property, key, value with
@@ -614,17 +617,17 @@ type QueenAttack() =
     override __.PropertiesWithIdentifier _ = ["white_queen"; "black_queen"]
 
 type RailFenceCipher() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesUsedAsSutParameter _ = ["rails"; "msg"]
 
     override this.PropertiesWithIdentifier canonicalDataCase = this.Properties canonicalDataCase
 
 type Raindrops() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type Rectangles() = 
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     member private __.GetPadding n = 
         String.replicate n " "
@@ -653,10 +656,10 @@ type Rectangles() =
             base.RenderValueWithoutIdentifier (canonicalDataCase, key, value)
 
 type ReverseString() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type RobotSimulator() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     let resultIdentifierName = "actual"
 
@@ -748,16 +751,16 @@ type RobotSimulator() =
          sprintf "%s - %s" canonicalDataCase.Property (canonicalDataCase.Description |> String.upperCaseFirst)
 
 type RotationalCipher() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type RnaTranscription() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) =
         value |> Option.ofObj |> formatValue |> parenthesizeOption
 
 type RunLengthEncoding() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override this.RenderSut canonicalDataCase =
         match canonicalDataCase.Property with
@@ -775,13 +778,13 @@ type RunLengthEncoding() =
             sprintf "%s %s" canonicalDataCase.Property canonicalDataCase.Description |> String.upperCaseFirst
 
 type RomanNumerals() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type ScrabbleScore() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
 type SpiralMatrix() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderExpected (_, _, value) =
         (value :?> JArray)
@@ -790,7 +793,7 @@ type SpiralMatrix() =
         |> formatMultiLineList
 
 type TwelveDays() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.PropertiesUsedAsSutParameter _ = ["startVerse"; "endVerse"]
 
@@ -803,7 +806,7 @@ type TwelveDays() =
         |> formatMultiLineList
 
 type TwoFer() =
-    inherit Exercise()
+    inherit GeneratorExercise()
 
     override __.RenderInput (_, _, value) =
         value |> Option.ofObj |> formatValue |> parenthesizeOption