trackler 2.2.1.72 → 2.2.1.73

data/tracks/common-lisp/exercises/etl/README.md

@@ -48,7 +48,7 @@ game while being scored at 4 in the Hawaiian-language version.
 
 ## Setup
 
-Check out [Exercism Help](http://exercism.io/languages/lisp) for instructions to
+Check out [Exercism Help](http://exercism.io/languages/common-lisp) for instructions to
 get started writing Common Lisp. That page will explain how to install and setup
 a Lisp implementation and how to run the tests.
 

data/tracks/common-lisp/exercises/isogram/README.md

@@ -59,7 +59,7 @@ with the REPL; making iterative coding and testing very easy.
 
 ## Source
 
-Learn more about Isograms at [wikipedia](https://en.wikipedia.org/wiki/Isogram")
+Learn more about Isograms at [wikipedia](https://en.wikipedia.org/wiki/Isogram)
 
 ## Submitting Incomplete Solutions
 It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/delphi/config.json

@@ -140,6 +140,16 @@
       "unlocked_by": null,
       "uuid": "edfc2903-1165-4029-9901-0be72b32865f"
     },
+    {
+      "core": false,
+      "difficulty": 2,
+      "slug": "armstrong-numbers",
+      "topics": [
+        "algorithms"
+      ],
+      "unlocked_by": "collatz-conjecture",
+      "uuid": "5315f8b0-f2a2-4750-8dc3-b4d182111036"
+    },
     {
       "core": false,
       "difficulty": 3,

data/tracks/delphi/config/maintainers.json

@@ -14,7 +14,7 @@
     {
       "alumnus": false,
       "avatar_url": null,
-      "bio": "I have been using Delphi professionally since 1996.  At my day job I develop software used in the control of various types of test machines used by the auto industry.  Exercism is my first real push into Open Source and I'm happy to have this opportunity to teach and share the virtures of Delphi with others.",
+      "bio": "I have been using Delphi professionally since 1996.  At my day job I develop software used in the control of various types of test machines used by the auto industry.  Exercism is my first real push into Open Source and I'm happy to have this opportunity to teach and share the virtues of Delphi with others.",
       "github_username": "rpottsoh",
       "link_text": null,
       "link_url": null,
@@ -22,4 +22,4 @@
       "show_on_website": true
     }
   ]
-}
+}

data/tracks/delphi/exercises/armstrong-numbers/ArmstrongNumbers.dpr

@@ -0,0 +1,60 @@
+program ArmstrongNumbers;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uArmstrongNumbersTests in 'uArmstrongNumbersTests.pas',
+  uArmstrongNumbers in 'uArmstrongNumbers.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/armstrong-numbers/README.md

@@ -0,0 +1,39 @@
+# Armstrong Numbers
+
+An [Armstrong number](https://en.wikipedia.org/wiki/Narcissistic_number) is a number that is the sum of its own digits each raised to the power of the number of digits.
+
+For example:
+
+- 9 is an Armstrong number, because `9 = 9^1 = 9`
+- 10 is *not* an Armstrong number, because `10 != 1^2 + 0^2 = 2`
+- 153 is an Armstrong number, because: `153 = 1^3 + 5^3 + 3^3 = 1 + 125 + 27 = 153`
+- 154 is *not* an Armstrong number, because: `154 != 1^3 + 5^3 + 4^3 = 1 + 125 + 64 = 190`
+
+Write some code to determine whether a number is an Armstrong number.
+
+## Testing
+
+In order to run the tests for this track, you will need to install
+DUnitX. Please see the [installation](http://www.exercism.io/languages/delphi/installation) instructions for more information.
+
+### Loading Exercises into Delphi
+
+If Delphi is properly installed, and `*.dpr` file types have been associated with Delphi, then double clicking the supplied `*.dpr` file will start Delphi and load the exercise/project.  `control + F9` is the keyboard shortcut to compile the project or pressing `F9` will compile and run the project.
+
+Alternatively you may opt to start Delphi and load your project via. the `File` drop down menu.
+
+### When Questions Come Up
+We monitor the [Pascal-Delphi](https://gitter.im/exercism/Pascal-Delphi) support room on [gitter.im](https://gitter.im) to help you with any questions that might arise.
+
+### Submitting Exercises
+
+Note that, when trying to submit an exercise, make sure the exercise file you're submitting is in the `exercism/delphi/<exerciseName>` directory.
+
+For example, if you're submitting `ubob.pas` for the Bob exercise, the submit command would be something like `exercism submit <path_to_exercism_dir>/delphi/bob/ubob.pas`.
+
+## Source
+
+Wikipedia [https://en.wikipedia.org/wiki/Narcissistic_number](https://en.wikipedia.org/wiki/Narcissistic_number)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/delphi/exercises/armstrong-numbers/uArmstrongNumbersExample.pas

@@ -0,0 +1,24 @@
+unit uArmstrongNumbers;
+
+interface
+uses System.SysUtils, System.Math;
+
+function isArmstrongNumber(aNumber: integer): Boolean;
+
+implementation
+
+function isArmstrongNumber(aNumber: integer): Boolean;
+var wrkString: string;
+    Exponent: integer;
+    wrkInteger: integer;
+    i: integer;
+begin
+  wrkString := aNumber.ToString;
+  Exponent := length(wrkString);
+  wrkInteger := 0;
+  for i := low(wrkString) to high(wrkString) do
+    wrkInteger := wrkInteger + trunc(Power(string.ToInteger(wrkString[i]), Exponent));
+  result := wrkInteger = aNumber;
+end;
+
+end.

data/tracks/delphi/exercises/armstrong-numbers/uArmstrongNumbersTests.pas

@@ -0,0 +1,101 @@
+unit uArmstrongNumbersTests;
+
+interface
+uses
+  DUnitX.TestFramework;
+
+const
+  CanonicalVersion = '1.0.0';
+
+type
+
+  [TestFixture]
+  ArmstrongNumbersTests = class(TObject) 
+  public
+    [Test]
+//    [Ignore('Comment the "[Ignore]" statement to run the test')]
+    procedure Single_digit_numbers_are_Armstrong_numbers;
+
+    [Test]
+    [Ignore]
+    procedure There_are_no_2_digit_Armstrong_numbers;
+
+    [Test]
+    [Ignore]
+    procedure Three_digit_number_that_is_an_Armstrong_number;
+
+    [Test]
+    [Ignore]
+    procedure Three_digit_number_that_is_not_an_Armstrong_number;
+
+    [Test]
+    [Ignore]
+    procedure Four_digit_number_that_is_an_Armstrong_number;
+
+    [Test]
+    [Ignore]
+    procedure Four_digit_number_that_is_not_an_Armstrong_number;
+
+    [Test]
+    [Ignore]
+    procedure Seven_digit_number_that_is_an_Armstrong_number;
+
+    [Test]
+    [Ignore]
+    procedure Seven_digit_number_that_is_not_an_Armstrong_number;
+  end;
+
+implementation
+uses uArmstrongNumbers;
+
+{ ArmstrongNumbersTests }
+
+procedure ArmstrongNumbersTests.Four_digit_number_that_is_an_Armstrong_number;
+begin
+  Assert.IsTrue(isArmstrongNumber(9474));
+end;
+
+procedure ArmstrongNumbersTests.Four_digit_number_that_is_not_an_Armstrong_number;
+begin
+  Assert.IsFalse(isArmstrongNumber(9475));
+end;
+
+procedure ArmstrongNumbersTests.Seven_digit_number_that_is_an_Armstrong_number;
+begin
+  Assert.IsTrue(isArmstrongNumber(9926315));
+end;
+
+procedure ArmstrongNumbersTests.Seven_digit_number_that_is_not_an_Armstrong_number;
+begin
+  Assert.IsFalse(isArmstrongNumber(9926314));
+end;
+
+procedure ArmstrongNumbersTests.Single_digit_numbers_are_Armstrong_numbers;
+var
+  i: integer;
+begin
+  for i := 0 to 9 do
+    Assert.IsTrue(isArmstrongNumber(i));
+end;
+
+procedure ArmstrongNumbersTests.There_are_no_2_digit_Armstrong_numbers;
+var
+  i: integer;
+begin
+  for i := 10 to 99 do
+    Assert.IsFalse(isArmstrongNumber(i));
+end;
+
+procedure ArmstrongNumbersTests.Three_digit_number_that_is_an_Armstrong_number;
+begin
+  Assert.IsTrue(isArmstrongNumber(153));
+end;
+
+procedure ArmstrongNumbersTests.Three_digit_number_that_is_not_an_Armstrong_number;
+begin
+  Assert.IsFalse(isArmstrongNumber(100));
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(ArmstrongNumbersTests);
+end.

data/tracks/delphi/exercises/bob/README.md

@@ -6,6 +6,8 @@ Bob answers 'Sure.' if you ask him a question.
 
 He answers 'Whoa, chill out!' if you yell at him.
 
+He answers 'Calm down, I know what I'm doing!' if you yell a question at him.
+
 He says 'Fine. Be that way!' if you address him without actually saying
 anything.
 

data/tracks/delphi/exercises/bob/uBobExample.pas

@@ -8,8 +8,9 @@ type
     class function IsSilence(aStatement: string): Boolean; static;
     class function IsYelling(aStatement: string): Boolean; static;
     class function IsQuestion(aStatement: string): Boolean; static;
+    class function IsYellingQuestion(aStatement: string): Boolean; static;
   public
-    class function Hey(aStatement: string): string; static;
+    class function Response(aStatement: string): string; static;
   End;
 
 implementation
@@ -25,16 +26,24 @@ begin
   result := (aStatement.ToUpper = aStatement) and TRegEx.IsMatch(aStatement, '[a-zA-Z]+');
 end;
 
+class function TBob.IsYellingQuestion(aStatement: string): Boolean;
+begin
+  result := IsQuestion(aStatement) and IsYelling(aStatement);
+end;
+
 class function TBob.IsQuestion(aStatement: string): Boolean;
 begin
   result := aStatement.Trim.EndsWith('?');
 end;
 
-class function TBob.Hey(aStatement: string): string;
+class function TBob.Response(aStatement: string): string;
 begin
   if IsSilence(aStatement) then
-    result := 'Fine.  Be that way!'
+    result := 'Fine. Be that way!'
   else
+    if IsYellingQuestion(aStatement) then
+      result := 'Calm down, I know what I''m doing!'
+    else
     if IsYelling(aStatement) then
       result := 'Whoa, chill out!'
     else

data/tracks/delphi/exercises/bob/uBobTests.pas

@@ -4,6 +4,9 @@ interface
 uses
   DUnitX.TestFramework;
 
+const
+  CanonicalVersion = '1.1.0';
+
 type
 
   [TestFixture]
@@ -23,11 +26,11 @@ type
 
     [Test]
     [Ignore]
-    procedure Asking_a_question_with_a_trailing_space;
+    procedure Asking_a_numeric_question;
 
     [Test]
     [Ignore]
-    procedure Asking_a_numeric_question;
+    procedure Asking_gibberish;
 
     [Test]
     [Ignore]
@@ -35,7 +38,7 @@ type
 
     [Test]
     [Ignore]
-    procedure Using_acronyms_in_regular_search;
+    procedure Using_acronyms_in_regular_speech;
 
     [Test]
     [Ignore]
@@ -65,6 +68,10 @@ type
     [Ignore]
     procedure Statement_containing_question_mark;
 
+    [Test]
+    [Ignore]
+    procedure non_letters_with_question;
+
     [Test]
     [Ignore]
     procedure Prattling_on;
@@ -77,9 +84,29 @@ type
     [Ignore]
     procedure Prolonged_silence;
 
+    [Test]
+    [Ignore]
+    procedure Alternate_silence;
+
     [Test]
     [Ignore]
     procedure Multiple_line_question;
+
+    [Test]
+    [Ignore]
+    procedure Starting_with_whitespace;
+
+    [Test]
+    [Ignore]
+    procedure Ending_with_whitespace;
+
+    [Test]
+    [Ignore]
+    procedure Other_whitespace;
+
+    [Test]
+    [Ignore]
+    procedure Non_question_ending_with_whitespace;
   end;
 
 implementation
@@ -87,92 +114,122 @@ uses uBob;
 
 procedure BobTests.Stating_something;
 begin
-  assert.AreEqual('Whatever.', TBob.Hey('Tom-ay-to, tom-aaaah-to.'));
+  Assert.AreEqual('Whatever.', TBob.Response('Tom-ay-to, tom-aaaah-to.'));
 end;
 
 procedure BobTests.Shouting;
 begin
-  assert.AreEqual('Whoa, chill out!', TBob.Hey('WATCH OUT!'));
+  Assert.AreEqual('Whoa, chill out!', TBob.Response('WATCH OUT!'));
 end;
 
 procedure BobTests.Asking_a_question;
 begin
-  assert.AreEqual('Sure.', TBob.Hey('Does this cryogenic chamber make me look fat?'));
+  Assert.AreEqual('Sure.', TBob.Response('Does this cryogenic chamber make me look fat?'));
+end;
+
+procedure BobTests.Asking_gibberish;
+begin
+  Assert.AreEqual('Sure.',TBob.Response('fffbbcbeab?'));
+end;
+
+procedure BobTests.Ending_with_whitespace;
+begin
+  Assert.AreEqual('Sure.', TBob.Response('Okay if like my  spacebar  quite a bit?   '));
 end;
 
-procedure BobTests.Asking_a_question_with_a_trailing_space;
+procedure BobTests.Alternate_silence;
 begin
-  assert.AreEqual('Sure.', TBob.Hey('Do I like my  spacebar  too much?  '));
+  Assert.AreEqual('Fine. Be that way!', TBob.Response(#9#9#9#9#9#9#9#9#9#9));
 end;
 
 procedure BobTests.Asking_a_numeric_question;
 begin
-  assert.AreEqual('Sure.', TBob.Hey('You are, what, like 15?'));
+  Assert.AreEqual('Sure.', TBob.Response('You are, what, like 15?'));
 end;
 
 procedure BobTests.Talking_forcefully;
 begin
-  assert.AreEqual('Whatever.', TBob.Hey('Let''s go make out behind the gym!'));
+  Assert.AreEqual('Whatever.', TBob.Response('Let''s go make out behind the gym!'));
 end;
 
-procedure BobTests.Using_acronyms_in_regular_search;
+procedure BobTests.Using_acronyms_in_regular_speech;
 begin
-  assert.AreEqual('Whatever.', TBob.Hey('It''s OK if you don''t want to go to the DMV.'));
+  Assert.AreEqual('Whatever.', TBob.Response('It''s OK if you don''t want to go to the DMV.'));
 end;
 
 procedure BobTests.Forceful_questions;
 begin
-  assert.AreEqual('Whoa, chill out!', TBob.Hey('WHAT THE HELL WERE YOU THINKING?'));
+  Assert.AreEqual('Calm down, I know what I''m doing!', TBob.Response('WHAT THE HELL WERE YOU THINKING?'));
 end;
 
 procedure BobTests.Shouting_numbers;
 begin
-  assert.AreEqual('Whoa, chill out!', TBob.Hey('1, 2, 3 GO!'));
+  Assert.AreEqual('Whoa, chill out!', TBob.Response('1, 2, 3 GO!'));
 end;
 
 procedure BobTests.Only_numbers;
 begin
-  assert.AreEqual('Whatever.', TBob.Hey('1, 2, 3'));
+  Assert.AreEqual('Whatever.', TBob.Response('1, 2, 3'));
+end;
+
+procedure BobTests.Other_whitespace;
+begin
+  Assert.AreEqual('Fine. Be that way!', TBob.Response(#13#10 + ' ' + #9));
 end;
 
 procedure BobTests.Question_with_only_numbers;
 begin
-  assert.AreEqual('Sure.', TBob.Hey('4?'));
+  Assert.AreEqual('Sure.', TBob.Response('4?'));
 end;
 
 procedure BobTests.Shouting_with_special_characters;
 begin
-  assert.AreEqual('Whoa, chill out!', TBob.Hey('ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!'));
+  Assert.AreEqual('Whoa, chill out!', TBob.Response('ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!'));
 end;
 
 procedure BobTests.Shouting_with_no_exclamation_mark;
 begin
-  assert.AreEqual('Whoa, chill out!', TBob.Hey('I HATE YOU'));
+  Assert.AreEqual('Whoa, chill out!', TBob.Response('I HATE YOU'));
+end;
+
+procedure BobTests.Starting_with_whitespace;
+begin
+  Assert.AreEqual('Whatever.', TBob.Response('         hmmmmmmm...'));
 end;
 
 procedure BobTests.Statement_containing_question_mark;
 begin
-  assert.AreEqual('Whatever.', TBob.Hey('Ending with ? means a question.'));
+  Assert.AreEqual('Whatever.', TBob.Response('Ending with ? means a question.'));
 end;
 
 procedure BobTests.Prattling_on;
 begin
-  assert.AreEqual('Sure.', TBob.Hey('Wait! Hang on. Are you going to be OK?'));
+  Assert.AreEqual('Sure.', TBob.Response('Wait! Hang on. Are you going to be OK?'));
 end;
 
 procedure BobTests.Silence;
 begin
-  assert.AreEqual('Fine.  Be that way!', TBob.Hey(''));
+  Assert.AreEqual('Fine. Be that way!', TBob.Response(''));
 end;
 
 procedure BobTests.Prolonged_silence;
 begin
-  assert.AreEqual('Fine.  Be that way!', TBob.Hey('    '));
+  Assert.AreEqual('Fine. Be that way!', TBob.Response('    '));
 end;
 
 procedure BobTests.Multiple_line_question;
 begin
-  assert.AreEqual('Whatever.', TBob.Hey('Does this cryogenic chamber make me look fat?' + #13#10 + 'no'));
+  Assert.AreEqual('Whatever.', TBob.Response('Does this cryogenic chamber make me look fat?' + #13#10 + 'no'));
+end;
+
+procedure BobTests.non_letters_with_question;
+begin
+  Assert.AreEqual('Sure.', TBob.Response(':) ?'));
+end;
+
+procedure BobTests.Non_question_ending_with_whitespace;
+begin
+  Assert.AreEqual('Whatever.', TBob.Response('This is a statement ending with whitespace      '));
 end;
 
 initialization