trackler 2.0.5.15 → 2.0.5.16

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 640bf7c491e8a9613de8e88ee23185a2ccfe7114
-  data.tar.gz: dc1a5b2fd961f1bea01631d313ce1ebf9ef8497f
+  metadata.gz: 63066d33f5a8f92d2b464cba3061bf2a864e930d
+  data.tar.gz: c3f03af9d510ba4462373030ae433921b9dd6d9c
 SHA512:
-  metadata.gz: 90d0a3630526b437476b6a2a3c08b9a4b538550972b606f503ad8092b344e668d5642aa52d02ad5b93f99eb6bd6c17fdd69f271274f0da60c77b2482f5103b65
-  data.tar.gz: 77cb6e64a0f978ee41e62bb23d86b49c0ed9cdaa789f5cfab0167735ab9058138da1b5326992ac87f6afc0cd03fd0790f9ce2c2066aee028c6512bfb0d790c6f
+  metadata.gz: aeb55869b9e9f36c52e0b67517d3e4d589e73eff04e645323097d60c5b7653421fdb97b75725a6e5f3e1578f51eb3224c224f17e983f269d4346997f9b4f3e96
+  data.tar.gz: 6503831fa54c448af36785693cc9722fc461b33857dc35148d58dbdff24420b7e47ea33617e81293e268cfaa9922a1cc3d6f5dea193297a22ac9acdcf4964091

data/lib/trackler/version.rb

@@ -1,3 +1,3 @@
 module Trackler
-  VERSION = "2.0.5.15"
+  VERSION = "2.0.5.16"
 end

data/tracks/crystal/config.json

@@ -113,6 +113,16 @@
       "topics": [
       ]
     },
