trackler 2.0.6.29 → 2.0.6.30

data/tracks/csharp/exercises/scrabble-score/ScrabbleScoreTest.cs

@@ -57,4 +57,11 @@ public class ScrabbleScoreTest
     {
         Assert.That(Scrabble.Score("OXYPHENBUTAZONE"), Is.EqualTo(41));
     }
+    
+    [Ignore("Remove to run test")]
+    [Test]
+    public void Entire_alphabet()
+    {
+        Assert.That(Scrabble.Score("abcdefghijklmnopqrstuvwxyz"), Is.EqualTo(87));
+    }
 }

data/tracks/delphi/config.json

@@ -27,6 +27,14 @@
         "Integers"
       ]
     },
+    {
+      "slug": "rna-transcription",
+      "difficulty": 1,
+      "topics": [
+        "Strings",
+        "Transforming"
+      ]
+    },
     {
       "slug": "hamming",
       "difficulty": 2,

data/tracks/delphi/docs/RESOURCES.md

@@ -0,0 +1,20 @@
+## Recommended Learning Resources
+
+The [Delphi Basics](http://www.delphibasics.co.uk/) is a good reference on Delphi.
+
+I also recommend reading [delphi.about.com](http://delphi.about.com/)'s "[A Beginner's Guide to Delphi Programming](http://delphi.about.com/od/beginners/a/delphicourse.htm)", which is a nice primer to Delphi programming.
+
+Here is a list of topics that you should find helpful from the beginner's guide mentioned above:
+
+1. [String Handling Routines](http://delphi.about.com/od/beginners/fl/String-Handling-Routines-Delphi-Programming.htm)
+2. [Ordinal Data Types](http://delphi.about.com/od/faqstipstricks/fl/Ordinal-Data-Types-in-Delphi.htm)
+3. [Returning multiple values from a function](http://delphi.about.com/od/beginners/a/return-multiple-values-from-a-delphi-function.htm)
+4. [Overloading and Default Parameters](http://delphi.about.com/od/objectpascalide/a/overloading.htm)
+5. [Class and Record Helpers](http://delphi.about.com/od/oopindelphi/a/understanding-delphi-class-and-record-helpers.htm)
+6. [Record Helpers for sets and other simple types](http://delphi.about.com/od/objectpascalide/a/delphi-record-helpers-for-sets-and-other-simple-types.htm)
+7. [Using TDictionary hash tables](http://delphi.about.com/od/beginners/a/using-t-dictionary-hash-tables-in-delphi.htm)
+8. [Understanding generic types](http://delphi.about.com/od/objectpascalide/a/understanding-generic-types-in-delphi.htm)
+9. [Interfaces](http://delphi.about.com/od/oopindelphi/a/interfaces-in-delphi-programming-101.htm)
+10. [More on Interfaces](http://delphi.about.com/od/oopindelphi/a/interfaces-delphi-programming-102.htm)
+11. [Handling exceptions](http://delphi.about.com/od/objectpascalide/a/on-handling-exceptions-in-delphi-exception-handling.htm)
+12. [Threading libraries](http://delphi.about.com/od/kbthread/tp/threading-libraries-for-Delphi.htm)

data/tracks/delphi/exercises/beer-song/uBeerSongTests.pas

@@ -10,17 +10,23 @@ type
   BeerSongTests = class(TObject)
   public
     [Test]
-    [TestCase('verse 8', '8, 0')]
-//    [TestCase('verse 2', '2, 1')] //Uncomment to run test case
-//    [TestCase('verse 1', '1, 2')] //Uncomment to run test case
-//    [TestCase('verse 0', '0, 3')] //Uncomment to run test case
-    procedure Verse(const verseNumber: integer; const verseResult: integer);
+    procedure Verse_8;
 
     [Test]
-    [Ignore] //Comment or remove [Ignore] to run this test
-    [TestCase('verse 8 to 6','8, 6, 0')]
-    [TestCase('verse 3 to 0','3, 0, 1')]
-    procedure Sing(const start : Integer;const stop : Integer; singResult: integer);
+    [Ignore('Comment this line to run this test')]
+    procedure Verse_2;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Verse_0;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Verse_8_to_6;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Verse_3_to_0;
   end;
 
 implementation
@@ -61,21 +67,48 @@ const verseResults: array[0..3] of string = ('8 bottles of beer on the wall, 8 b
                                             'Go to the store and buy some more, 99 bottles of beer on the wall.' + sLineBreak +
                                             sLineBreak);
 
-procedure BeerSongTests.Verse(const verseNumber: integer; const verseResult: integer);
+procedure BeerSongTests.Verse_8;
+var Expected,
+    Actual: string;
+begin
+  Expected := verseResults[0];
+  Actual := Beer.Verse(8);
+  Assert.AreEqual(Expected, Actual);
+end;
+
+procedure BeerSongTests.Verse_2;
+var Expected,
+    Actual: string;
+begin
+  Expected := verseResults[1];
+  Actual := Beer.Verse(2);
+  Assert.AreEqual(Expected, Actual);
+end;
+
+procedure BeerSongTests.Verse_0;
+var Expected,
+    Actual: string;
+begin
+  Expected := verseResults[3];
+  Actual := Beer.Verse(0);
+  Assert.AreEqual(Expected, Actual);
+end;
+
+procedure BeerSongTests.Verse_8_to_6;
 var Expected,
     Actual: string;
 begin
-  Expected := verseResults[verseResult];
-  Actual := Beer.Verse(verseNumber);
+  Expected := singResults[0];
+  Actual := Beer.Sing(8, 6);
   assert.AreEqual(Expected, Actual);
 end;
 
-procedure BeerSongTests.Sing(const start : Integer;const stop : Integer; singResult: integer);
+procedure BeerSongTests.Verse_3_to_0;
 var Expected,
     Actual: string;
 begin
-  Expected := singResults[singResult];
-  Actual := Beer.Sing(start, stop);
+  Expected := singResults[1];
+  Actual := Beer.Sing(3, 0);
   assert.AreEqual(Expected, Actual);
 end;
 

data/tracks/delphi/exercises/hello-world/uHelloWorldExample.pas

@@ -1,22 +1,12 @@
-//========================================================
-// Example solution to exercise.
-//
-// A simple hello function would suffice, however this
-// solution is mimicking the Ruby hello-world exercise
-//========================================================
 unit uHelloWorld;
 
 interface
 
-type
-  THelloWorld = class
-  public
-    class function hello(name: string='World'): string; static;
-  end;
+  function Hello(name: string='World'): string;
 
 implementation
 
-class function THelloWorld.hello(name: string='World'): string;
+function Hello(name: string='World'): string;
 begin
   result := 'Hello, ' + name + '!';
 end;

data/tracks/delphi/exercises/hello-world/uTestHelloWorld.pas

@@ -50,17 +50,17 @@ uses uHelloWorld;
 
 procedure HelloWorldTest.test_no_name;
 begin
-  assert.AreEqual('Hello, World!', THelloWorld.hello);
+  assert.AreEqual('Hello, World!', Hello);
 end;
 
 procedure HelloWorldTest.test_sample_name;
 begin
-  assert.AreEqual('Hello, Alice!',THelloWorld.hello('Alice'));
+  assert.AreEqual('Hello, Alice!',Hello('Alice'));
 end;
 
 procedure HelloWorldTest.test_other_sample_name;
 begin
-  assert.AreEqual('Hello, Bob!', THelloWorld.hello('Bob'));
+  assert.AreEqual('Hello, Bob!', Hello('Bob'));
 end;
 
 initialization

data/tracks/delphi/exercises/rna-transcription/TestRnaTranscription.dpr

@@ -0,0 +1,60 @@
+program TestRNATranscription;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uTestRnaTranscription in 'uTestRnaTranscription.pas',
+  uRnaTranscription in 'uRnaTranscription.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/rna-transcription/uRnaTranscriptionExample.pas

@@ -0,0 +1,55 @@
+unit uRnaTranscription;
+
+interface
+uses Generics.Collections;
+
+type
+  complement = class
+  private
+    class var
+      fDnaToRna: TDictionary<char, char>;
+  public
+    class function OfDna(nucleotide: string): string; static;
+  end;
+
+implementation
+uses SysUtils;
+
+class function complement.OfDna(nucleotide: string): string;
+var i: integer;
+    lRNA: string;
+    elements: TArray<char>;
+    RNAelement: char;
+begin
+  result := '';
+  lRNA := '';
+  if not trim(nucleotide).IsEmpty then
+  begin
+    fDnaToRna := TDictionary<char, char>.Create;
+    with fDnatoRna do
+    begin
+      add('G','C');
+      add('C','G');
+      add('T','A');
+      add('A','U');
+    end;
+    elements := nucleotide.ToUpper.ToCharArray;
+    i := 0;
+    while i <= high(elements) do
+    begin
+      if fDnaToRna.TryGetValue(elements[i],RNAelement) then
+      begin
+        lRNA := lRNA + RNAelement;
+        inc(i);
+      end
+      else
+      begin
+        lRNA := '';
+        break;
+      end;
+    end;
+  end;
+  result := lRNA;
+end;
+
+end.

data/tracks/delphi/exercises/rna-transcription/uTestRnaTranscription.pas

@@ -0,0 +1,88 @@
+unit uTestRnaTranscription;
+
+interface
+uses
+  DUnitX.TestFramework;
+
+type
+  [TestFixture]
+  RnaTranscriptionTest = class(TObject)
+  public
+    [Test]
+    procedure Rna_complement_of_cytosine_is_guanine;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Rna_complement_of_guanine_is_cytosine;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Rna_complement_of_thymine_is_adenine;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Rna_complement_of_adenine_is_uracil;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Rna_complement;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Dna_correctly_handles_invalid_input;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Dna_correctly_handles_completely_invalid_input;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure Dna_correctly_handles_partially_invalid_input;
+  end;
+
+implementation
+uses uRnaTranscription;
+
+procedure RnaTranscriptionTest.Rna_complement_of_cytosine_is_guanine;
+begin
+  Assert.AreEqual('G', complement.OfDna('C'));
+end;
+
+procedure RnaTranscriptionTest.Rna_complement_of_guanine_is_cytosine;
+begin
+  Assert.AreEqual('C', complement.OfDna('G'));
+end;
+
+procedure RnaTranscriptionTest.Rna_complement_of_thymine_is_adenine;
+begin
+  Assert.AreEqual('A', complement.OfDna('T'));
+end;
+
+procedure RnaTranscriptionTest.Rna_complement_of_adenine_is_uracil;
+begin
+  Assert.AreEqual('U', complement.OfDna('A'));
+end;
+
+procedure RnaTranscriptionTest.Rna_complement;
+begin
+  Assert.AreEqual('UGCACCAGAAUU', complement.OfDna('ACGTGGTCTTAA'));
+end;
+
+procedure RnaTranscriptionTest.Dna_correctly_handles_invalid_input;
+begin
+  Assert.AreEqual('', complement.OfDna('U'));
+end;
+
+procedure RnaTranscriptionTest.Dna_correctly_handles_completely_invalid_input;
+begin
+  Assert.AreEqual('', complement.OfDna('XXX'));
+end;
+
+procedure RnaTranscriptionTest.Dna_correctly_handles_partially_invalid_input;
+begin
+  Assert.AreEqual('', complement.OfDna('ACGTXXXCTTAA'));
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(RnaTranscriptionTest);
+end.

data/tracks/go/config.json

@@ -185,9 +185,11 @@
       ]
     },
     {
-      "difficulty": 1,
+      "difficulty": 3,
       "slug": "parallel-letter-frequency",
-      "topics": []
+      "topics": [
+        "Concurrency"
+      ]
     },
     {
       "difficulty": 1,

data/tracks/julia/exercises/anagram/example.jl

@@ -1,43 +1,42 @@
 # Anagrams are two or more words that composed of the same characters but in a different order
 
 function is_anagram(s1::AbstractString, s2::AbstractString)
-  # Disable case sensitivity
-  s1 = lowercase(s1)
-  s2 = lowercase(s2)
+    # Disable case sensitivity
+    s1 = lowercase(s1)
+    s2 = lowercase(s2)
 
-  # Similar and different-length strings are not anagrams
-  if length(s1) != length(s2) || s1 == s2
-    return false
-  end
+    # Similar and different-length strings are not anagrams
+    if length(s1) != length(s2) || s1 == s2
+        return false
+    end
 
-  # Calculate count of every character in the first string
-  chr_count = Dict()
-  for c in s1
-    chr_count[c] = get(chr_count, c, 0) + 1
-  end
+    # Calculate count of every character in the first string
+    chr_count = Dict()
+    for c in s1
+        chr_count[c] = get(chr_count, c, 0) + 1
+    end
 
-  # Reduce the count by every character from the second string
-  for c in s2
-    t = get(chr_count, c, 0) - 1
-    if t < 0
-      # Got character that not exist in the first string
-      return false
-    else
-      chr_count[c] = t
+    # Reduce the count by every character from the second string
+    for c in s2
+        t = get(chr_count, c, 0) - 1
+        if t < 0
+            # Got character that not exist in the first string
+            return false
+        else
+            chr_count[c] = t
+        end
     end
-  end
 
-  # Check all counts to be zeroes
-  return all(i->(i==0), values(chr_count))
+    # Check all counts to be zeroes
+    return all(i->(i==0), values(chr_count))
 end
 
 function detect_anagrams(subject::AbstractString, candidates::AbstractArray)
-  result = []
-  for candidate = candidates
-    if is_anagram(subject, candidate)
-      push!(result, candidate)
+    result = []
+    for candidate = candidates
+        if is_anagram(subject, candidate)
+            push!(result, candidate)
+        end
     end
-  end
-  result
+    result
 end
-