trackler 2.0.6.22 → 2.0.6.23

data/tracks/objective-c/xcodeProject/ObjectiveC.xcodeproj/project.pbxproj

@@ -48,6 +48,11 @@
 		1EFACABB1CCCAF3D006F2E69 /* WordCountExample.m in Sources */ = {isa = PBXBuildFile; fileRef = 1EFACAA11CCCAF3D006F2E69 /* WordCountExample.m */; };
 		1EFACABC1CCCAF3D006F2E69 /* WordCountTest.m in Sources */ = {isa = PBXBuildFile; fileRef = 1EFACAA21CCCAF3D006F2E69 /* WordCountTest.m */; };
 
+		A09A4C031E38761A00FEFB7A /* FlattenArrayExample.m in Sources */ = {isa = PBXBuildFile; fileRef = A09A4C021E38761A00FEFB7A /* FlattenArrayExample.m */; };
+		A09A4C051E38763300FEFB7A /* FlattenArrayTest.m in Sources */ = {isa = PBXBuildFile; fileRef = A09A4C041E38763300FEFB7A /* FlattenArrayTest.m */; };
+		E907D0CA1D6B731600106C42 /* GigasecondExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E907D0C91D6B731600106C42 /* GigasecondExample.m */; };
+
+
 		A0BBFCBF1E37719800230071 /* SublistExample.m in Sources */ = {isa = PBXBuildFile; fileRef = A0BBFCBE1E37719800230071 /* SublistExample.m */; };
 		A0BBFCC31E37728100230071 /* SublistTest.m in Sources */ = {isa = PBXBuildFile; fileRef = A0BBFCC21E37728100230071 /* SublistTest.m */; };
 
@@ -141,6 +146,11 @@
 		1EFACAA11CCCAF3D006F2E69 /* WordCountExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = WordCountExample.m; path = "../../exercises/word-count/WordCountExample.m"; sourceTree = "<group>"; };
 		1EFACAA21CCCAF3D006F2E69 /* WordCountTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = WordCountTest.m; path = "../../exercises/word-count/WordCountTest.m"; sourceTree = "<group>"; };
 
+		A09A4C011E38761A00FEFB7A /* FlattenArrayExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = FlattenArrayExample.h; path = "../../exercises/flatten-array/FlattenArrayExample.h"; sourceTree = "<group>"; };
+		A09A4C021E38761A00FEFB7A /* FlattenArrayExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = FlattenArrayExample.m; path = "../../exercises/flatten-array/FlattenArrayExample.m"; sourceTree = "<group>"; };
+		A09A4C041E38763300FEFB7A /* FlattenArrayTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = FlattenArrayTest.m; path = "../../exercises/flatten-array/FlattenArrayTest.m"; sourceTree = "<group>"; };
+
+
         A0BBFCBD1E37719800230071 /* SublistExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = SublistExample.h; path = ../../exercises/sublist/SublistExample.h; sourceTree = "<group>"; };
 		A0BBFCBE1E37719800230071 /* SublistExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SublistExample.m; path = ../../exercises/sublist/SublistExample.m; sourceTree = "<group>"; };
 		A0BBFCC21E37728100230071 /* SublistTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SublistTest.m; path = ../../exercises/sublist/SublistTest.m; sourceTree = "<group>"; };
@@ -155,6 +165,7 @@
 		A065F5771E3098080048E337 /* BeerSongTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = BeerSongTest.m; path = "../../exercises/beer-song/BeerSongTest.m"; sourceTree = "<group>"; };
 
 
+
 		E907D0C81D6B731600106C42 /* GigasecondExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = GigasecondExample.h; path = ../../exercises/gigasecond/GigasecondExample.h; sourceTree = "<group>"; };
 		E907D0C91D6B731600106C42 /* GigasecondExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = GigasecondExample.m; path = ../../exercises/gigasecond/GigasecondExample.m; sourceTree = "<group>"; };
 		E907D0CB1D6B734800106C42 /* GigasecondTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = GigasecondTest.m; path = ../../exercises/gigasecond/GigasecondTest.m; sourceTree = "<group>"; };
@@ -239,6 +250,7 @@
 				E9381D4F1D8F2DA4003F22A1 /* Clock */,
 				E9381D431D8EDFB8003F22A1 /* DifferenceOfSquares */,
 				E9E8B6ED1D519DF50012F12C /* Etl */,