+    {
+      "slug": "binary-search-tree",
+      "difficulty": 1,
+      "topics": [
+        "data structures",
+        "algorithms",
+        "trees",
+        "recursion"
+      ]
+    },
     {
       "slug": "run-length-encoding",
       "difficulty": 1,

data/tracks/crystal/exercises/binary-search-tree/spec/binary_search_tree_spec.cr

@@ -0,0 +1,190 @@
+require "spec"
+require "../src/*"
+
+describe "BinarySearchTree" do
+  it "sets the root node" do
+    root = Node.new(1)
+    root.value.should eq(1)
+  end
+
+  describe "#insert" do
+    pending "inserts smaller values to the left" do
+      tree = Node.new(4)
+      tree.insert(2)
+
+      left = tree.left.not_nil!
+      left.value.should eq(2)
+
+      tree.right.should be_nil
+    end
+
+    pending "inserts equal values to the left" do
+      tree = Node.new(4)
+      tree.insert(4)
+
+      left_node = tree.left.not_nil!
+      left_node.value.should eq(4)
+
+      tree.right.should be_nil
+    end
+
+    pending "inserts greater values to the right" do
+      tree = Node.new(4)
+      tree.insert(5)
+
+      right_node = tree.right.not_nil!
+      right_node.value.should eq(5)
+
+      tree.left.should be_nil
+    end
+  end
+
+  describe "#search" do
+    pending "will return a node if a search if successful" do
+      tree = Node.new(5)
+      tree.insert(1)
+      node = tree.search(1).not_nil!
+      node.value.should eq(1)
+    end
+
+    pending "will return nil if a searched value is not found" do
+      tree = Node.new(5)
+      tree.search(4).should be_nil
+    end
+  end
+
+  describe "#each" do
+    pending "traverses the tree in order" do
+      tree = Node.new(5)
+      tree.insert(1)
+      tree.insert(6)
+      tree.insert(7)
+      tree.insert(3)
+      test_array = [1, 3, 5, 6, 7]
+
+      tree.each do |value|
+        value.should eq(test_array.shift)
+      end
+    end
+  end
+
+  # Deletion from a binary search tree https://en.wikipedia.org/wiki/Binary_search_tree#Deletion
+  # There are three possible cases to consider:
+  # 1. Deleting a node with no children
+  # 2. Deleting a node with one child
+  # 3. Deleting a node with two children
+  describe "#delete" do
+    pending "can remove the root node" do
+      tree = Node.new(5)
+      tree.insert(2)
+      tree.delete(5)
+      tree.value.should eq(2)
+    end
+
+    pending "removes a node with no children" do
+      tree = Node.new(5)
+      tree.insert(2)
+      tree.delete(2)
+      tree.left.should be_nil
+    end
+
+    pending "removes a node with one child" do
+      tree = Node.new(5)
+      tree.insert(3)
+      tree.insert(2)
+      tree.delete(3)
+
+      new_values = [2, 5]
+      tree.each do |value|
+        value.should eq(new_values.shift)
+      end
+    end
+
+    pending "removes a node with two children" do
+      tree = Node.new(5)
+      tree.insert(3)
+      tree.insert(2)
+      tree.insert(4)
+      tree.delete(3)
+
+      new_values = [2, 4, 5]
+      tree.each do |value|
+        value.should eq(new_values.shift)
+      end
+    end
+
+    pending "removes a left node with two child (complex)" do
+      tree = Node.new(10)
+      tree.insert(5)
+      tree.insert(2)
+      tree.insert(4)
+      tree.insert(8)
+      tree.insert(9)
+      tree.insert(7)
+      tree.delete(5)
+
+      new_values = [2, 4, 7, 8, 9, 10]
+      tree.each do |value|
+        value.should eq(new_values.shift)
+      end
+    end
+
+    pending "removes a right node with two children (complex)" do
+      tree = Node.new(1)
+      tree.insert(5)
+      tree.insert(2)
+      tree.insert(4)
+      tree.insert(8)
+      tree.insert(9)
+      tree.insert(7)
+      tree.delete(5)
+
+      new_values = [1, 2, 4, 7, 8, 9]
+      tree.each do |value|
+        value.should eq(new_values.shift)
+      end
+    end
+  end
+
+  # The following tests check for additional features to the Binary Search Tree
+  # They are not required to implement a complete BST
+  # Instead they should be used to dive a little deeper into the Crystal language
+  describe "crystal-lang specific" do
+    # Make the Binary Search Tree Enumerable
+    # See https://crystal-lang.org/api/0.20.3/Enumerable.html
+    pending "is an Enumerable" do
+      tree = Node.new(1)
+      tree.insert(5)
+      tree.insert(2)
+      tree.should be_a(Enumerable(Int32))
+      mapped_values = tree.map { |value| value * 10 }
+      mapped_values.should eq([10, 20, 50])
+    end
+
+    # If no block is provided to the each method return an Iterator
+    # See https://crystal-lang.org/api/0.20.3/Iterator.html
+    pending "will return an iterator if no block is provided" do
+      tree = Node.new(1)
+      tree.insert(5)
+      tree.insert(2)
+      iter = tree.each
+      iter.next.should eq 1
+      iter.next.should eq 2
+      iter.next.should eq 5
+    end
+
+    # Make the Binary Search Tree Iterable
+    # See https://crystal-lang.org/api/0.20.3/Iterable.html
+    pending "is Iterable" do
+      tree = Node.new(100)
+      tree.insert(50)
+      tree.insert(20)
+      tree.insert(30)
+      tree.should be_a(Iterable(Int32))
+      iter = tree.each_cons(2)
+      iter.next.should eq([20, 30])
+      iter.next.should eq([30, 50])
+      iter.next.should eq([50, 100])
+    end
+  end
+end

data/tracks/crystal/exercises/binary-search-tree/src/binary_search_tree.cr

@@ -0,0 +1 @@
+# Please implement your solution to binary-search-tree in this file

data/tracks/crystal/exercises/binary-search-tree/src/example.cr

@@ -0,0 +1,119 @@
+class Node(T)
+  include Enumerable(T)
+  include Iterable(T)
+
+  property value : T
+  property left : Node(T)?
+  property right : Node(T)?
+
+  def initialize(@value : T)
+  end
+
+  def insert(new_value)
+    if new_value <= value
+      if (node = left)
+        node.insert(new_value)
+      else
+        @left = Node(T).new(new_value)
+      end
+    else
+      if (node = right)
+        node.insert(new_value)
+      else
+        @right = Node(T).new(new_value)
+      end
+    end
+  end
+
+  def search(search_value)
+    return self if search_value == value
+    if search_value < value
+      if (node = left)
+        node.search(search_value)
+      end
+    else
+      if (node = right)
+        node.search(search_value)
+      end
+    end
+  end
+
+  def delete(delete_value)
+    return delete_node if delete_value == value
+
+    if delete_value < value
+      if (node = left)
+        @left = node.delete(delete_value)
+      end
+    else
+      if (node = right)
+        @right = node.delete(delete_value)
+      end
+    end
+
+    self
+  end
+
+  def each
+    TreeIterator.new(self).each do |v|
+      yield v
+    end
+  end
+
+  def each
+    TreeIterator.new(self)
+  end
+
+  private def delete_node
+    if one_child?
+      if left
+        @value = left.not_nil!.value
+        @left = nil
+      else
+        @value = right.not_nil!.value
+        @right = nil
+      end
+      self
+    elsif two_children?
+      node = right.not_nil!
+      @value = node.each.first
+      @right = node.delete(value)
+      self
+    end
+  end
+
+  private def one_child?
+    (left && !right) || (right && !left)
+  end
+
+  private def two_children?
+    left && right
+  end
+
+  private class TreeIterator(T)
+    include Iterator(T)
+
+    def initialize(node : Node(T))
+      @stack = Array(Node(T)).new
+      process_left(node)
+    end
+
+    def next
+      return stop if @stack.empty?
+
+      node = @stack.pop
+      right = node.right
+      if right
+        process_left(right)
+      end
+      node.value
+    end
+
+    private def process_left(node)
+      while node
+        @stack.push(node)
+        node = node.left
+      end
+    end
+  end
+end

data/tracks/pascal/.gitignore

@@ -2,5 +2,4 @@
 .DS_Store
 bin/configlet
 bin/configlet.exe
-*.dpr
 *.dproj

data/tracks/pascal/exercises/allergies/AllergyTests.dpr

@@ -0,0 +1,60 @@
+program AllergyTests;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uAllergyTests in 'uAllergyTests.pas',
+  uAllergies in 'uAllergies.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/bank-account/BankAccountTests.dpr

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