trackler 2.2.1.170 → 2.2.1.171

data/tracks/delphi/exercises/word-count/WordCount.dpr

@@ -0,0 +1,60 @@
+program WordCount;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uWordCountTests in 'uWordCountTests.pas',
+  uWordCount in 'uWordCount.pas';
+
+var
+  runner : ITestRunner;
+  results : IRunResults;
+  logger : ITestLogger;
+  nunitLogger : ITestLogger;
+begin
+{$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX.RunRegisteredTests;
+  exit;
+{$ENDIF}
+  try
+    //Check command line options, will exit if invalid
+    TDUnitX.CheckCommandLine;
+    //Create the test runner
+    runner := TDUnitX.CreateRunner;
+    //Tell the runner to use RTTI to find Fixtures
+    runner.UseRTTI := True;
+    //tell the runner how we will log things
+    //Log to the console window
+    logger := TDUnitXConsoleLogger.Create(true);
+    runner.AddLogger(logger);
+    //Generate an NUnit compatible XML File
+    nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile);
+    runner.AddLogger(nunitLogger);
+    runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests;
+
+    //Run tests
+    results := runner.Execute;
+    if not results.AllPassed then
+      System.ExitCode := EXIT_ERRORS;
+
+    {$IFNDEF CI}
+    //We don't want this happening when running under CI.
+    if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then
+    begin
+      System.Write('Done.. press <Enter> key to quit.');
+      System.Readln;
+    end;
+    {$ENDIF}
+  except
+    on E: Exception do
+      System.Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.

data/tracks/delphi/exercises/word-count/uWordCountExample.pas

@@ -0,0 +1,67 @@
+unit uWordCount;
+
+interface
+uses
+  System.Generics.Collections;
+
+type
+  IWordCount = interface
+    ['{955DF34E-254D-44E1-B4F3-91F0DCF8B764}']
+    function countWords: TDictionary<string, integer>;
+  end;
+
+  TWordCount = class(TInterfacedObject, IWordCount)
+  private
+    FWords: string;
+    FWordDict: TDictionary<string, integer>;
+  public
+    constructor Create(aWords: string);
+    function countWords: TDictionary<string, integer>;
+  end;
+
+function WordCount(aWords: string): IWordCount;
+
+implementation
+
+uses SysUtils, RegularExpressions;
+
+function WordCount(aWords: string): IWordCount;
+begin
+  result := TWordCount.Create(aWords);
+end;
+
+constructor TWordCount.Create(aWords: string);
+begin
+  inherited Create;
+  FWords := aWords;
+  FWordDict := TDictionary<string, integer>.Create;
+end;
+
+function TWordCount.countWords: TDictionary<string, integer>;
+var
+  aWords: TArray<string>;
+  aWord: string;
+begin
+  // convert to lowercase and trim spaces
+  FWords := Trim(Lowercase(FWords));
+  // replace all separators with spaces
+  FWords := TRegEx.Replace(FWords, '(,|\\n|'' | ''|:)', ' ', [roNone]);
+  // get rid of extra characters
+  FWords := TRegEx.Replace(FWords, '[^0-9a-z '']', '', [roNone]);
+  // delete extra spaces
+  FWords := TRegEx.Replace(FWords, '\s+', ' ', [roNone]);
+  // splitting on spaces
+  aWords := FWords.Split([' ']);
+
+  for aWord in aWords do
+  begin
+    if (not FWordDict.ContainsKey(aWord)) then
+      FWordDict.Add(aWord, 1)
+    else
+      FWordDict.Items[aWord] := FWordDict.Items[aWord] + 1;
+  end;
+
+  result := FWordDict;
+end;
+end.
+

data/tracks/delphi/exercises/word-count/uWordCountTests.pas

