trackler 2.0.6.18 → 2.0.6.19

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 0f49d264a4f94e19bcc1ffcf987f524a884b8ab9
-  data.tar.gz: c644b12dba0c3ca6f60c40c29718a02693a8259b
+  metadata.gz: 8623ef341a6390932eb5e0f88373f12e87dddd8e
+  data.tar.gz: 14daf2f37b0190a64c8edf17ffa28cf39a25d961
 SHA512:
-  metadata.gz: 54759e495d52f5f5151e7fb74917346794aca4ddb9338dfe8a2e68fb892a6ffff4bc794b762163bca15cf7d4b7344b83b64f2d86b67de69e3a35669ea6e01ea9
-  data.tar.gz: 75aa2181660f229c192e70bb9e3666a4e10775302a9e84b405f3c486e8788bd1a3b08a517f35731852244e3519ee3447d54f2fbf489dbb0fd8bb9ccbb93f2a63
+  metadata.gz: a01f8a0581847e5513dcd1f48ab9766b70753042174c717b97269da1af841184dbeb4ced3be2053ec2dae9376741a6e2c176bee7848160028f535b591941b8c2
+  data.tar.gz: be768c3c71174ab29c6922f2f31c5fdf754616b0d58b69ae94b0ea7c6a92837c130184d41d72c5c5f842491f4d17b99eeaef4a42c2e633f57a2235143117b9c5

data/lib/trackler/version.rb

@@ -1,3 +1,3 @@
 module Trackler
-  VERSION = "2.0.6.18"
+  VERSION = "2.0.6.19"
 end

data/tracks/fsharp/exercises/linked-list/Example.fs

@@ -12,19 +12,19 @@ let addToEmpty newValue linkedList =
 
 let pop linkedList =
     match linkedList.last with
-    | None -> None
+    | None -> failwith "Cannot pop from empty list"
     | Some oldLast ->
         linkedList.last <- oldLast.prev
         linkedList.last |> Option.iter (fun el -> el.next <- None)
-        Some oldLast.value
+        oldLast.value
 
 let shift linkedList =
     match linkedList.first with
-    | None -> None
+    | None -> failwith "Cannot shift from empty list"
     | Some oldFirst ->
         linkedList.first <- oldFirst.next
         linkedList.first |> Option.iter (fun el -> el.prev <- None)
-        Some oldFirst.value
+        oldFirst.value
 
 let push newValue linkedList =
     match linkedList.last with

data/tracks/fsharp/exercises/linked-list/LinkedListTest.fs

@@ -4,14 +4,6 @@ open NUnit.Framework
 open LinkedList
 
 [<Test>]
-let ``Pop returns None if the list is empty`` () =
-    let linkedList = mkLinkedList ()
-    let value = pop linkedList
-
-    Assert.That(value, Is.EqualTo(None))
-
-[<Test>]
-[<Ignore("Remove to run test")>]
 let ``Push and pop are first in last out order`` () =
     let linkedList = mkLinkedList ()
     linkedList |> push 10
@@ -20,16 +12,8 @@ let ``Push and pop are first in last out order`` () =
     let val1 = pop linkedList
     let val2 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 20))
-    Assert.That(val2, Is.EqualTo(Some 10))
-
-[<Test>]
-[<Ignore("Remove to run test")>]
-let ``Shift returns None if the list is empty`` () =
-    let linkedList = mkLinkedList ()
-    let value = shift linkedList
-
-    Assert.That(value, Is.EqualTo(None))
+    Assert.That(val1, Is.EqualTo(20))
+    Assert.That(val2, Is.EqualTo(10))
 
 [<Test>]
 [<Ignore("Remove to run test")>]
@@ -41,8 +25,8 @@ let ``Push and shift are first in first out order`` () =
     let val1 = shift linkedList
     let val2 = shift linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 10))
-    Assert.That(val2, Is.EqualTo(Some 20))
+    Assert.That(val1, Is.EqualTo(10))
+    Assert.That(val2, Is.EqualTo(20))
 
 [<Test>]
 [<Ignore("Remove to run test")>]
@@ -54,8 +38,8 @@ let ``Unshift and shift are last in first out order`` () =
     let val1 = shift linkedList
     let val2 = shift linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 20))