+				A09A4C001E3875C200FEFB7A /* FlattenArray */,
 				E907D0C71D6B72B600106C42 /* Gigasecond */,
 				E9E8B6EE1D519DFE0012F12C /* GradeSchool */,
 				E9E8B6EF1D519E040012F12C /* Hamming */,
@@ -285,6 +297,18 @@
 			sourceTree = "<group>";
 		};
 
+		A09A4C001E3875C200FEFB7A /* FlattenArray */ = {
+			isa = PBXGroup;
+			children = (
+				A09A4C011E38761A00FEFB7A /* FlattenArrayExample.h */,
+				A09A4C021E38761A00FEFB7A /* FlattenArrayExample.m */,
+				A09A4C041E38763300FEFB7A /* FlattenArrayTest.m */,
+			);
+			name = FlattenArray;
+			sourceTree = "<group>";
+		};
+
+
 		A0BBFCBC1E37703D00230071 /* Sublist */ = {
 			isa = PBXGroup;
 			children = (
@@ -320,6 +344,7 @@
 		};
 
 
+
 		E907D0C71D6B72B600106C42 /* Gigasecond */ = {
 			isa = PBXGroup;
 			children = (
@@ -734,7 +759,11 @@
 				E9C1C0291D9DB16B0015E86E /* AcronymExample.m in Sources */,
 				1EFACAA41CCCAF3D006F2E69 /* AnagramTest.m in Sources */,
 				E907FE921D87547D00B93DA9 /* ScrabbleScoreExample.m in Sources */,
+
+				A09A4C051E38763300FEFB7A /* FlattenArrayTest.m in Sources */,
+
 				A097D4101E363C2700EAF2C2 /* BracketPushTest.m in Sources */,
+
 				1EFACABC1CCCAF3D006F2E69 /* WordCountTest.m in Sources */,
 				1EFACAB11CCCAF3D006F2E69 /* NucleotideCountExample.m in Sources */,
 				E9381D481D8EE00C003F22A1 /* DifferenceOfSquaresTest.m in Sources */,
@@ -750,7 +779,11 @@
 				E9381D521D8F2DCC003F22A1 /* ClockExample.m in Sources */,
 				E99D1D811D5533BF0006A303 /* SumOfMultiplesExample.m in Sources */,
 				E9F390071DFCA337005C5F46 /* IsogramExample.m in Sources */,
+
+				A09A4C031E38761A00FEFB7A /* FlattenArrayExample.m in Sources */,
+
 				A0BBFCC31E37728100230071 /* SublistTest.m in Sources */,
+
 				E9C1C02F1D9EC1130015E86E /* RunLengthEncodingExample.m in Sources */,
 				E92FCC0F1D78F3B600061017 /* MeetupTest.m in Sources */,
 				E9381D4E1D8F2982003F22A1 /* RaindropsTest.m in Sources */,

data/tracks/ocaml/config.json

@@ -71,6 +71,11 @@
       "difficulty": 3,
       "topics": []
     },
+    {
+      "slug": "pangram",
+      "difficulty": 3,
+      "topics": ["Strings"]
+    },
     {
       "slug": "all-your-base",
       "difficulty": 4,

data/tracks/ocaml/exercises/pangram/.merlin

@@ -0,0 +1,3 @@
+PKG core oUnit
+S *
+B build/*

data/tracks/ocaml/exercises/pangram/Makefile

@@ -0,0 +1,11 @@
+test: test.native
+	@./test.native
+
+test.native: *.ml *.mli
+	@corebuild -r -quiet -pkg oUnit test.native
+
+clean:
+	rm -rf _build
+	rm -f test.native
+
+.PHONY: clean

data/tracks/ocaml/exercises/pangram/example.ml

@@ -0,0 +1,9 @@
+open Core.Std
+
+let string_to_set s = Char.Set.of_list (String.to_list s)
+
+let alphabet_set = string_to_set "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+
+let is_pangram s = 
+  let normalize s = String.filter ~f:Char.is_alpha s |> String.uppercase in
+  Set.equal alphabet_set (string_to_set @@ normalize s)

data/tracks/ocaml/exercises/pangram/pangram.mli

@@ -0,0 +1 @@
+val is_pangram : string -> bool

data/tracks/ocaml/exercises/pangram/test.ml

@@ -0,0 +1,29 @@
+open Core.Std
+open OUnit2
+open Pangram
+
+let ae exp got _test_ctxt = assert_equal ~printer:Bool.to_string exp got
+
+let tests = [
+   "sentence empty" >::
+      ae false (is_pangram "");
+   "pangram with only lower case" >::
+      ae true (is_pangram "the quick brown fox jumps over the lazy dog");
+   "missing character 'x'" >::
+      ae false (is_pangram "a quick movement of the enemy will jeopardize five gunboats");
+   "another missing character 'x'" >::
+      ae false (is_pangram "the quick brown fish jumps over the lazy dog");
+   "pangram with underscores" >::
+      ae true (is_pangram "the_quick_brown_fox_jumps_over_the_lazy_dog");
+   "pangram with numbers" >::
+      ae true (is_pangram "the 1 quick brown fox jumps over the 2 lazy dogs");
+   "missing letters replaced by numbers" >::
+      ae false (is_pangram "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog");
+   "pangram with mixed case and punctuation" >::
+      ae true (is_pangram "\"Five quacking Zephyrs jolt my wax bed.\"");
+   "upper and lower case versions of the same character should not be counted separately" >::
+      ae false (is_pangram "the quick brown fox jumped over the lazy FOX");
+]
+
+let () =
+  run_test_tt_main ("pangram tests" >::: tests)

data/tracks/ocaml/tools/test-generator/templates/pangram/template.ml

@@ -0,0 +1,15 @@
+open Core.Std
+open OUnit2
+open Pangram
+
+let ae exp got _test_ctxt = assert_equal ~printer:Bool.to_string exp got
+
+let tests = [
+(* TEST
+   "$description" >::
+      ae $expected (is_pangram "$input");
+   END TEST *)
+]
+
+let () =
+  run_test_tt_main ("pangram tests" >::: tests)

data/tracks/pascal/config.json

@@ -59,6 +59,14 @@
         "Transforming"
       ]
     },
+    {
+	    "slug": "grains",
+	    "difficulty": 2,
+	    "topics": [
+	      "Integers",
+	      "Recursion"
+      ]
+    },
     {
       "slug": "beer-song",
       "difficulty": 3,

data/tracks/pascal/docs/INSTALLATION.md

@@ -23,7 +23,7 @@ If you had to install DUnitX because your installation didn't already come with
 
 *Note: it is assumed that you have completed the installation of Delphi by this point.*
 
-- Start Delphi.  If your installation is new you will most likely end up at a Welcome Page similar to this.
+- Start Delphi.  If your installation is new you will most likely end up at a `Welcome Page` similar to this.
 
 [![Welcome Page](http://x.exercism.io/v3/tracks/pascal/docs/img/00delphiwelcomepageLogo.png)](http://x.exercism.io/v3/tracks/pascal/docs/img/00delphiwelcomepage.png)
 
@@ -49,11 +49,11 @@ If you had to install DUnitX because your installation didn't already come with
 
 - Locate and click on `Library` along the left side of the Options screen.
 
-![[Library](http://x.exercism.io/v3/tracks/pascal/docs/img/06delphioptionslibraryLogo.png)](http://x.exercism.io/v3/tracks/pascal/docs/img/06delphioptionslibrary.png)
+[![Library](http://x.exercism.io/v3/tracks/pascal/docs/img/06delphioptionslibraryLogo.png)](http://x.exercism.io/v3/tracks/pascal/docs/img/06delphioptionslibrary.png)
 
 - Click the `...` button associated with the Library path in the Directories group
 
-![...button](http://x.exercism.io/v3/tracks/pascal/docs/img/07delphiclicklibrarypathbutton.png)
+[![...button](http://x.exercism.io/v3/tracks/pascal/docs/img/07delphiclicklibrarypathbuttonLogo.png)](http://x.exercism.io/v3/tracks/pascal/docs/img/07delphiclicklibrarypathbutton.png)
 
 - In the Directories window enter the variable name that you created a few steps ago.  The entry should appear like this `$(DUNITX)` 
 

data/tracks/pascal/exercises/grains/GrainsTests.dpr

@@ -0,0 +1,60 @@
+program GrainsTests;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uGrainsTests in 'uGrainsTests.pas',
+  uGrains in 'uGrains.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/pascal/exercises/grains/uGrainsExample.pas

@@ -0,0 +1,33 @@
+unit uGrains;
+
+interface
+
+type
+  Grains = class
+    class function Square(aInteger: integer): UInt64; static;
+    class function Total: UInt64; static;
+  end;
+
+implementation
+uses System.SysUtils;
+
+class function Grains.Square(aInteger: integer): UInt64;
+begin
+  if (aInteger < 1) or (aInteger > 64) then
+    raise ERangeError.CreateFmt('Argument of %d is out of bounds.  Must be > 0 and < 65',[aInteger]);
+
+  if aInteger = 1 then
+    result := 1
+  else
+    result := 2 * Square(aInteger - 1);
+end;
+
+class function Grains.Total: UInt64;
+var i: integer;
+begin
+  result := 0;
+  for i := 1 to 64 do
+    result := result + Square(i);
+end;
+
+end.

data/tracks/pascal/exercises/grains/uGrainsTests.pas

@@ -0,0 +1,149 @@
+unit uGrainsTests;
+
+interface
+uses
+  DUnitX.TestFramework;
+
+type
+  [TestFixture]
+  TgrainsTests = class(TObject)
+  public
+    [Test]
+    procedure Test_square_1;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_square_2;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_square_3;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_square_4;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_square_16;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_square_32;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_square_64;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Square_0_raises_an_exception;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Negative_square_raises_an_exception;
+
+    [Test]
+    [Ignore('Comment this line to run the test')]
+    procedure Square_greater_than_64_raises_an_exception;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Test_total_grains;
+  end;
+
+implementation
+uses System.SysUtils, uGrains;
+
+procedure TgrainsTests.Test_square_1;
+var expected: UInt64;
+begin
+  expected := 1;
+  Assert.AreEqual(expected, Grains.Square(1));
+end;
+
+procedure TgrainsTests.Test_square_2;
+var expected: UInt64;
+begin
+  expected := 2;
+  Assert.AreEqual(expected, Grains.Square(2));
+end;
+
+procedure TgrainsTests.Test_square_3;
+var expected: UInt64;
+begin
+  expected := 4;
+  Assert.AreEqual(expected, Grains.Square(3));
+end;
+
+procedure TgrainsTests.Test_square_4;
+var expected: UInt64;
+begin
+  expected := 8;
+  Assert.AreEqual(expected, Grains.Square(4));
+end;
+
+procedure TgrainsTests.Test_square_16;
+var expected: UInt64;
+begin
+  expected := 32768;
+  Assert.AreEqual(expected, Grains.Square(16));
+end;
+
+procedure TgrainsTests.Test_square_32;
+var expected: UInt64;
+begin
+  expected := 2147483648;
+  Assert.AreEqual(expected, Grains.Square(32));
+end;
+
+procedure TgrainsTests.Test_square_64;
+var expected: UInt64;
+begin
+  expected := 9223372036854775808;
+  Assert.AreEqual(expected, Grains.Square(64));
+end;
+
+procedure TgrainsTests.Square_0_raises_an_exception;
+var MyProc: TTestLocalMethod;
+begin
+  MyProc := procedure
+            begin
+              Grains.Square(0);
+            end;
+
+  Assert.WillRaise(MyProc, ERangeError);
+end;
+
+procedure TgrainsTests.Negative_square_raises_an_exception;
+var MyProc: TTestLocalMethod;
+begin
+  MyProc := procedure
+            begin
+              Grains.Square(-1);
+            end;
+
+  Assert.WillRaise(MyProc, ERangeError);
+end;
+
+procedure TgrainsTests.Square_greater_than_64_raises_an_exception;
+var MyProc: TTestLocalMethod;
+begin
+  MyProc := procedure
+            begin
+              Grains.Square(65);
+            end;
+
+  Assert.WillRaise(MyProc, ERangeError);
+end;
+
+procedure TgrainsTests.Test_total_grains;
+var expected: UInt64;
+begin
+  expected := 18446744073709551615;
+  Assert.AreEqual(expected, Grains.Total);
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(TgrainsTests);
+end.