@@ -0,0 +1,247 @@
+unit uWordCountTests;
+
+interface
+uses
+  System.Generics.Collections, DUnitX.TestFramework;
+  
+const
+  CanonicalVersion = '1.2.0';  
+
+type
+
+  [TestFixture]
+  WordCountTests = class(TObject)
+  private
+    procedure CompareDictionaries(Expected, Actual: TDictionary<String, integer>);
+  public
+    [Test]
+    procedure Validate_CompareDictionaries;
+	
+    [Test]
+    // [Ignore('Comment the "[Ignore]" statement to run the test')]
+    procedure Count_one_word;
+
+    [Test]
+    [Ignore]
+    procedure Count_one_of_each_word;
+
+    [Test]
+    [Ignore]
+    procedure Multiple_occurrences_of_a_word;
+
+    [Test]
+    [Ignore]
+    procedure Handles_cramped_lists;
+
+    [Test]
+    [Ignore]
+    procedure Handles_expanded_lists;
+
+    [Test]
+    [Ignore]
+    procedure Ignore_punctuation;
+
+    [Test]
+    [Ignore]
+    procedure Include_numbers;
+
+    [Test]
+    [Ignore]
+    procedure Normalize_case;
+
+    [Test]
+    [Ignore]
+    procedure With_apostrophes;
+
+    [Test]
+    [Ignore]
+    procedure With_quotations;
+
+    [Test]
+    [Ignore]
+    procedure Multiple_spaces_not_detected_as_a_word;
+
+  end;
+	
+implementation
+
+uses SysUtils, uWordCount;
+
+procedure WordCountTests.CompareDictionaries(Expected, Actual: TDictionary<String, Integer>);
+var expectedPair: TPair<string, Integer>;
+begin
+  Assert.AreEqual(Expected.Count, Actual.Count);
+  for expectedPair in Expected do
+  begin
+    Assert.IsTrue(Actual.ContainsKey(expectedPair.Key));
+    Assert.AreEqual(expectedPair.Value, Actual[expectedPair.Key]);
+  end;
+end;
+
+procedure WordCountTests.Validate_CompareDictionaries;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('r',5);
+  expected.Add('a',10);
+  expected.Add('n',15);
+  expected.Add('d',20);
+  expected.Add('o',25);
+  expected.Add('m',30);
+
+  actual := TDictionary<String, Integer>.create(expected);
+
+  CompareDictionaries(expected, actual);
+end;
+
+procedure WordCountTests.Count_one_word;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('word',1);
+
+  actual := WordCount('word').countWords;
+  
+  CompareDictionaries(expected, actual);
+end;
+
+procedure WordCountTests.Count_one_of_each_word;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('one',1);
+  expected.Add('of',1);
+  expected.Add('each',1);
+
+  actual :=  WordCount('one of each').countWords;
+  
+  CompareDictionaries(expected, actual);
+end;
+
+procedure WordCountTests.Multiple_occurrences_of_a_word;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('one',1);
+  expected.Add('fish',4);
+  expected.Add('two',1);  
+  expected.Add('red',1);
+  expected.Add('blue',1);
+  
+  actual := WordCount('one fish two fish red fish blue fish').countWords;
+
+  CompareDictionaries(expected, actual);
+end;
+
+procedure WordCountTests.Handles_cramped_lists;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('one',1);
+  expected.Add('two',1);
+  expected.Add('three',1);  
+
+  actual := WordCount('one,two,three').countWords;
+
+  CompareDictionaries(expected, actual);  
+end;
+
+procedure WordCountTests.Handles_expanded_lists;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('one',1);
+  expected.Add('two',1);
+  expected.Add('three',1);  
+
+  actual := WordCount('one,\ntwo,\nthree').countWords;
+
+  CompareDictionaries(expected, actual);  
+end;
+
+procedure WordCountTests.Ignore_punctuation;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('car',1);
+  expected.Add('carpet',1);
+  expected.Add('as',1);  
+  expected.Add('java',1);
+  expected.Add('javascript',1);
+
+  actual := WordCount('car: carpet as java: javascript!!&@$%^&').countWords;
+
+  CompareDictionaries(expected, actual);  
+end;
+
+procedure WordCountTests.Include_numbers;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('testing',2);
+  expected.Add('1',1);
+  expected.Add('2',1);  
+
+  actual := WordCount('testing, 1, 2 testing').countWords;
+
+  CompareDictionaries(expected, actual);
+end;
+
+procedure WordCountTests.Normalize_case;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('go',3);
+  expected.Add('stop',2);
+
+  actual := WordCount('go Go GO Stop stop').countWords;
+
+  CompareDictionaries(expected, actual);  
+end;
+
+procedure WordCountTests.With_apostrophes;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('first',1);
+  expected.Add('don''t',2);
+  expected.Add('laugh',1);  
+  expected.Add('then',1);
+  expected.Add('cry',1);
+
+  actual := WordCount('First: don''t laugh. Then: don''t cry.').countWords;
+
+  CompareDictionaries(expected, actual);    
+end;
+
+procedure WordCountTests.With_quotations;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('joe',1);
+  expected.Add('can''t',1);
+  expected.Add('tell',1);  
+  expected.Add('between',1);
+  expected.Add('large',2);
+  expected.Add('and',1);  
+
+  actual := WordCount('Joe can''t tell between ''large'' and large').countWords;
+
+  CompareDictionaries(expected, actual);    
+end;
+
+procedure WordCountTests.Multiple_spaces_not_detected_as_a_word;
+var expected, actual: TDictionary<String, integer>;
+begin
+  expected := TDictionary<String, integer>.Create;
+  expected.Add('multiple',1);
+  expected.Add('whitespaces',1);
+
+  actual := WordCount(' multiple   whitespaces').countWords;
+
+  CompareDictionaries(expected, actual);    
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(WordCountTests);
+end.