-    Assert.That(val2, Is.EqualTo(Some 10))
+    Assert.That(val1, Is.EqualTo(20))
+    Assert.That(val2, Is.EqualTo(10))
 
 [<Test>]
 [<Ignore("Remove to run test")>]
@@ -67,8 +51,8 @@ let ``Unshift and pop are last in last out order`` () =
     let val1 = pop linkedList
     let val2 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 10))
-    Assert.That(val2, Is.EqualTo(Some 20))
+    Assert.That(val1, Is.EqualTo(10))
+    Assert.That(val2, Is.EqualTo(20))
 
 [<Test>]
 [<Ignore("Remove to run test")>]
@@ -82,9 +66,9 @@ let ``Push and pop can handle multiple values`` () =
     let val2 = pop linkedList
     let val3 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 30))
-    Assert.That(val2, Is.EqualTo(Some 20))
-    Assert.That(val3, Is.EqualTo(Some 10))
+    Assert.That(val1, Is.EqualTo(30))
+    Assert.That(val2, Is.EqualTo(20))
+    Assert.That(val3, Is.EqualTo(10))
 
 [<Test>]
 [<Ignore("Remove to run test")>]
@@ -98,9 +82,9 @@ let ``Unshift and shift can handle multiple values`` () =
     let val2 = shift linkedList
     let val3 = shift linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 30))
-    Assert.That(val2, Is.EqualTo(Some 20))
-    Assert.That(val3, Is.EqualTo(Some 10))
+    Assert.That(val1, Is.EqualTo(30))
+    Assert.That(val2, Is.EqualTo(20))
+    Assert.That(val3, Is.EqualTo(10))
 
 [<Test>]
 [<Ignore("Remove to run test")>]
@@ -111,12 +95,12 @@ let ``All methods of manipulating the linkedList can be used together`` () =
 
     let val1 = pop linkedList
 
-    Assert.That(val1, Is.EqualTo(Some 20))
+    Assert.That(val1, Is.EqualTo(20))
 
     linkedList |> push 30
     let val2 = shift linkedList
 
-    Assert.That(val2, Is.EqualTo(Some 10))
+    Assert.That(val2, Is.EqualTo(10))
 
     linkedList |> unshift 40
     linkedList |> push 50
@@ -125,6 +109,6 @@ let ``All methods of manipulating the linkedList can be used together`` () =
     let val4 = pop linkedList
     let val5 = shift linkedList
 
-    Assert.That(val3, Is.EqualTo(Some 40))
-    Assert.That(val4, Is.EqualTo(Some 50))
-    Assert.That(val5, Is.EqualTo(Some 30))
+    Assert.That(val3, Is.EqualTo(40))
+    Assert.That(val4, Is.EqualTo(50))
+    Assert.That(val5, Is.EqualTo(30))

data/tracks/go/config.json

@@ -154,7 +154,11 @@
     {
       "difficulty": 1,
       "slug": "scrabble-score",
-      "topics": []
+      "topics": [
+        "Control-flow (loops)",
+        "Maps",
+        "Strings"
+      ]
     },
     {
       "difficulty": 1,

data/tracks/java/exercises/settings.gradle

@@ -22,8 +22,9 @@ include 'hello-world'
 include 'largest-series-product'
 include 'linked-list'
 include 'luhn'
-include 'minesweeper'
+include 'matrix'
 include 'meetup'
+include 'minesweeper'
 include 'nth-prime'
 include 'nucleotide-count'
 include 'octal'
@@ -32,6 +33,8 @@ include 'pangram'
 include 'pascals-triangle'
 include 'phone-number'
 include 'pig-latin'
+include 'prime-factors'
+include 'pythagorean-triplet'
 include 'queen-attack'
 include 'raindrops'
 include 'rectangles'
@@ -39,20 +42,17 @@ include 'rna-transcription'
 include 'robot-name'
 include 'robot-simulator'
 include 'roman-numerals'
-include 'prime-factors'
-include 'pythagorean-triplet'
 include 'scrabble-score'
 include 'series'
 include 'sieve'
 include 'simple-cipher'
 include 'simple-linked-list'
-include 'sublist'
-include 'sum-of-multiples'
 include 'space-age'
 include 'strain'
+include 'sublist'
+include 'sum-of-multiples'
 include 'triangle'
 include 'trinary'
+include 'twelve-days'
 include 'word-count'
 include 'wordy'
-include 'twelve-days'
-include 'matrix'

data/tracks/pascal/SETUP.md

@@ -0,0 +1,10 @@
+# Testing
+
+In order to run the tests for this track, you will need to install
+DUnitX. Please see [INSTALLATION.md](link here) for more information.
+
+### Submitting Exercises
+
+Note that, when trying to submit an exercise, make sure the exercise file you're submitting is in the `exercism/pascal/<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>/pascal/bob/ubob.pas`.

data/tracks/pascal/exercises/book-store/uBookStoreTests.pas

@@ -7,23 +7,53 @@ uses
 type
   [TestFixture]
   hpTests = class(TObject)
-  private
-    class function ConvertStrToIntArray(aString: string): TArray<Integer>; static;
   public
     [Test]
-    [TestCase('Test total basket price single book',                                     '1, 8.0')]
-//    [TestCase('Test total basket Price two of same book',                                '2|2, 16.0')]
-//    [TestCase('Test total basket price empty basket',                                    ', 0.0')]
-//    [TestCase('Test basket with two different books',                                    '1|2, 15.2')]
-//    [TestCase('Test basket with three different books',                                  '1|2|3, 21.6')]
-//    [TestCase('Test basket with four different books',                                   '1|2|3|4, 25.6')]
-//    [TestCase('Test basket with five different books',                                   '1|2|3|4|5, 30.0')]
-//    [TestCase('Test basket w/2 copies of books 1..3 and one copy of books 4 and 5',      '1|1|2|2|3|3|4|5, 51.20')]
-//    [TestCase('Test basket w/2 copies of books 1..4 and one copy of book 5',             '1|1|2|2|3|3|4|4|5, 55.60')]
-//    [TestCase('Test basket w/2 copies of each book',                                     '1|1|2|2|3|3|4|4|5|5, 60.00')]
-//    [TestCase('Test basket w/2 copies of each book plus one more copy of book 1',        '1|1|2|2|3|3|4|4|5|5|1, 68.00')]
-//    [TestCase('Test basket w/2 copies of each book plus one more copy of books 1 and 2', '1|1|2|2|3|3|4|4|5|5|1|2, 75.20')]
-    procedure SeveralBasketTestCases(const aBasket: string; const Expected: extended);
+    procedure A_basket_containing_only_a_single_book;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_only_two_of_the_same_book;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure No_charge_to_carry_around_an_empty_basket;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_only_two_different_books;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_with_three_different_books;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_with_four_different_books;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_with_five_different_books;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_eight_books_consisting_of_a_pair_each_of_the_first_three_books_plus_one_copy_each_of_the_last_two_books;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_nine_books_consisting_of_a_pair_each_of_the_first_four_books_plus_one_of_the_last_book;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_ten_books_consisting_of_two_copies_of_each_book_in_the_series;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_eleven_books_consisting_of_three_copies_of_the_first_book_plus_two_each_of_the_remaing_four_bookes_in_the_series;
+
+    [Test]
+    [Ignore('Comment this line to run this test')]
+    procedure A_basket_containing_twelve_books_consisting_of_three_copies_of_the_first_two_books_plus_two_each_of_the_remaining_three_books_in_the_series;
   end;
 
 implementation
@@ -31,24 +61,215 @@ uses System.SysUtils, uBookStore;
 
 const MinDelta = 0.005; //cents
 
-class function hpTests.ConvertStrToIntArray(aString: string): TArray<Integer>;
-var splitStr: TArray<string>;
-    i: integer;
+procedure hpTests.A_basket_containing_only_a_single_book;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
 begin
-  result := nil;
-  splitStr := aString.Split(['|']);
-  SetLength(result, length(splitStr));
-  for i := Low(splitStr) to High(splitStr) do
-    result[i] := splitStr[i].ToInteger;
+  SetLength(Basket, 1);
+  Basket[0] := 1;
+  Expected := 8.0;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_only_two_of_the_same_book;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 2);
+  Basket[0] := 2;
+  Basket[1] := 2;
+  Expected := 16.0;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.No_charge_to_carry_around_an_empty_basket;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 0);
+  Expected := 0.0;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_only_two_different_books;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 2);
+  Basket[0] := 1;
+  Basket[1] := 2;
+  Expected := 15.2;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
 end;
 