data/tracks/elisp/config.json

@@ -7,6 +7,7 @@
       "slug": "hello-world",
       "uuid": "c4fdc935-885b-44bd-84e4-fae4a09e8c39",
       "core": false,
+      "auto_approve": true,
       "unlocked_by": null,
       "difficulty": 1,
       "topics": null

data/tracks/erlang/config.json

@@ -1,7 +1,7 @@
 {
   "language": "Erlang",
   "active": true,
-  "blurb": "",
+  "blurb": "Erlang is a functional language, designed for use in real-time distributed systems. It's used within telecom networks, and is notable for simple message passing with lightweight independent processes.",
   "foregone": [
     "binary-search",
     "lens-person",

data/tracks/fortran/config.json

@@ -1,81 +1,65 @@
 {
   "language": "Fortran",
   "active": false,
-  "test_pattern": ".*\\.fun",
+  "blurb": "",
   "solution_pattern": "example.f90",
+  "test_pattern": ".*\\.fun",
   "exercises": [
     {
-      "uuid": "b71d9258-78ef-4986-b9ed-ebf93b72d399",
       "slug": "hello-world",
+      "uuid": "b71d9258-78ef-4986-b9ed-ebf93b72d399",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     },
     {
-      "uuid": "c0657767-1d7f-4262-b932-50ab53b9c220",
       "slug": "bob",
+      "uuid": "c0657767-1d7f-4262-b932-50ab53b9c220",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     },
     {
-      "uuid": "c4b23221-b6a8-452c-9816-c30501fc690f",
       "slug": "hamming",
+      "uuid": "c4b23221-b6a8-452c-9816-c30501fc690f",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     },
     {
-      "uuid": "6fa09622-b92d-42ae-aeba-b68717c0b51c",
       "slug": "rna-transcription",
+      "uuid": "6fa09622-b92d-42ae-aeba-b68717c0b51c",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     },
     {
-      "uuid": "15bab787-1566-45e9-9e26-0bb7f57bbcd5",
       "slug": "raindrops",
+      "uuid": "15bab787-1566-45e9-9e26-0bb7f57bbcd5",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     },
     {
-      "uuid": "dd6c972e-3c85-4a92-b8e5-d58ea3cadfa0",
       "slug": "difference-of-squares",
+      "uuid": "dd6c972e-3c85-4a92-b8e5-d58ea3cadfa0",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     },
     {
-      "uuid": "c9100446-6e8a-4171-9c1c-61f2b86ba24f",
       "slug": "pangram",
+      "uuid": "c9100446-6e8a-4171-9c1c-61f2b86ba24f",
       "core": false,
       "unlocked_by": null,
       "difficulty": 1,
-      "topics": [
-
-      ]
+      "topics": []
     }
-  ],
-  "foregone": [
-
   ]
 }