-procedure hpTests.SeveralBasketTestCases(const aBasket: string; const Expected: extended);
+procedure hpTests.A_basket_with_three_different_books;
 var Basket: TArray<integer>;
     fBasket: IBasket;
+    Expected: double;
 begin
-  Basket := ConvertStrToIntArray(aBasket);
+  SetLength(Basket, 3);
+  Basket[0] := 1;
+  Basket[1] := 2;
+  Basket[2] := 3;
+  Expected := 21.6;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_with_four_different_books;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 4);
+  Basket[0] := 1;
+  Basket[1] := 2;
+  Basket[2] := 3;
+  Basket[3] := 4;
+  Expected := 25.6;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_with_five_different_books;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 5);
+  Basket[0] := 1;
+  Basket[1] := 2;
+  Basket[2] := 3;
+  Basket[3] := 4;
+  Basket[4] := 5;
+  Expected := 30.0;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_eight_books_consisting_of_a_pair_each_of_the_first_three_books_plus_one_copy_each_of_the_last_two_books;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 8);
+  Basket[0] := 1;
+  Basket[1] := 1;
+  Basket[2] := 2;
+  Basket[3] := 2;
+  Basket[4] := 3;
+  Basket[5] := 3;
+  Basket[6] := 4;
+  Basket[7] := 5;
+  Expected := 51.20;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_nine_books_consisting_of_a_pair_each_of_the_first_four_books_plus_one_of_the_last_book;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 9);
+  Basket[0] := 1;
+  Basket[1] := 1;
+  Basket[2] := 2;
+  Basket[3] := 2;
+  Basket[4] := 3;
+  Basket[5] := 3;
+  Basket[6] := 4;
+  Basket[7] := 4;
+  Basket[8] := 5;
+  Expected := 55.60;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_ten_books_consisting_of_two_copies_of_each_book_in_the_series;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 10);
+  Basket[0] := 1;
+  Basket[1] := 1;
+  Basket[2] := 2;
+  Basket[3] := 2;
+  Basket[4] := 3;
+  Basket[5] := 3;
+  Basket[6] := 4;
+  Basket[7] := 4;
+  Basket[8] := 5;
+  Basket[9] := 5;
+  Expected := 60.00;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_eleven_books_consisting_of_three_copies_of_the_first_book_plus_two_each_of_the_remaing_four_bookes_in_the_series;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 11);
+  Basket[0] := 1;
+  Basket[1] := 1;
+  Basket[2] := 2;
+  Basket[3] := 2;
+  Basket[4] := 3;
+  Basket[5] := 3;
+  Basket[6] := 4;
+  Basket[7] := 4;
+  Basket[8] := 5;
+  Basket[9] := 5;
+  Basket[10] := 1;
+  Expected := 68.00;
+
+  fBasket := NewBasket(Basket);
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+end;
+
+procedure hpTests.A_basket_containing_twelve_books_consisting_of_three_copies_of_the_first_two_books_plus_two_each_of_the_remaining_three_books_in_the_series;
+var Basket: TArray<integer>;
+    fBasket: IBasket;
+    Expected: double;
+begin
+  SetLength(Basket, 12);
+  Basket[0] := 1;
+  Basket[1] := 1;
+  Basket[2] := 2;
+  Basket[3] := 2;
+  Basket[4] := 3;
+  Basket[5] := 3;
+  Basket[6] := 4;
+  Basket[7] := 4;
+  Basket[8] := 5;
+  Basket[9] := 5;
+  Basket[10] := 1;
+  Basket[11] := 2;
+  Expected := 75.20;
+
   fBasket := NewBasket(Basket);
-  assert.AreEqual(Expected, FBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
+  assert.AreEqual(Expected, fBasket.Total, MinDelta, format('Total should be %0.2f',[Expected]));
 end;
 
 initialization